Added identifier to each check in test-mhlist to help diagnose

[nmh] / test / mhlist / test-mhlist

diff --git a/test/mhlist/test-mhlist b/test/mhlist/test-mhlist
index 91748b1813b0b8ca1ee21e3c1d700d85dcd7cb66..ad0fb4bb941b5313a251dab8d7510c21574067ce 100755 (executable)
--- a/test/mhlist/test-mhlist
+++ b/test/mhlist/test-mhlist
@@ -26,7 +26,7 @@ run_test 'mhlist' 'mhlist: no cur message'
 # check with no options and current message
 folder +inbox 5 > /dev/null
 cat > $expected <<EOF
 # check with no options and current message
 folder +inbox 5 > /dev/null
 cat > $expected <<EOF

- msg part  type/subtype              size description                         
+ msg part  type/subtype              size description

    5       text/plain                  25
 EOF
 mhlist > $actual 2>&1
    5       text/plain                  25
 EOF
 mhlist > $actual 2>&1


@@ -53,7 +53,7 @@ check $expected $actual
 
 # check -file -
 cat > $expected <<EOF
 
 # check -file -
 cat > $expected <<EOF

- msg part  type/subtype              size description                         
+ msg part  type/subtype              size description

    0       text/plain                  25
 EOF
 mhlist -file - < "$MH_TEST_DIR/Mail/inbox/5" > $actual 2>&1
    0       text/plain                  25
 EOF
 mhlist -file - < "$MH_TEST_DIR/Mail/inbox/5" > $actual 2>&1


@@ -64,7 +64,7 @@ run_test 'mhlist 11' "mhlist: message 11 doesn't exist"
 
 # check multiple messages
 cat > $expected <<EOF
 
 # check multiple messages
 cat > $expected <<EOF

- msg part  type/subtype              size description                         
+ msg part  type/subtype              size description

    2       text/plain                  25
    8       text/plain                  25
 EOF
    2       text/plain                  25
    8       text/plain                  25
 EOF


@@ -72,7 +72,7 @@ mhlist 2 8 > $actual 2>&1
 check $expected $actual
 
 # Write message with a text/plain subpart.
 check $expected $actual
 
 # Write message with a text/plain subpart.

-msgfile=$(mhpath new)
+msgfile=`mhpath new`

 cat > $msgfile <<EOF
 To: recipient@example.com
 From: sender@example.com
 cat > $msgfile <<EOF
 To: recipient@example.com
 From: sender@example.com


@@ -102,7 +102,7 @@ Content-Transfer-Encoding: quoted-printable
 This is the second text/plain part.
 
 ------- =_aaaaaaaaaa0
 This is the second text/plain part.
 
 ------- =_aaaaaaaaaa0

-Content-Type: text/plain; charset="iso-8859-1"
+Content-Type: text/plain; charset="iso-8859-1"; name="test3"

 Content-Disposition: attachment; filename="test3"
 
 This is the third text/plain part.
 Content-Disposition: attachment; filename="test3"
 
 This is the third text/plain part.


@@ -119,19 +119,19 @@ EOF
 
 # check -part
 run_test 'mhlist last -part 3 -noheader' \
 
 # check -part
 run_test 'mhlist last -part 3 -noheader' \

-'  11       multipart/mixed            922
+'  11       multipart/mixed            936

      1     multipart/related          180
      3     text/plain                  35'
 
 # check -part of a subpart
 run_test 'mhlist last -part 1.1 -noheader' \
      1     multipart/related          180
      3     text/plain                  35'
 
 # check -part of a subpart
 run_test 'mhlist last -part 1.1 -noheader' \

-'  11       multipart/mixed            922
+'  11       multipart/mixed            936

      1     multipart/related          180
      1.1   text/plain                  49'
 
 # check -type
 run_test 'mhlist last -type text/plain -noheader' \
      1     multipart/related          180
      1.1   text/plain                  49'
 
 # check -type
 run_test 'mhlist last -type text/plain -noheader' \

-'  11       multipart/mixed            922
+'  11       multipart/mixed            936

      1     multipart/related          180
      1.1   text/plain                  49
      2     text/plain                  36
      1     multipart/related          180
      1.1   text/plain                  49
      2     text/plain                  36


@@ -140,19 +140,19 @@ run_test 'mhlist last -type text/plain -noheader' \
 
 # check -norealsize
 run_test 'mhlist last -part 4 -noheader -norealsize' \
 
 # check -norealsize
 run_test 'mhlist last -part 4 -noheader -norealsize' \

-'  11       multipart/mixed            922
+'  11       multipart/mixed            936

      1     multipart/related          180
      4     text/plain                  49'
 
 # check -realsize, the default
 run_test 'mhlist last -part 4 -noheader -norealsize -realsize' \
      1     multipart/related          180
      4     text/plain                  49'
 
 # check -realsize, the default
 run_test 'mhlist last -part 4 -noheader -norealsize -realsize' \

-'  11       multipart/mixed            922
+'  11       multipart/mixed            936

      1     multipart/related          180
      4     text/plain                  36'
 
 # check -check
 run_test 'mhlist last -part 2 -noheader -check' \
      1     multipart/related          180
      4     text/plain                  36'
 
 # check -check
 run_test 'mhlist last -part 2 -noheader -check' \

-'  11       multipart/mixed            922
+'  11       multipart/mixed            936

      1     multipart/related          180
      2     text/plain                  36'
 
      1     multipart/related          180
      2     text/plain                  36'
 


@@ -160,7 +160,7 @@ run_test 'mhlist last -part 2 -noheader -check' \
 sed 's/\(Content-MD5: \)kq+Hnc/\1BADBAD/' $msgfile > $MH_TEST_DIR/$$.tmp
 mv -f $MH_TEST_DIR/$$.tmp $msgfile
 run_test 'mhlist last -part 2 -noheader -check' \
 sed 's/\(Content-MD5: \)kq+Hnc/\1BADBAD/' $msgfile > $MH_TEST_DIR/$$.tmp
 mv -f $MH_TEST_DIR/$$.tmp $msgfile
 run_test 'mhlist last -part 2 -noheader -check' \

-'  11       multipart/mixed            922
+'  11       multipart/mixed            936

      1     multipart/related          180
      2     text/plain                  36
 mhlist: content integrity suspect (digest mismatch) -- continuing
      1     multipart/related          180
      2     text/plain                  36
 mhlist: content integrity suspect (digest mismatch) -- continuing


@@ -168,8 +168,46 @@ mhlist: content integrity suspect (digest mismatch) -- continuing
 
 # check -nocheck, the default
 run_test 'mhlist last -part 2 -noheader -check -nocheck' \
 
 # check -nocheck, the default
 run_test 'mhlist last -part 2 -noheader -check -nocheck' \

-'  11       multipart/mixed            922
+'  11       multipart/mixed            936

      1     multipart/related          180
      2     text/plain                  36'
 
      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'
+

 exit $failed
 exit $failed