git.marmaro.de Git - mmh/blob - test/tests/bad-input/test-header

   1 #!/bin/sh
   2 ######################################################
   3 #
   4 # Test bogus headers (no blank line before body, etc.)
   5 #
   6 ######################################################
   7
   8 . "$MH_TEST_COMMON"
   9
  10 expected=$MH_TEST_DIR/$$.expected
  11
  12 # Write message with bogus header field (missing blank line, really).
  13 msgfile="$(mhpath b)"
  14 msgnum="$(basename $msgfile)"
  15
  16 cat > $msgfile <<EOF
  17 Date: Sun, 18 Dec 2005 00:52:39 +0100
  18 From: foo@example.edu
  19 To: bar@example.edu
  20 Subject: test
  21 This is a multi-part message in MIME format.
  22
  23 I am a stupid spammer.
  24 EOF
  25
  26
  27 # check scan
  28 runandcheck "scan $msgnum" <<!
  29   11  2005-12-18 00:52  foo@example.edu    test
  30 !
  31
  32
  33 # check show
  34 runandcheck "show $msgnum" <<!
  35 show: message format error in component #5
  36 !
  37
  38
  39
  40 # check m_getfld() handling of empty header field
  41 msgfile="`mhpath b`"
  42 printf 'Date: Sat, 12 Jan 2013 09:07:01 -0600\nReceived:' >"$msgfile"
  43 runandcheck "scan l" <<!
  44 scan: eof encountered in field "Received"
  45 ??Format error (message 12) in component 2
  46   12  2013-01-12 09:07
  47 !
  48
  49
  50
  51 # check m_getfld() handling of excessively long header field name
  52
  53 msgfile="$MH_TEST_DIR/Mail/inbox/13"
  54 cat >"$msgfile" <<EOF
  55 Date: Tue, 15 Jan 2013 21:13:12 -0600
  56 ThisHeaderFieldNameIsWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaayTooLong: OK
  57 EOF
  58 runandcheck "scan l" <<!
  59 scan: field name "ThisHeaderFieldNameIsWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaayTooLong" exceeds 997 bytes
  60 ??Format error (message 13) in component 2
  61   13  2013-01-15 21:13
  62 !
  63
  64
  65
  66 # # Cygwin has a BUFSIZ of 1024 so the error message gets truncated.
  67 # # Deal with that by grepping to verify that scan showed the proper error.
  68 # verify_string_in_file() {
  69 #   if grep "$1" "$2" >/dev/null; then
  70 #     :
  71 #   else
  72 #     echo "$0: did not receive expected error message \"$1\""
  73 #     failed=`expr ${failed:-0} + 1`
  74 #   fi
  75 # }
  76 # verify_string_in_file 'scan: field name "ThisHeaderFieldNameIsWa' "$actual_err"
  77 # verify_string_in_file 'exceeds 997' "$actual_err"
  78 # verify_string_in_file '??Format error (message 13) in component 2' "$actual_err"
  79 # rm -f "$actual_err"
  80
  81
  82
  83
  84 # check m_getfld() handling of long header field name without a colon
  85
  86 msgfile="$MH_TEST_DIR/Mail/inbox/14"
  87 cat >"$msgfile" <<EOF
  88 Date: Thu, 17 Jan 2013 19:33:46 -0600
  89 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
  90
  91 Test
  92
  93
  94 EOF
  95
  96 runandcheck "scan l" <<!
  97 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"
  98 ??Format error (message 14) in component 2
  99   14  2013-01-17 19:33
 100 !
 101