dovecot-2.2-pigeonhole: Small improvements to the test suite.

[pigeonhole at rename-it.nl]

details:   http://hg.rename-it.nl/dovecot-2.2-pigeonhole/rev/bb3fbd27372a
changeset: 1821:bb3fbd27372a
user:      Stephan Bosch <stephan at rename-it.nl>
date:      Wed Nov 20 19:34:28 2013 +0100
description:
Small improvements to the test suite.

diffstat:

 tests/test-header.svtest |  18 ++++++++++++++----
 1 files changed, 14 insertions(+), 4 deletions(-)

diffs (46 lines):

diff -r b7434a02fc51 -r bb3fbd27372a tests/test-header.svtest
--- a/tests/test-header.svtest	Fri Nov 15 23:13:32 2013 +0100
+++ b/tests/test-header.svtest	Wed Nov 20 19:34:28 2013 +0100
@@ -1,4 +1,5 @@
 require "vnd.dovecot.testsuite";
+require "variables";
 
 /*
  * ## RFC 5228, Section 5.7. Test header (page 29) ##
@@ -145,7 +146,7 @@
 To: nico at frop.example.com
 Subject:         Help
 X-A:     Text
-X-B: Text
+X-B: Text   
 
 Text
 .
@@ -153,15 +154,24 @@
 
 test "Ignoring whitespace" {
 	if not header :is "x-a" "Text" {
-		test_fail "header test does not strip leading whitespace";
+		if header :matches "x-a" "*" {
+			set "header" "${1}"; 
+		}
+		test_fail "header test does not strip leading whitespace (header=`${header}`)";
 	}
 
 	if not header :is "x-b" "Text" {
-		test_fail "header test does not strip trailing whitespace";
+		if header :matches "x-b" "*" {
+			set "header" "${1}"; 
+		}
+		test_fail "header test does not strip trailing whitespace (header=`${header}`)";
 	}
 
 	if not header :is "subject" "Help" {
-		test_fail "header test does not strip both leading and trailing whitespace";
+		if header :matches "subject" "*" {
+			set "header" "${1}"; 
+		}
+		test_fail "header test does not strip both leading and trailing whitespace (header=`${header}`)";
 	}
 }