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

   1 #!/bin/sh
   2 ######################################################
   3 #
   4 # Test mhstore
   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 check_exit '-eq 1' mhstore -
  20
  21 expected="$MH_TEST_DIR/test-mhstore$$.expected"
  22 expected2="$MH_TEST_DIR/test-mhstore$$.expected2"
  23 expected_err="$MH_TEST_DIR/test-mhmail$$.expected_err"
  24 actual="$MH_TEST_DIR/test-mhstore$$.actual"
  25 actual_err="$MH_TEST_DIR/test-mhmail$$.actual_err"
  26
  27 cd "$MH_TEST_DIR"
  28
  29 # check with no options and no current message
  30 start_test 'with no options and no current message'
  31 run_test 'mhstore' 'mhstore: no cur message'
  32
  33 # check with no options and current message
  34 start_test 'with no options and current message'
  35 folder +inbox 5 >/dev/null
  36 cat >"$expected" <<'EOF'
  37 This is message number 5
  38 EOF
  39 run_test 'mhstore' 'storing message 5 as file 5.txt'
  40 check "$expected" 5.txt 'keep first'
  41
  42 # check with folder and current message
  43 start_test 'with folder and current message'
  44 run_test 'mhstore +inbox' 'storing message 5 as file 5.txt'
  45 check "$expected" 5.txt 'keep first'
  46
  47 # check with specified message
  48 start_test 'with specified message'
  49 run_test 'mhstore 5' 'storing message 5 as file 5.txt'
  50 check "$expected" 5.txt 'keep first'
  51
  52 # check -file
  53 start_test '-file'
  54 run_test "mhstore -file $MH_TEST_DIR/Mail/inbox/5" \
  55   "storing message $MH_TEST_DIR/Mail/inbox/5 as file 5.txt"
  56 check "$expected" 5.txt 'keep first'
  57
  58 # check -file -
  59 start_test '-file -'
  60 stored_contents=`run_prog mhstore -file - < $MH_TEST_DIR/Mail/inbox/5 2>&1 | \
  61   sed 's/.*as file //'`
  62 check "$expected" "$stored_contents" 'keep first'
  63
  64 # check -outfile and -noverbose
  65 start_test '-outfile and -noverbose'
  66 run_prog mhstore 5 -noverbose -outfile "$actual" >"$actual_err" 2>&1
  67 printf '' >"$expected_err"
  68 check "$expected" "$actual" 'keep first'
  69 check "$expected_err" "$actual_err"
  70
  71 # check -outfile -
  72 start_test '-outfile -'
  73 printf '%s\n' 'storing message 5 to stdout' >>"$expected"
  74 run_prog mhstore 5 -outfile - >"$actual" 2>&1
  75 check "$expected" "$actual"
  76
  77 # check message number greater than highest
  78 start_test 'message number greater than highest'
  79 run_test 'mhstore 11' "mhstore: message 11 doesn't exist"
  80
  81 # check multiple messages
  82 start_test 'multiple messages'
  83 run_test 'mhstore 4 6' 'storing message 4 as file 4.txt
  84 storing message 6 as file 6.txt'
  85 cat >"$expected" <<'EOF'
  86 This is message number 4
  87 EOF
  88 check "$expected" 4.txt
  89 cat >"$expected" <<'EOF'
  90 This is message number 6
  91 EOF
  92 check "$expected" 6.txt
  93
  94 # Write message with a text/plain subpart.
  95 msgfile=`mhpath new`
  96 cat >"$msgfile" <<'EOF'
  97 To: recipient@example.com
  98 From: sender@example.com
  99 Subject: mhlist test
 100 MIME-Version: 1.0
 101 Content-Type: multipart/mixed; boundary="----- =_aaaaaaaaaa0"
 102
 103 ------- =_aaaaaaaaaa0
 104 Content-Type: multipart/related;
 105     type="multipart/alternative";
 106     boundary="subpart__1.1"
 107
 108 --subpart__1.1
 109 Content-Type: text/plain; charset="iso-8859-1"
 110 Content-Disposition: attachment; filename="test1.txt"
 111
 112 This is the first text/plain part, in a subpart.
 113
 114 --subpart__1.1--
 115
 116 ------- =_aaaaaaaaaa0
 117 Content-Type: text/plain; charset="iso-8859-1"
 118 Content-Disposition: attachment; filename="test2.txt"
 119 Content-MD5: kq+Hnc2SD/eKwAnkFBDuEA==
 120 Content-Transfer-Encoding: quoted-printable
 121
 122 This is the second text/plain part.
 123
 124 ------- =_aaaaaaaaaa0
 125 Content-Type: text/plain; charset="iso-8859-1"
 126 Content-Disposition: attachment; filename="test3.txt"
 127
 128 This is the third text/plain part.
 129
 130 ------- =_aaaaaaaaaa0
 131 Content-Type: text/plain; charset="iso-8859-1"; name="test4.txt"
 132 Content-Disposition: attachment; filename="test4.txt"
 133 Content-MD5: cMI1lB/LZ4jgVl3EbhdyWA==
 134 Content-Transfer-Encoding: base64
 135
 136 VGhpcyBpcyB0aGUgZm91cnRoIHRleHQvcGxhaW4gcGFydC4NClRoaXMgdGVzdCBoYXMgbXVsdGlw
 137 bGUgbGluZXMuDQo=
 138
 139 ------- =_aaaaaaaaaa0--
 140 EOF
 141
 142 # check -part
 143 start_test '-part'
 144 cat >"$expected" <<'EOF'
 145 This is the third text/plain part.
 146 EOF
 147 run_test 'mhstore last -part 3' 'storing message 11 part 3 as file 11.3.txt'
 148 check "$expected" 11.3.txt
 149
 150 # check -part of a subpart
 151 start_test '-part of a subpart'
 152 cat >"$expected" <<'EOF'
 153 This is the first text/plain part, in a subpart.
 154 EOF
 155 run_test 'mhstore last -part 1.1' \
 156          'storing message 11 part 1.1 as file 11.1.1.txt'
 157 check "$expected" 11.1.1.txt 'keep first'
 158
 159 # check -type
 160 start_test '-type'
 161 run_test 'mhstore last -type text/plain' \
 162   'storing message 11 part 1.1 as file 11.1.1.txt
 163 storing message 11 part 2 as file 11.2.txt
 164 storing message 11 part 3 as file 11.3.txt
 165 storing message 11 part 4 as file 11.4.txt'
 166 check "$expected" 11.1.1.txt
 167 cat >"$expected" <<'EOF'
 168 This is the second text/plain part.
 169 EOF
 170 check "$expected" 11.2.txt
 171 cat >"$expected" <<'EOF'
 172 This is the third text/plain part.
 173 EOF
 174 check "$expected" 11.3.txt
 175 cat >"$expected" <<'EOF'
 176 This is the fourth text/plain part.
 177 This test has multiple lines.
 178 EOF
 179 check "$expected" 11.4.txt
 180
 181 # check -auto
 182 start_test '-auto'
 183 cat >"$expected" <<'EOF'
 184 This is the fourth text/plain part.
 185 This test has multiple lines.
 186 EOF
 187 run_test 'mhstore last -part 4 -auto' \
 188   'storing message 11 part 4 as file test4.txt'
 189 check "$expected" test4.txt 'keep first'
 190
 191 # check -noauto, the default
 192 start_test '-noauto, the default'
 193 run_test 'mhstore last -part 4 -auto -noauto' \
 194   'storing message 11 part 4 as file 11.4.txt'
 195 check "$expected" 11.4.txt 'keep first'
 196
 197 # check -verbose, the default
 198 start_test '-verbose, the default'
 199 run_test 'mhstore last -part 4 -noverbose -verbose' \
 200   'storing message 11 part 4 as file 11.4.txt'
 201 check "$expected" 11.4.txt 'keep first'
 202
 203 # check -noverbose
 204 start_test '-noverbose'
 205 run_test 'mhstore last -part 4 -noverbose' ''
 206 check "$expected" 11.4.txt
 207
 208 # check that -auto obeys Content-Disposition header
 209 start_test 'that -auto obeys Content-Disposition header'
 210 cat >"$expected" <<'EOF'
 211 This is the first text/plain part, in a subpart.
 212 EOF
 213 run_test 'mhstore last -part 1.1 -auto' \
 214   'storing message 11 part 1.1 as file test1.txt'
 215 check "$expected" test1.txt
 216
 217 # check -outfile - with -file
 218 start_test '-outfile - with -file'
 219 cat >"$expected" <<'EOF'
 220 This is the second text/plain part.
 221 EOF
 222 run_prog mhstore -noverbose -file `mhpath 11` -part 2 -outfile - >"$actual" 2>&1
 223 check "$expected" "$actual"
 224
 225 # cd into Mail directory because it gets cleaned up by the exit trap.
 226 cd Mail
 227
 228 # check -clobber always
 229 start_test '-clobber always'
 230 folder +inbox 7 >/dev/null
 231 touch 7.txt
 232 cat >"$expected" <<'EOF'
 233 This is message number 7
 234 EOF
 235 run_test 'mhstore' 'storing message 7 as file 7.txt'
 236 check "$expected" 7.txt 'keep first'
 237 run_test 'mhstore -clobber ask -clobber always' \
 238          'storing message 7 as file 7.txt'
 239 check "$expected" 7.txt 'keep first'
 240
 241 # check -clobber auto
 242 start_test '-clobber auto'
 243 touch 7.txt
 244 run_test 'mhstore -clobber auto' 'storing message 7 as file 7-1.txt'
 245 check "$expected" 7-1.txt 'keep first'
 246 touch 7-1.txt
 247 run_test 'mhstore -clobber auto' 'storing message 7 as file 7-2.txt'
 248 check "$expected" 7-2.txt 'keep first'
 249
 250 # check -clobber suffix
 251 start_test '-clobber suffix'
 252 run_test 'mhstore -clobber suffix' 'storing message 7 as file 7.txt.1'
 253 check "$expected" 7.txt.1 'keep first'
 254 touch 7.txt.1
 255 run_test 'mhstore -clobber suffix' 'storing message 7 as file 7.txt.2'
 256 check "$expected" 7.txt.2 'keep first'
 257
 258 # Don't check -clobber ask because it requires connection to a
 259 # terminal, and this test won't always be run with one.
 260
 261 # check -clobber never.  Its exit status is the number of files not overwritten.
 262 start_test '-clobber never.  Its exit status is the number of files not overwritten.'
 263 run_test 'mhstore -clobber never' \
 264          "mhstore: will not overwrite $MH_TEST_DIR/Mail/7.txt with -clobber never"
 265 set +e
 266 mhstore -clobber never >/dev/null 2>&1
 267 run_test "echo $?" 1
 268 set -e
 269
 270 cd ..
 271
 272 # check with short relative nmh-storage profile component
 273 start_test 'with short relative nmh-storage profile component'
 274 storagedir=s
 275 dir="$MH_TEST_DIR/Mail/inbox/$storagedir"
 276 mkdir "$dir"
 277 printf '%s\n' "nmh-storage: $storagedir" >>"$MH"
 278 cat >"$expected" <<'EOF'
 279 This is the fourth text/plain part.
 280 This test has multiple lines.
 281 EOF
 282 run_test 'mhstore 11 -part 4' \
 283 "storing message 11 part 4 as file $storagedir/11.4.txt"
 284 check "$expected" "$dir/11.4.txt" 'keep first'
 285 rmdir "$dir"
 286 sed '$d' "$MH" >"$MH.new"
 287 mv "$MH.new" "$MH"
 288
 289 # check with relative nmh-storage profile component
 290 start_test 'with relative nmh-storage profile component'
 291 storagedir=storagedir
 292 dir="$MH_TEST_DIR/Mail/inbox/$storagedir"
 293 mkdir "$dir"
 294 printf '%s\n' "nmh-storage: $storagedir" >>"$MH"
 295 run_test 'mhstore 11 -part 4' \
 296 "storing message 11 part 4 as file $storagedir/11.4.txt"
 297 check "$expected" "$dir/11.4.txt" 'keep first'
 298
 299 # check with relative nmh-storage profile component and -auto
 300 start_test 'with relative nmh-storage profile component and -auto'
 301 run_test 'mhstore 11 -part 4 -auto' \
 302 "storing message 11 part 4 as file $storagedir/test4.txt"
 303 check "$expected" "$dir/test4.txt" 'keep first'
 304
 305 # check with absolute nmh-storage profile component
 306 start_test 'with absolute nmh-storage profile component'
 307 absstoragedir="$MH_TEST_DIR/$storagedir"
 308 mkdir "$absstoragedir"
 309 sed "s%\(nmh-storage: \)storagedir%\1$absstoragedir%" "$MH" >"$MH.new"
 310 mv -f "$MH.new" "$MH"
 311 run_test 'mhstore 11 -part 4' \
 312 "storing message 11 part 4 as file $storagedir/11.4.txt"
 313 check "$expected" "$absstoragedir/11.4.txt" 'keep first'
 314
 315 # check with absolute nmh-storage profile component and -auto
 316 start_test 'with absolute nmh-storage profile component and -auto'
 317 run_test 'mhstore 11 -part 4 -auto' \
 318 "storing message 11 part 4 as file $storagedir/test4.txt"
 319 check "$expected" "$absstoragedir/test4.txt"
 320 rmdir "$absstoragedir"
 321
 322
 323 finish_test
 324 exit $failed