From bdc8a61f9742aadab876b494b31dfbe00b6f53e6 Mon Sep 17 00:00:00 2001
From: Stephan Bosch <stephan@rename-it.nl>
Date: Wed, 19 Nov 2008 20:59:45 +0100
Subject: [PATCH] Testsuite: added test for header folding.
---
tests/header.svtest | 20 ++++++++++++++------
1 file changed, 14 insertions(+), 6 deletions(-)
diff --git a/tests/header.svtest b/tests/header.svtest
index 3db64b487..2fc5e8051 100644
--- a/tests/header.svtest
+++ b/tests/header.svtest
@@ -6,31 +6,34 @@ To: nico@vestingbar.nl
Subject: Help
X-A: Text
X-B: Text
+X-Multiline: This is a multi-line
+ header body, which should be
+ unfolded correctly.
Text
.
;
-test "STRIP-center" {
+test "Strip center" {
if not header :is "subject" "Help" {
test_fail "header test does not strip leading or trailing whitespace";
}
}
-test "STRIP-lead" {
+test "Strip lead" {
if not header :is "x-a" "Text" {
test_fail "header test does not strip leading whitespace";
}
}
-test "STRIP-trail" {
+test "Strip trail" {
if not header :is "x-b" "Text" {
test_fail "header test does not strip trailing whitespace";
}
}
-test "CONTAINS-EMPTY-exist" {
+test "Contains empty - exist" {
if not header :contains "subject" "" {
test_fail "header test :contains match type fails to match \"\" on existing header";
}
@@ -40,10 +43,15 @@ test "CONTAINS-EMPTY-exist" {
}
}
-test "CONTAINS-EMPTY-not-exist" {
+test "Contains empty - not exist" {
if header :contains "x-nonsense" "" {
test_fail "header test :contains match type matches \"\" on non-existant header";
}
}
-
+test "Folded - equals" {
+ if not header :is "x-multiline"
+ "This is a multi-line header body, which should be unfolded correctly." {
+ test_fail "failed to properly unfold folded header.";
+ }
+}
--
GitLab