X-Git-Url: http://git.marmaro.de/?a=blobdiff_plain;f=test%2Ftests%2Fmhl%2Ftest-mhl-flags;fp=test%2Ftests%2Fmhl%2Ftest-mhl-flags;h=7220e6cb068c0a2e9b6cdbfb8ed9b6e3df1f7e16;hb=82325c1114254a76b8285bb710b2f651674331c7;hp=0000000000000000000000000000000000000000;hpb=9c61a657f72aa43b4a2f4e027ad84e7f65fb66cb;p=mmh

diff --git a/test/tests/mhl/test-mhl-flags b/test/tests/mhl/test-mhl-flags
new file mode 100755
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"
+