X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/ea0a6d8112a918809bd03d8126411040d22f2bb8..1d5e6d0340ba258b34b85ccdac4c402ccf4fd51e:/test/mhl/test-mhl-flags

diff --git a/test/mhl/test-mhl-flags b/test/mhl/test-mhl-flags
index 36a73236..e0117fd2 100755
--- a/test/mhl/test-mhl-flags
+++ b/test/mhl/test-mhl-flags
@@ -12,7 +12,37 @@ fi
 . "$MH_OBJ_DIR/test/common.sh"
 
 setup_test
-mhl="${MH_LIB_DIR}/mhl"
+mhl="${MH_LIBEXEC_DIR}/mhl"
+
+MHLDEBUG=foo check_exit '-eq 1' "$mhl" -
+unset MHLDEBUG
+check_exit '-eq 1' "$mhl" -xyzzy
+check_exit '-eq 0' "$mhl" -help
+check_exit '-eq 0' "$mhl" -version
+check_exit '-eq 1' "$mhl" -bell -nobell -clear -
+check_exit '-eq 1' "$mhl" -folder
+check_exit '-eq 1' "$mhl" -folder + -
+check_exit '-eq 1' "$mhl" -form
+check_exit '-eq 1' "$mhl" -sleep
+check_exit '-eq 1' "$mhl" -sleep 42 -
+check_exit '-eq 1' "$mhl" -moreproc foo -moreproc
+check_exit '-eq 1' "$mhl" -nofmtproc -fmtproc foo -fmtproc
+check_exit '-eq 1' "$mhl" -length 42 -length
+check_exit '-eq 1' "$mhl" -length 0
+check_exit '-eq 1' "$mhl" -width
+check_exit '-eq 1' "$mhl" -digest foo -width 0
+check_exit '-eq 1' "$mhl" -issue 42 -digest
+check_exit '-eq 1' "$mhl" -issue
+check_exit '-eq 1' "$mhl" -volume 42 -issue 0
+check_exit '-eq 1' "$mhl" -volume
+check_exit '-eq 1' "$mhl" -forwall -volume 0
+check_exit '-eq 0' "$mhl" -dashstuffing -nodashstuffing \
+    -forwall </dev/null
+check_exit '-eq 0' "$mhl" -forwall -digest foo \
+    -bell -length 1 -width 1 </dev/null
+check_exit '-eq 0' "$mhl" -forwall -digest foo \
+    -nobell -volume 1 -clear </dev/null
+
 expected="$MH_TEST_DIR/$$.expected"
 actual="$MH_TEST_DIR/$$.actual"
 
@@ -20,7 +50,7 @@ cat >`mhpath new` <<EOF
 MIME-Version: 1.0
 From: sender@example.com
 To: recipient@example.com
-Subject: message with blank lines
+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: 
@@ -30,7 +60,8 @@ And another trailing space:
 EOF
 
 
-# check that blank lines don't end with whitepace
+# check nortrim (default), and that trailing whitespace in a
+# component is trimmed when filtering blank lines
 cat >"$expected" <<EOF
 > There are two blank lines below.  And there is a trailing space: 
 > And another trailing space: 
@@ -39,7 +70,23 @@ cat >"$expected" <<EOF
 EOF
 
 cat >"$MH_TEST_DIR/test.format" <<EOF
-body:component="> ",overflowtext=,overflowoffset=0
+body:component="> "
+EOF
+
+"$mhl" -nomoreproc -form "$MH_TEST_DIR/test.format" `mhpath last` >"$actual"
+check "$expected" "$actual"
+
+
+# check rtrim
+cat >"$expected" <<EOF
+> There are two blank lines below.  And there is a trailing space:
+> And another trailing space:
+>
+>
+EOF
+
+cat >"$MH_TEST_DIR/test.format" <<EOF
+body:component="> ",rtrim
 EOF
 
 "$mhl" -nomoreproc -form "$MH_TEST_DIR/test.format" `mhpath last` >"$actual"
@@ -47,4 +94,5 @@ check "$expected" "$actual"
 
 
 rm -f "$MH_TEST_DIR/test.format"
+
 exit $failed