Improve SASL snoop output

[nmh] / test / bad-input / test-header

diff --git a/test/bad-input/test-header b/test/bad-input/test-header
index ef7b3992cdf456677e1587807195c3bae760efbd..a8ab49e363721f5643205a396e7343e6c4ba7388 100755 (executable)
--- a/test/bad-input/test-header
+++ b/test/bad-input/test-header
@@ -69,8 +69,7 @@ From:    foo@example.edu
 Subject: test
 
 
 Subject: test
 
 

-[ part  - text/plain -   70B  ]
-
+[ part  - text/plain -   69B  ]

 This is a multi-part message in MIME format.
 
 I am a stupid spammer.
 This is a multi-part message in MIME format.
 
 I am a stupid spammer.


@@ -122,29 +121,5 @@ verify_string_in_file 'exceeds 997' "$actual_err"
 verify_string_in_file '??Format error (message 13) in component 2' "$actual_err"
 rm -f "$actual_err"
 
 verify_string_in_file '??Format error (message 13) in component 2' "$actual_err"
 rm -f "$actual_err"
 

-# check m_getfld() handling of long header field name without a colon
-start_test 'm_getfld() handling of long header field name without a colon'
-msgfile="$MH_TEST_DIR/Mail/inbox/14"
-cat >"$msgfile" <<EOF
-Date: Thu, 17 Jan 2013 19:33:46 -0600
-If a header field name has at least 512 characters without a newline or colon, it will raise a format error in m_getfld().  Here is a test of that.  01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901
-
-Test
-
-
-EOF
-cat >"$expected" <<EOF
-  14  01/17  
-EOF
-cat >"$expected_err" <<EOF
-scan: eol encountered in field "If a header field name has at least 512 characters without a newline or colon, it will raise a format error in m_getfld().  Here is a test of that.  01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901"
-??Format error (message 14) in component 2
-EOF
-
-run_prog scan -width 13 last >"$actual" 2>"$actual_err"
-check "$expected" "$actual" : m_getfld with long header, no colon output
-check "$expected_err" "$actual_err" : m_getfld with long header, no colon error
-
-

 finish_test
 exit $failed
 finish_test
 exit $failed