Rework in the test framework; updated and new tests

[mmh] / test / tests / mhl / test-mhl-flags

diff --git a/test/tests/mhl/test-mhl-flags b/test/tests/mhl/test-mhl-flags
new file mode 100755 (executable)
index 0000000..7220e6c
--- /dev/null
+++ b/test/tests/mhl/test-mhl-flags
@@ -0,0 +1,55 @@
+#!/bin/sh
+#
+# Test of various (well, start with one) function escapes.
+
+. "$MH_TEST_COMMON"
+
+test_skip "not implemented yet"
+
+
+cat >`mhpath b` <<EOF
+MIME-Version: 1.0
+From: sender@example.com
+To: recipient@example.com
+Subject: message with blank lines and trailing spaces
+Date: Mon, 29 Apr 2013 11:51:45 -0400
+
+There are two blank lines below.  And there is a trailing space: 
+And another trailing space: 
+
+
+EOF
+
+
+# check nortrim (default), and that trailing whitespace in a
+# component is trimmed when filtering blank lines
+
+cat >"$MH_TEST_DIR/test.format" <<EOF
+body:component="> "
+EOF
+
+runandcheck "mhl -form $MH_TEST_DIR/test.format `mhpath l`" <<!
+> There are two blank lines below.  And there is a trailing space: 
+> And another trailing space: 
+>
+>
+!
+
+
+
+# check rtrim
+
+cat >"$MH_TEST_DIR/test.format" <<EOF
+body:component="> ",rtrim
+EOF
+
+runandcheck "mhl -form $MH_TEST_DIR/test.format `mhpath l`" <<!
+> There are two blank lines below.  And there is a trailing space:
+> And another trailing space:
+>
+>
+!
+
+
+rm -f "$MH_TEST_DIR/test.format"
+