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

   1 #!/bin/sh
   2 ######################################################
   3 #
   4 # Test ali
   5 #
   6 ######################################################
   7
   8 # Not tested:
   9 # -normalize, -nonormalize
  10
  11 # ???? temporary   set -e
  12 set -x
  13
  14 if test -z "${MH_OBJ_DIR}"; then
  15     srcdir=`dirname $0`/../..
  16     MH_OBJ_DIR=`cd $srcdir && pwd`; export MH_OBJ_DIR
  17 fi
  18
  19 . "$MH_OBJ_DIR/test/common.sh"
  20
  21 setup_test
  22
  23 #### ???? temporary
  24 ls -l ${MH_INST_DIR}$prefix/bin
  25 echo $PATH
  26 export PATH
  27 scan +inbox # ???? temporary
  28 #### ???? temporary
  29
  30 expected=$MH_TEST_DIR/$$.expected
  31 expected_err=$MH_TEST_DIR/$$.expected_err
  32 actual=$MH_TEST_DIR/$$.actual
  33 actual_err=$MH_TEST_DIR/$$.actual_err
  34
  35
  36 # check -help
  37 cat >$expected <<EOF
  38 Usage: ali [switches] aliases ...
  39   switches are:
  40   -alias aliasfile
  41   -[no]list
  42   -[no]normalize
  43   -[no]user
  44   -version
  45   -help
  46 EOF
  47
  48 ali -help >$actual 2>&1
  49 check $expected $actual
  50
  51 # check -version
  52 case `ali -v` in
  53   ali\ --*) ;;
  54   *       ) echo "$0: ali -v generated unexpected output" 1>&2
  55             failed=`expr ${failed:-0} + 1`;;
  56 esac
  57
  58 # check unknown option
  59 run_test 'ali -nonexistent' 'ali: -nonexistent unknown'
  60
  61 # check with no arguments and no AliasFile profile component
  62 run_test 'ali' ''
  63
  64 # check with nonexistent alias file
  65 run_test 'ali -alias nonexistent' \
  66          "ali: aliasing error in nonexistent - unable to read 'nonexistent'"
  67
  68 cat >"${MH_TEST_DIR}/Mail/aliases" <<EOF
  69 me: me@example.com
  70 rush: geddy, alex, neil
  71 geddy: geddy@example.com
  72 alex: alex@example.com
  73 neil: neil@example.com
  74 EOF
  75
  76 # check -alias
  77 run_test "ali -alias ${MH_TEST_DIR}/Mail/aliases" \
  78          'me: me@example.com
  79 rush: geddy@example.com, alex@example.com, neil@example.com
  80 geddy: geddy@example.com
  81 alex: alex@example.com
  82 neil: neil@example.com'
  83
  84 # check for a specific alias
  85 run_test "ali -alias ${MH_TEST_DIR}/Mail/aliases rush" \
  86          'geddy@example.com, alex@example.com, neil@example.com'
  87
  88 # check for a specific alias that doesn't exist
  89 run_test "ali -alias ${MH_TEST_DIR}/Mail/aliases nonexistent" \
  90          'nonexistent'
  91
  92 # check -list
  93 run_test "ali -alias ${MH_TEST_DIR}/Mail/aliases -list" \
  94          'me: me@example.com
  95 rush: geddy@example.com
  96       alex@example.com
  97       neil@example.com
  98 geddy: geddy@example.com
  99 alex: alex@example.com
 100 neil: neil@example.com'
 101
 102 # check -nolist, which is the default
 103 run_test "ali -alias ${MH_TEST_DIR}/Mail/aliases -list -nolist" \
 104          'me: me@example.com
 105 rush: geddy@example.com, alex@example.com, neil@example.com
 106 geddy: geddy@example.com
 107 alex: alex@example.com
 108 neil: neil@example.com'
 109
 110 # check -user
 111 run_test "ali -alias ${MH_TEST_DIR}/Mail/aliases -user geddy@example.com" \
 112          'rush, geddy'
 113
 114 # check -nouser
 115 run_test \
 116   "ali -alias ${MH_TEST_DIR}/Mail/aliases -user -nouser geddy@example.com" \
 117   'geddy@example.com'
 118
 119 # check expansion of first address of blind list [Bug #15604]
 120 cat >"${MH_TEST_DIR}/Mail/aliases" <<EOF
 121 rush: Rush: geddy, alex, neil
 122 geddy: geddy@example.com
 123 alex: alex@example.com
 124 neil: neil@example.com
 125 EOF
 126
 127 run_test "ali -alias ${MH_TEST_DIR}/Mail/aliases rush" \
 128          'Rush: geddy@example.com, alex@example.com, neil@example.com'
 129
 130 # check that aliases followed by ; are not expanded [Bug #15604]
 131 cat >"${MH_TEST_DIR}/Mail/aliases" <<EOF
 132 rush: Rush: geddy, alex, neil;
 133 geddy: geddy@example.com
 134 alex: alex@example.com
 135 neil: neil@example.com
 136 EOF
 137
 138 run_test "ali -alias ${MH_TEST_DIR}/Mail/aliases rush" \
 139          'Rush: geddy@example.com, alex@example.com, neil;'
 140
 141
 142 exit $failed