cc6089ed79b8e19fa40fd9b9d4bb33c0d1ce503f
[mmh] / test / mhparam / test-mhparam
1 #!/bin/sh
2 ######################################################
3 #
4 # Test mhparam
5 #
6 ######################################################
7
8 set -e
9
10 if test -z "${MH_OBJ_DIR}"; then
11     srcdir=`dirname $0`/../..
12     MH_OBJ_DIR=`cd $srcdir && pwd`; export MH_OBJ_DIR
13 fi
14
15 . "$MH_OBJ_DIR/test/common.sh"
16
17 setup_test
18
19 expected=$MH_TEST_DIR/$$.expected
20 expected_err=$MH_TEST_DIR/$$.expected_err
21 actual=$MH_TEST_DIR/$$.actual
22 actual_err=$MH_TEST_DIR/$$.actual_err
23
24
25 # check -help
26 cat >$expected <<EOF
27 Usage: mhparam [profile-components] [switches]
28   switches are:
29   -[no]components
30   -all
31   -version
32   -help
33   -(debug)
34 EOF
35
36 mhparam -help >$actual 2>&1
37 check $expected $actual
38
39 # check -version
40 case `mhparam -v` in
41   mhparam\ --*) ;;
42   *           ) echo "$0: mhparam -v generated unexpected output" 1>&2
43                 failed=`expr ${failed:-0} + 1`;;
44 esac
45
46 # check unknown option
47 run_test 'mhparam -nonexistent' 'mhparam: -nonexistent unknown'
48
49 # check -all
50 cp $MH_TEST_DIR/Mail/.mh_profile $expected
51 # -all adds current folder
52 echo 'Current-Folder: '`folder -f` >>$expected
53 mhparam -all >$actual
54 check $expected $actual 'keep first'
55
56 # check -all with a component
57 echo 'mhparam: profile-components ignored with -all' >$expected_err
58 mhparam -all path >$actual 2>$actual_err
59 check $expected $actual 'keep first'
60 check $expected_err $actual_err
61
62 # check -all with -components
63 echo 'mhparam: -components ignored with -all' >$expected_err
64 mhparam -all -components >$actual 2>$actual_err
65 check $expected $actual
66 check $expected_err $actual_err
67
68 # check one component
69 run_test 'mhparam path' "$MH_TEST_DIR/Mail"
70
71 # check more than one component, which enables -component
72 echo 'AliasFile: aliases' >>"$MH_TEST_DIR/Mail/.mh_profile"
73 run_test 'mhparam path AliasFile' "path: $MH_TEST_DIR/Mail
74 AliasFile: aliases"
75
76 # check each component in procs array in uip/mhparam.c
77 # The tests don't override these, so they're default or configured values.
78 # Note that cat is hardcoded here because the testsuite uses it for moreproc.
79 cat >$expected <<EOF
80 context
81 .mh_sequences
82 $bindir/mhbuild
83 $MH_INST_DIR$bindir/refile
84 700
85 $bindir/inc
86 $auxexecdir/install-mh
87 $pagerpath
88 $bindir/mhmail
89 $MH_INST_DIR$auxexecdir/mhl
90 cat
91 600
92 $bindir/msh
93 $bindir/packf
94 $MH_INST_DIR$auxexecdir/post
95 $bindir/send
96 $bindir/mhshow
97 $MH_INST_DIR$auxexecdir/mhl
98 nmh-`cat ${srcdir}/VERSION`
99 $bindir/msh
100 $bindir/whatnow
101 $bindir/whom
102 $sysconfdir
103 $auxexecdir
104 EOF
105
106 mhparam -nocomponent \
107 context \
108 mh-sequences \
109 buildmimeproc \
110 fileproc \
111 foldprot \
112 incproc \
113 installproc \
114 lproc \
115 mailproc \
116 mhlproc \
117 moreproc \
118 msgprot \
119 mshproc \
120 packproc \
121 postproc \
122 sendproc \
123 showmimeproc \
124 showproc \
125 version \
126 vmhproc \
127 whatnowproc \
128 whomproc \
129 etcdir \
130 libdir >$actual 2>&1
131
132 check $expected $actual
133
134 #### This exits with non-zero status, so let run_test squash that:
135 run_test 'mhparam formatproc rmmproc' ''
136
137 #### Test sbackup separately because it's only passed as a -D compile option.
138 case `mhparam sbackup` in
139   ,|\#) ;;
140   *   ) echo mhparam sbackup failed
141         failed=`expr ${failed:-0} + 1` ;;
142 esac
143
144 # check -component
145 run_test 'mhparam -component Path' "Path: $MH_TEST_DIR/Mail"
146
147 # check -component, note that component name of argument is echoed exactly
148 run_test 'mhparam -component path' "path: $MH_TEST_DIR/Mail"
149 run_test 'mhparam -component PATH' "PATH: $MH_TEST_DIR/Mail"
150
151 # check -nocomponent
152 run_test 'mhparam -component -nocomponent path' "$MH_TEST_DIR/Mail"
153 run_test 'mhparam -nocomponent path AliasFile' "$MH_TEST_DIR/Mail
154 aliases"
155
156 # check nonexistent component
157 run_test 'mhparam nonexistent' ''
158
159 # check that return status counts nonexistent components
160 set +e
161 mhparam path context nonexistent1 nonexistent2 nonexistent3 >/dev/null
162 run_test "echo $?" 3
163 set -e
164
165 # mhparam -debug
166 # Some of its output depends on configure options, so don't bother to
167 # check for correctness here.
168 mhparam -debug >/dev/null
169
170 exit $failed