diplodocus.org Git - nmh/blob - test/scan/test-scan

   1 #!/bin/sh
   2 ######################################################
   3 #
   4 # Test a simple scan.
   5 #
   6 ######################################################
   7
   8 if test -z "${MH_OBJ_DIR}"; then
   9     srcdir=`dirname "$0"`/../..
  10     MH_OBJ_DIR=`cd "$srcdir" && pwd`; export MH_OBJ_DIR
  11 fi
  12
  13 . "$MH_OBJ_DIR/test/common.sh"
  14
  15 setup_test
  16
  17 check_exit '-eq 1' scan -
  18
  19 expected="$MH_TEST_DIR/$$.expected"
  20 actual="$MH_TEST_DIR/$$.actual"
  21
  22
  23 # check -width
  24 start_test '-width'
  25 cat >"$expected" <<EOF
  26    1  09/29 Test1              Testing message 1<<This is message number 1 >>
  27    2  09/29 Test2              Testing message 2<<This is message number 2 >>
  28    3  09/29 Test3              Testing message 3<<This is message number 3 >>
  29    4  09/29 Test4              Testing message 4<<This is message number 4 >>
  30    5  09/29 Test5              Testing message 5<<This is message number 5 >>
  31    6  09/29 Test6              Testing message 6<<This is message number 6 >>
  32    7  09/29 Test7              Testing message 7<<This is message number 7 >>
  33    8  09/29 Test8              Testing message 8<<This is message number 8 >>
  34    9  09/29 Test9              Testing message 9<<This is message number 9 >>
  35   10  09/29 Test10             Testing message 10<<This is message number 10 >>
  36 EOF
  37
  38 run_prog scan +inbox -width 80 >"$actual" || exit 1
  39 check "$expected" "$actual"
  40
  41
  42 # check highlighting
  43 start_test 'highlighting'
  44 cat >"$expected" <<EOF
  45    1  09/29 Test1              Testing message 1<<This is message number 1 >>\e[m
  46    2  09/29 Test2              Testing message 2<<This is message number 2 >>\e[m
  47    3  09/29 Test3              Testing message 3<<This is message number 3 >>\e[m
  48    4  09/29 Test4              Testing message 4<<This is message number 4 >>\e[m
  49 \e[33;40m   5+ 09/29 Test5              Testing message 5<<This is message number 5 >>\e[m
  50    6  09/29 Test6              Testing message 6<<This is message number 6 >>\e[m
  51    7  09/29 Test7              Testing message 7<<This is message number 7 >>\e[m
  52    8  09/29 Test8              Testing message 8<<This is message number 8 >>\e[m
  53    9  09/29 Test9              Testing message 9<<This is message number 9 >>\e[m
  54 \e[36;40m  10  09/29 Test10             Testing message 10<<This is message number 10 >>\e[m
  55 EOF
  56
  57 printf 'Unseen-Sequence: unseen\n' >> $MH
  58 mark -sequence cur 5
  59 mark -sequence unseen 10
  60 run_prog scan -form scan.highlighted -width 80 >"$actual" || exit 1
  61 check "$expected" "$actual"
  62
  63
  64 # check null input
  65 start_test 'null input'
  66 run_test 'scan -format "" -file /dev/null' ''
  67
  68
  69 finish_test
  70 exit $failed