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          # This bails for UnixWare 7.1.4 awk(1), but preceeding = with \
  54          # does not seem to be a compliant escape for =
  55          #sub(/=.*$/, "")
  56          $1 = substr($1, 1, index($1, "=") - 1)
  57          if ($1 == "WANT_AUTOCC")
  58             next
  59          data[i++] = $1
  60       }
  61       END {
  62          for (j = 0; j < i; ++j) {
  63             for (k = 0; k < j; ++k)
  64                printf data[k] "=1 "
  65             for (k = j; k < i; ++k)
  66                printf data[k] "=0 "
  67             printf "WANT_AUTOCC=1\n"
  68             printf "\n"
  69
  70             for (k = 0; k < j; ++k)
  71                printf data[k] "=0 "
  72             for (k = j; k < i; ++k)
  73                printf data[k] "=1 "
  74             printf "WANT_AUTOCC=1\n"
  75             printf "\n"
  76          }
  77       }
  78    ' | while read c; do
  79       printf "\n\n##########\n$c\n"
  80       printf "\n\n##########\n$c\n" >&2
  81       sh -c "${MAKE} ${c}"
  82       t_all
  83       ${MAKE} distclean
  84    done
  85 }
  86
  87 # cksum_test()
  88 # Read mailbox $2, strip non-constant headers and MIME boundaries, query the
  89 # cksum(1) of the resulting data and compare against the checksum $3
  90 cksum_test() {
  91    tid=$1 f=$2 s=$3
  92    printf "${tid}: "
  93    csum="`${sed} -e '/^From /d' -e '/^Date: /d' \
  94          -e '/^ boundary=/d' -e '/^--=_/d' < \"${f}\" | ${cksum}`";
  95    if [ "${csum}" = "${s}" ]; then
  96       printf 'ok\n'
  97    else
  98       ESTAT=1
  99       printf 'error: checksum mismatch\n'
 100    fi
 101 }
 102
 103 # t_behave()
 104 # Basic (easily testable) behaviour tests
 105 t_behave() {
 106    # Test for [d1f1a19]
 107    ${rm} -f "${MBOX}"
 108    printf 'echo +nix\nset folder=/\necho +nix\nset nofolder\necho +nix\nx' |
 109       MAILRC=/dev/null "${SNAIL}" -n -# -SPAGER="${cat}" > "${MBOX}"
 110    cksum_test behave:1 "${MBOX}" '4214021069 15'
 111
 112    # POSIX: setting *noprompt*/prompt='' shall prevent prompting TODO
 113    # TODO for this to be testable we need a way to echo a variable
 114    # TODO or to force echo of the prompt
 115 }
 116
 117 # t_content()
 118 # Some basic tests regarding correct sending of mails, via STDIN / -t / -q,
 119 # including basic MIME Content-Transfer-Encoding correctness (quoted-printable)
 120 # Note we unfortunately need to place some statements without proper
 121 # indentation because of continuation problems
 122 t_content() {
 123    ${rm} -f "${BODY}" "${MBOX}"
 124
 125    # MIME CTE (QP) stress message body
 126 printf \
 127 'Ich bin eine DÖS-Datäi mit sehr langen Zeilen und auch '\
 128 'sonst bin ich ganz schön am Schleudern, da kannste denke '\
 129 "wasde willst, gelle, gelle, gelle, gelle, gelle.\r\n"\
 130 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst \r\n"\
 131 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 1\r\n"\
 132 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 12\r\n"\
 133 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 123\r\n"\
 134 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 1234\r\n"\
 135 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 12345\r\n"\
 136 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 123456\r\n"\
 137 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 1234567\r\n"\
 138 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 12345678\r\n"\
 139 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 123456789\r\n"\
 140 "Unn ausserdem habe ich trailing SP/HT/SP/HT whitespace                 \r\n"\
 141 "Unn ausserdem habe ich trailing HT/SP/HT/SP whitespace          \r\n"\
 142 "auf den zeilen vorher.\r\n"\
 143 "From am Zeilenbeginn und From der Mitte gibt es auch.\r\n"\
 144 ".\r\n"\
 145 "Die letzte Zeile war nur ein Punkt.\r\n"\
 146 "..\r\n"\
 147 "Das waren deren zwei.\r\n"\
 148 " \r\n"\
 149 "Die letzte Zeile war ein Leerschritt.\n"\
 150 "=VIER = EQUAL SIGNS=ON A LINE=\r\n"\
 151 "Prösterchen.\r\n"\
 152 ".\n"\
 153 "Die letzte Zeile war nur ein Punkt, mit Unix Zeilenende.\n"\
 154 "..\n"\
 155 "Das waren deren zwei.  ditto.\n"\
 156 "Prösterchen.\n"\
 157 "Unn ausseerdem habe ich trailing SP/HT/SP/HT whitespace                \n"\
 158 "Unn ausseerdem habe ich trailing HT/SP/HT/SP whitespace                 \n"\
 159 "auf den zeilen vorher.\n"\
 160 "ditto.\n"\
 161 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.\n"\
 162 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.1"\
 163 "\n"\
 164 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
 165 "\n"\
 166 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
 167 "3\n"\
 168 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
 169 "34\n"\
 170 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
 171 "345\n"\
 172 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
 173 "3456\n"\
 174 "=VIER = EQUAL SIGNS=ON A LINE=\n"\
 175 " \n"\
 176 "Die letzte Zeile war ein Leerschritt.\n"\
 177 ' '\
 178  > "${BODY}"
 179
 180    # MIME CTE (QP) stress message subject
 181 SUB='Äbrä  Kä?dä=brö        Fü?di=bus? '\
 182 'adadaddsssssssddddddddddddddddddddd'\
 183 'ddddddddddddddddddddddddddddddddddd'\
 184 'ddddddddddddddddddddddddddddddddddd'\
 185 'dddddddddddddddddddd Hallelulja? Od'\
 186 'er?? eeeeeeeeeeeeeeeeeeeeeeeeeeeeee'\
 187 'eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee'\
 188 'eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee f'\
 189 'fffffffffffffffffffffffffffffffffff'\
 190 'fffffffffffffffffffff ggggggggggggg'\
 191 'ggggggggggggggggggggggggggggggggggg'\
 192 'ggggggggggggggggggggggggggggggggggg'\
 193 'ggggggggggggggggggggggggggggggggggg'\
 194 'gggggggggggggggg'
 195
 196    # Three tests for MIME-CTE and (a bit) content classification.
 197    # At the same time testing -q FILE, < FILE and -t FILE
 198    ${rm} -f "${MBOX}"
 199    < "${BODY}" MAILRC=/dev/null \
 200    "${SNAIL}" -n -Sstealthmua -a "${BODY}" -s "${SUB}" "${MBOX}"
 201    cksum_test content:1 "${MBOX}" '2606934084 5649'
 202
 203    ${rm} -f "${MBOX}"
 204    < /dev/null MAILRC=/dev/null \
 205    "${SNAIL}" -n -Sstealthmua -a "${BODY}" -s "${SUB}" \
 206       -q "${BODY}" "${MBOX}"
 207    cksum_test content:2 "${MBOX}" '2606934084 5649'
 208
 209    ${rm} -f "${MBOX}"
 210    (  echo "To: ${MBOX}" && echo "Subject: ${SUB}" && echo &&
 211       ${cat} "${BODY}"
 212    ) | MAILRC=/dev/null "${SNAIL}" -n -Sstealthmua -a "${BODY}" -t
 213    cksum_test content:3 "${MBOX}" '799758423 5648'
 214
 215    # Test for [260e19d].  Juergen Daubert.
 216    ${rm} -f "${MBOX}"
 217    echo body | MAILRC=/dev/null "${SNAIL}" -n -Sstealthmua "${MBOX}"
 218    cksum_test content:4 "${MBOX}" '506144051 104'
 219
 220    # Sending of multiple mails in a single invocation
 221    ${rm} -f "${MBOX}"
 222    (  printf "m ${MBOX}\n~s subject1\nE-Mail Körper 1\n.\n" &&
 223       printf "m ${MBOX}\n~s subject2\nEmail body 2\n.\n" &&
 224       echo x
 225    ) | MAILRC=/dev/null "${SNAIL}" -n -# -Sstealthmua
 226    cksum_test content:5 "${MBOX}" '2028749685 277'
 227
 228    ${rm} -f "${BODY}" "${MBOX}"
 229 }
 230
 231 t_all() {
 232    t_behave
 233    t_content
 234 }
 235
 236 if [ -z "${CHECK_ONLY}" ]; then
 237    cc_all_configs
 238 else
 239    t_all
 240 fi
 241
 242 [ ${ESTAT} -eq 0 ] && echo Ok || echo >&2 'Errors occurred'
 243
 244 exit ${ESTAT}
 245 # vim:set fenc=utf8:s-it-mode