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

   1 #!/bin/sh
   2
   3 if test -z "${MH_OBJ_DIR}"; then
   4     srcdir=`dirname "$0"`/../..
   5     MH_OBJ_DIR=`cd "$srcdir" && pwd`; export MH_OBJ_DIR
   6 fi
   7
   8 . "$MH_OBJ_DIR/test/common.sh"
   9
  10 setup_test
  11
  12 expected=$MH_TEST_DIR/$$.expected
  13 actual=$MH_TEST_DIR/$$.actual
  14
  15 # Write message with a text/plain subpart.
  16 msgfile=`mhpath new`
  17 msgnum=`basename $msgfile`
  18 cat > $msgfile <<EOF
  19 MIME-Version: 1.0
  20 Content-Type: multipart/mixed; boundary="NextPart_001"
  21 Content-class: urn:content-classes:message
  22 Date: Thu, 19 May 2011 00:00:00 -0000
  23 From: sender@example.com
  24 To: recipient@example.com
  25
  26 This is a multi-part message in MIME format.
  27
  28 --NextPart_001
  29 Content-Type: multipart/related;
  30     type="multipart/alternative";
  31     boundary="NextPart_002"
  32
  33 --NextPart_002
  34 Content-Type: text/plain;
  35     charset="utf-8"
  36
  37 This is the text/plain part.
  38
  39 --NextPart_002--
  40
  41 --NextPart_001--
  42 EOF
  43
  44 # Test showing multiple non-MIME messages shows message numbers.
  45
  46 cat > $expected <<EOF
  47 >>> inbox:1
  48
  49
  50 Date:    Fri, 29 Sep 2006 00:00:00
  51 To:      Some User <user@example.com>
  52 From:    Test1 <test1@example.com>
  53 Subject: Testing message 1
  54
  55
  56 This is message number 1
  57
  58
  59
  60 >>> inbox:2
  61
  62
  63 Date:    Fri, 29 Sep 2006 00:00:00
  64 To:      Some User <user@example.com>
  65 From:    Test2 <test2@example.com>
  66 Subject: Testing message 2
  67
  68
  69 This is message number 2
  70 EOF
  71
  72 show +inbox 1 2 > $actual || exit 1
  73
  74 check "$expected" "$actual" : show two non-mime
  75
  76 # Test showing one MIME message shows message number.
  77 # Format is different; why?
  78
  79 cat > $expected <<EOF
  80 (Message inbox:$msgnum)
  81 Date:    Thu, 19 May 2011 00:00:00 -0000
  82 To:      recipient@example.com
  83 From:    sender@example.com
  84
  85 MIME-Version: 1.0
  86 Content-class: urn:content-classes:message
  87
  88 [ part 1.1 - text/plain -   29B  ]
  89 This is the text/plain part.
  90 EOF
  91
  92 show +inbox $msgnum > $actual || exit 1
  93
  94 check "$expected" "$actual" : show one MIME
  95
  96 # Test showing multiple MIME messages shows message numbers.
  97 # Currently fails.
  98
  99 cat > $expected <<EOF
 100 >>> inbox:1
 101
 102
 103 Date:    Fri, 29 Sep 2006 00:00:00
 104 To:      Some User <user@example.com>
 105 From:    Test1 <test1@example.com>
 106 Subject: Testing message 1
 107
 108
 109 [ part  - text/plain -   25B  ]
 110 This is message number 1
 111
 112 >>> inbox:$msgnum
 113
 114
 115 Date:    Thu, 19 May 2011 00:00:00 -0000
 116 To:      recipient@example.com
 117 From:    sender@example.com
 118
 119 MIME-Version: 1.0
 120 Content-class: urn:content-classes:message
 121
 122 [ part 1.1 - text/plain -   29B  ]
 123 This is the text/plain part.
 124 EOF
 125
 126 show +inbox 1 $msgnum > $actual || exit 1
 127
 128 check "$expected" "$actual" : show multiple mime
 129
 130 exit $failed