X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/5cc5dbfe040a1c852f95b28da3f1788df9e1e94f..55deb9a8a3f78d67f5882d8e02bbaeab67c9078b:/test/mhlist/test-mhlist?ds=sidebyside diff --git a/test/mhlist/test-mhlist b/test/mhlist/test-mhlist index f61a1366..d14475c3 100755 --- a/test/mhlist/test-mhlist +++ b/test/mhlist/test-mhlist @@ -26,37 +26,37 @@ run_test 'mhlist' 'mhlist: no cur message' # check with no options and current message folder +inbox 5 > /dev/null cat > $expected < $actual 2>&1 +run_prog mhlist > $actual 2>&1 check $expected $actual 'keep first' # check -noheaders run_test 'mhlist 5 -noheaders' ' 5 text/plain 25' # check -headers -mhlist -noheaders -headers > $actual 2>&1 +run_prog mhlist -noheaders -headers > $actual 2>&1 check $expected $actual 'keep first' # check with folder and current message -mhlist +inbox > $actual 2>&1 +run_prog mhlist +inbox > $actual 2>&1 check $expected $actual 'keep first' # check with specified message -mhlist 5 > $actual 2>&1 +run_prog mhlist 5 > $actual 2>&1 check $expected $actual 'keep first' # check -file -mhlist -file "$MH_TEST_DIR/Mail/inbox/5" > $actual 2>&1 +run_prog mhlist -file "$MH_TEST_DIR/Mail/inbox/5" > $actual 2>&1 check $expected $actual # check -file - cat > $expected < $actual 2>&1 +run_prog mhlist -file - < "$MH_TEST_DIR/Mail/inbox/5" > $actual 2>&1 check $expected $actual # check message number greater than highest @@ -64,15 +64,15 @@ run_test 'mhlist 11' "mhlist: message 11 doesn't exist" # check multiple messages cat > $expected < $actual 2>&1 +run_prog mhlist 2 8 > $actual 2>&1 check $expected $actual # Write message with a text/plain subpart. -msgfile=$(mhpath new) +msgfile=`mhpath new` cat > $msgfile < $MH_TEST_DIR/$$.tmp mv -f $MH_TEST_DIR/$$.tmp $msgfile run_test 'mhlist last -part 2 -noheader -check' \ -' 11 multipart/mixed 900 - 1 multipart/related 164 +' 11 multipart/mixed 936 + 1 multipart/related 180 2 text/plain 36 mhlist: content integrity suspect (digest mismatch) -- continuing (content text/plain in message 11, part 2)' # check -nocheck, the default run_test 'mhlist last -part 2 -noheader -check -nocheck' \ -' 11 multipart/mixed 900 - 1 multipart/related 164 +' 11 multipart/mixed 936 + 1 multipart/related 180 2 text/plain 36' +# +# Set the cur sequence to 1 to test default behavior of changecur after +# this test. +# + +mark 1 -sequence cur -add -zero + +# check -verbose +run_test 'mhlist 11 -verbose -noheader' \ +' 11 multipart/mixed 936 + boundary="----- =_aaaaaaaaaa0" + 1 multipart/related 180 + type="multipart/alternative" + boundary="subpart__1.1" + 1.1 text/plain 49 + charset="iso-8859-1" + 2 text/plain 36 + charset="iso-8859-1" + 3 text/plain 35 + charset="iso-8859-1" + name="test3" + 4 text/plain 36 + charset="iso-8859-1"' + +# +# Check default changecur behavior +# + +run_test 'mark -sequence cur -list' 'cur: 11' + +# +# Now test -nochangecur +# + +mhlist -nochangecur 1 >/dev/null + +run_test 'mark -sequence cur -list' 'cur: 11' + +# check MIME parser and m_getfld +cat > $expected < $msgfile < $actual 2>&1 +check $expected $actual + + exit $failed