X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/71eaed755250fdd6ac66d1139e59a2cc7ad3980e..ddf3a8574f657dcb8c53fc5908e7bebbde1994b5:/test/scan/test-scan

diff --git a/test/scan/test-scan b/test/scan/test-scan
index 632c54ba..269f2b85 100755
--- a/test/scan/test-scan
+++ b/test/scan/test-scan
@@ -14,9 +14,14 @@ fi
 
 setup_test
 
+check_exit '-eq 1' scan -
+
 expected="$MH_TEST_DIR/$$.expected"
 actual="$MH_TEST_DIR/$$.actual"
 
+
+# check -width
+start_test '-width'
 cat >"$expected" <<EOF
    1  09/29 Test1              Testing message 1<<This is message number 1 >>
    2  09/29 Test2              Testing message 2<<This is message number 2 >>
@@ -30,10 +35,21 @@ cat >"$expected" <<EOF
   10  09/29 Test10             Testing message 10<<This is message number 10 >>
 EOF
 
-scan +inbox -width 80 >"$actual" || exit 1
+run_prog scan +inbox -width 80 >"$actual" || exit 1
 check "$expected" "$actual"
 
+
+# check full output device, if one exists
+# if test -c /dev/full; then
+#   start_test 'full output device'
+#   printf 'scan: failed to fflush stdout: No space left on device\n' >"$expected"
+#   scan last >/dev/full 2>"$actual"  &&  false
+#   check "$expected" "$actual"
+# fi
+
+
 # check highlighting
+start_test 'highlighting'
 cat >"$expected" <<EOF
    1  09/29 Test1              Testing message 1<<This is message number 1 >>
    2  09/29 Test2              Testing message 2<<This is message number 2 >>
@@ -50,8 +66,14 @@ EOF
 printf 'Unseen-Sequence: unseen\n' >> $MH
 mark -sequence cur 5
 mark -sequence unseen 10
-scan -form scan.highlighted -width 80 >"$actual" || exit 1
+run_prog scan -form scan.highlighted -width 80 >"$actual" || exit 1
 check "$expected" "$actual"
 
 
+# check null input
+start_test 'null input'
+run_test 'scan -format "" -file /dev/null' ''
+
+
+finish_test
 exit $failed