cc-test.sh

   1 #!/bin/sh -
   2 #@ Usage: ./cc-test.sh [--check-only [s-nail-binary]]
   3
   4 SNAIL=./s-nail
   5 CONF=./conf.rc
   6 BODY=./.cc-body.txt
   7 MBOX=./.cc-test.mbox
   8
   9 awk=${AWK:-`command -v awk`}
  10 cat=${CAT:-`command -v cat`}
  11 # TODO cksum not fixated via mk-conf.sh, mk.mk should export variables!!
  12 cksum=${cksum:-`command -v cksum`}
  13 MAKE="${MAKE:-`command -v make`}"
  14 rm=${RM:-`command -v rm`}
  15 sed=${SED:-`command -v sed`}
  16
  17 ##  --  >8  --  8<  --  ##
  18
  19 export SNAIL CONF BODY MBOX awk cat cksum MAKE rm sed
  20
  21 # NOTE!  UnixWare 7.1.4 gives ISO-10646-Minimum-European-Subset for
  22 # nl_langinfo(CODESET), then, so also overwrite ttycharset.
  23 # (In addition this setup allows us to succeed on TinyCore 4.4 that has no
  24 # other locales than C/POSIX installed by default!)
  25 LC=en_US.UTF-8
  26 LC_ALL=${LC} LANG=${LC}
  27 ttycharset=UTF-8
  28 export LC_ALL LANG ttycharset
  29
  30 ESTAT=0
  31
  32 usage() {
  33    echo >&2 "Usage: ./cc-test.sh [--check-only [s-nail-binary]]"
  34    exit 1
  35 }
  36
  37 CHECK_ONLY=
  38 [ ${#} -gt 0 ] && {
  39    [ "${1}" = --check-only ] || usage
  40    [ ${#} -gt 2 ] && usage
  41    [ ${#} -eq 2 ] && SNAIL="${2}"
  42    [ -x "${SNAIL}" ] || usage
  43    CHECK_ONLY=1
  44 }
  45
  46 # cc_all_configs()
  47 # Test all configs TODO doesn't cover all *combinations*, stupid!
  48 cc_all_configs() {
  49    < ${CONF} ${awk} '
  50       BEGIN {i = 0}
  51       /^[[:space:]]*WANT_/ {
  52          sub(/^[[:space:]]*/, "")
  53          sub(/=.*$/, "")
  54          data[i++] = $1
  55       }
  56       END {
  57          for (j = 0; j < i; ++j) {
  58             for (k = 0; k < j; ++k)
  59                printf data[k] "=1 "
  60             for (k = j; k < i; ++k)
  61                printf data[k] "=0 "
  62             printf "\n"
  63             for (k = 0; k < j; ++k)
  64                printf data[k] "=0 "
  65             for (k = j; k < i; ++k)
  66                printf data[k] "=1 "
  67             printf "\n"
  68          }
  69       }
  70    ' | while read c; do
  71       printf "\n\n##########\n$c\n"
  72       printf "\n\n##########\n$c\n" >&2
  73       sh -c "${MAKE} ${c}"
  74       t_all
  75       ${MAKE} distclean
  76    done
  77 }
  78
  79 # cksum_test()
  80 # Read mailbox $2, strip non-constant headers and MIME boundaries, query the
  81 # cksum(1) of the resulting data and compare against the checksum $3
  82 cksum_test() {
  83    tid=$1 f=$2 s=$3
  84    printf "${tid}: "
  85    csum="`${sed} -e '/^From /d' -e '/^Date: /d' \
  86          -e '/^ boundary=/d' -e '/^--=_/d' < \"${f}\" | ${cksum}`";
  87    if [ "${csum}" = "${s}" ]; then
  88       printf 'ok\n'
  89    else
  90       ESTAT=1
  91       printf 'error: checksum mismatch\n'
  92    fi
  93 }
  94
  95 # t_behave()
  96 # Basic (easily testable) behaviour tests
  97 t_behave() {
  98    # Test for [d1f1a19]
  99    ${rm} -f "${MBOX}"
 100    printf 'echo +nix\nset folder=/\necho +nix\nset nofolder\necho +nix\nx' |
 101       MAILRC=/dev/null "${SNAIL}" -n -# -SPAGER="${cat}" > "${MBOX}"
 102    cksum_test behave:1 "${MBOX}" '4214021069 15'
 103
 104    # POSIX: setting *noprompt*/prompt='' shall prevent prompting TODO
 105    # TODO for this to be testable we need a way to echo a variable
 106    # TODO or to force echo of the prompt
 107 }
 108
 109 # t_content()
 110 # Some basic tests regarding correct sending of mails, via STDIN / -t / -q,
 111 # including basic MIME Content-Transfer-Encoding correctness (quoted-printable)
 112 # Note we unfortunately need to place some statements without proper
 113 # indentation because of continuation problems
 114 t_content() {
 115    ${rm} -f "${BODY}" "${MBOX}"
 116
 117    # MIME CTE (QP) stress message body
 118 printf \
 119 'Ich bin eine DÖS-Datäi mit sehr langen Zeilen und auch '\
 120 'sonst bin ich ganz schön am Schleudern, da kannste denke '\
 121 "wasde willst, gelle, gelle, gelle, gelle, gelle.\r\n"\
 122 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst \r\n"\
 123 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 1\r\n"\
 124 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 12\r\n"\
 125 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 123\r\n"\
 126 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 1234\r\n"\
 127 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 12345\r\n"\
 128 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 123456\r\n"\
 129 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 1234567\r\n"\
 130 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 12345678\r\n"\
 131 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 123456789\r\n"\
 132 "Unn ausserdem habe ich trailing SP/HT/SP/HT whitespace                 \r\n"\
 133 "Unn ausserdem habe ich trailing HT/SP/HT/SP whitespace          \r\n"\
 134 "auf den zeilen vorher.\r\n"\
 135 "From am Zeilenbeginn und From der Mitte gibt es auch.\r\n"\
 136 ".\r\n"\
 137 "Die letzte Zeile war nur ein Punkt.\r\n"\
 138 "..\r\n"\
 139 "Das waren deren zwei.\r\n"\
 140 " \r\n"\
 141 "Die letzte Zeile war ein Leerschritt.\n"\
 142 "=VIER = EQUAL SIGNS=ON A LINE=\r\n"\
 143 "Prösterchen.\r\n"\
 144 ".\n"\
 145 "Die letzte Zeile war nur ein Punkt, mit Unix Zeilenende.\n"\
 146 "..\n"\
 147 "Das waren deren zwei.  ditto.\n"\
 148 "Prösterchen.\n"\
 149 "Unn ausseerdem habe ich trailing SP/HT/SP/HT whitespace                \n"\
 150 "Unn ausseerdem habe ich trailing HT/SP/HT/SP whitespace                 \n"\
 151 "auf den zeilen vorher.\n"\
 152 "ditto.\n"\
 153 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.\n"\
 154 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.1"\
 155 "\n"\
 156 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
 157 "\n"\
 158 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
 159 "3\n"\
 160 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
 161 "34\n"\
 162 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
 163 "345\n"\
 164 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
 165 "3456\n"\
 166 "=VIER = EQUAL SIGNS=ON A LINE=\n"\
 167 " \n"\
 168 "Die letzte Zeile war ein Leerschritt.\n"\
 169 ' '\
 170  > "${BODY}"
 171
 172    # MIME CTE (QP) stress message subject
 173 SUB='Äbrä  Kä?dä=brö        Fü?di=bus? '\
 174 'adadaddsssssssddddddddddddddddddddd'\
 175 'ddddddddddddddddddddddddddddddddddd'\
 176 'ddddddddddddddddddddddddddddddddddd'\
 177 'dddddddddddddddddddd Hallelulja? Od'\
 178 'er?? eeeeeeeeeeeeeeeeeeeeeeeeeeeeee'\
 179 'eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee'\
 180 'eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee f'\
 181 'fffffffffffffffffffffffffffffffffff'\
 182 'fffffffffffffffffffff ggggggggggggg'\
 183 'ggggggggggggggggggggggggggggggggggg'\
 184 'ggggggggggggggggggggggggggggggggggg'\
 185 'ggggggggggggggggggggggggggggggggggg'\
 186 'gggggggggggggggg'
 187
 188    # Three tests for MIME-CTE and (a bit) content classification.
 189    # At the same time testing -q FILE, < FILE and -t FILE
 190    ${rm} -f "${MBOX}"
 191    < "${BODY}" MAILRC=/dev/null \
 192    "${SNAIL}" -n -Sstealthmua -a "${BODY}" -s "${SUB}" "${MBOX}"
 193    cksum_test content:1 "${MBOX}" '2606934084 5649'
 194
 195    ${rm} -f "${MBOX}"
 196    < /dev/null MAILRC=/dev/null \
 197    "${SNAIL}" -n -Sstealthmua -a "${BODY}" -s "${SUB}" \
 198       -q "${BODY}" "${MBOX}"
 199    cksum_test content:2 "${MBOX}" '2606934084 5649'
 200
 201    ${rm} -f "${MBOX}"
 202    (  echo "To: ${MBOX}" && echo "Subject: ${SUB}" && echo &&
 203       ${cat} "${BODY}"
 204    ) | MAILRC=/dev/null "${SNAIL}" -n -Sstealthmua -a "${BODY}" -t
 205    cksum_test content:3 "${MBOX}" '799758423 5648'
 206
 207    # Test for [260e19d].  Juergen Daubert.
 208    ${rm} -f "${MBOX}"
 209    echo body | MAILRC=/dev/null "${SNAIL}" -n -Sstealthmua "${MBOX}"
 210    cksum_test content:4 "${MBOX}" '506144051 104'
 211
 212    # Sending of multiple mails in a single invocation
 213    ${rm} -f "${MBOX}"
 214    (  printf "m ${MBOX}\n~s subject1\nE-Mail Körper 1\n.\n" &&
 215       printf "m ${MBOX}\n~s subject2\nEmail body 2\n.\n" &&
 216       echo x
 217    ) | MAILRC=/dev/null "${SNAIL}" -n -# -Sstealthmua
 218    cksum_test content:5 "${MBOX}" '2028749685 277'
 219
 220    ${rm} -f "${BODY}" "${MBOX}"
 221 }
 222
 223 t_all() {
 224    t_behave
 225    t_content
 226 }
 227
 228 if [ -z "${CHECK_ONLY}" ]; then
 229    cc_all_configs
 230 else
 231    t_all
 232 fi
 233
 234 [ ${ESTAT} -eq 0 ] && echo Ok || echo >&2 'Errors occurred'
 235
 236 exit ${ESTAT}
 237 # vim:set fenc=utf8:s-it-mode