2 #@ Usage: ./cc-test.sh [--check-only [s-nail-binary]]
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`}
19 export SNAIL CONF BODY MBOX
awk cat cksum MAKE
rm sed
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!)
26 LC_ALL
=${LC} LANG
=${LC}
28 export LC_ALL LANG ttycharset
33 echo >&2 "Usage: ./cc-test.sh [--check-only [s-nail-binary]]"
39 [ "${1}" = --check-only ] || usage
40 [ ${#} -gt 2 ] && usage
41 [ ${#} -eq 2 ] && SNAIL
="${2}"
42 [ -x "${SNAIL}" ] || usage
47 # Test all configs TODO doesn't cover all *combinations*, stupid!
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 =
56 $1 = substr($1, 1, index($1, "=") - 1)
57 if ($1 == "WANT_AUTOCC")
62 for (j = 0; j < i; ++j) {
63 for (k = 0; k < j; ++k)
65 for (k = j; k < i; ++k)
67 printf "WANT_AUTOCC=1\n"
70 for (k = 0; k < j; ++k)
72 for (k = j; k < i; ++k)
74 printf "WANT_AUTOCC=1\n"
79 printf "\n\n##########\n$c\n"
80 printf "\n\n##########\n$c\n" >&2
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
93 csum
="`${sed} -e '/^From /d' -e '/^Date: /d' \
94 -e '/^ boundary=/d' -e '/^--=_/d' < \"${f}\" | ${cksum}`";
95 if [ "${csum}" = "${s}" ]; then
99 printf 'error: checksum mismatch\n'
104 # Basic (easily testable) behaviour tests
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'
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
120 # Nestable conditions test
122 cat <<- '__EOT' | MAILRC=/dev/null "${SNAIL}" -n -# > "${MBOX}"
144 if $dietcurd == 'yoho'
149 if $dietcurd != 'yoho'
210 cksum_test behave
:2 "${MBOX}" '1909382116 98'
214 # Some basic tests regarding correct sending of mails, via STDIN / -t / -q,
215 # including basic MIME Content-Transfer-Encoding correctness (quoted-printable)
216 # Note we unfortunately need to place some statements without proper
217 # indentation because of continuation problems
219 ${rm} -f "${BODY}" "${MBOX}"
221 # MIME CTE (QP) stress message body
223 'Ich bin eine DÖS-Datäi mit sehr langen Zeilen und auch '\
224 'sonst bin ich ganz schön am Schleudern, da kannste denke '\
225 "wasde willst
, gelle
, gelle
, gelle
, gelle
, gelle.
\r\n"\
226 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst
\r\n"\
227 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst
1\r\n"\
228 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst
12\r\n"\
229 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst
123\r\n"\
230 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst
1234\r\n"\
231 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst
12345\r\n"\
232 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst
123456\r\n"\
233 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst
1234567\r\n"\
234 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst
12345678\r\n"\
235 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst
123456789\r\n"\
236 "Unn ausserdem habe ich trailing SP
/HT
/SP
/HT whitespace
\r\n"\
237 "Unn ausserdem habe ich trailing HT
/SP
/HT
/SP whitespace
\r\n"\
238 "auf den zeilen vorher.
\r\n"\
239 "From am Zeilenbeginn und From der Mitte gibt es auch.
\r\n"\
241 "Die letzte Zeile war nur ein Punkt.
\r\n"\
243 "Das waren deren zwei.
\r\n"\
245 "Die letzte Zeile war ein Leerschritt.
\n"\
246 "=VIER
= EQUAL SIGNS
=ON A LINE
=\r\n"\
249 "Die letzte Zeile war nur ein Punkt
, mit Unix Zeilenende.
\n"\
251 "Das waren deren zwei. ditto.
\n"\
253 "Unn ausseerdem habe ich trailing SP
/HT
/SP
/HT whitespace
\n"\
254 "Unn ausseerdem habe ich trailing HT
/SP
/HT
/SP whitespace
\n"\
255 "auf den zeilen vorher.
\n"\
257 "Ich bin eine ziemlich lange
, steile
, scharfe Zeile mit Unix Zeilenende.
\n"\
258 "Ich bin eine ziemlich lange
, steile
, scharfe Zeile mit Unix Zeilenende
.1"\
260 "Ich bin eine ziemlich lange
, steile
, scharfe Zeile mit Unix Zeilenende
.12"\
262 "Ich bin eine ziemlich lange
, steile
, scharfe Zeile mit Unix Zeilenende
.12"\
264 "Ich bin eine ziemlich lange
, steile
, scharfe Zeile mit Unix Zeilenende
.12"\
266 "Ich bin eine ziemlich lange
, steile
, scharfe Zeile mit Unix Zeilenende
.12"\
268 "Ich bin eine ziemlich lange
, steile
, scharfe Zeile mit Unix Zeilenende
.12"\
270 "=VIER
= EQUAL SIGNS
=ON A LINE
=\n"\
272 "Die letzte Zeile war ein Leerschritt.
\n"\
276 # MIME CTE (QP) stress message subject
277 SUB='Äbrä Kä?dä=brö Fü?di=bus? '\
278 'adadaddsssssssddddddddddddddddddddd'\
279 'ddddddddddddddddddddddddddddddddddd'\
280 'ddddddddddddddddddddddddddddddddddd'\
281 'dddddddddddddddddddd Hallelulja? Od'\
282 'er?? eeeeeeeeeeeeeeeeeeeeeeeeeeeeee'\
283 'eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee'\
284 'eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee f'\
285 'fffffffffffffffffffffffffffffffffff'\
286 'fffffffffffffffffffff ggggggggggggg'\
287 'ggggggggggggggggggggggggggggggggggg'\
288 'ggggggggggggggggggggggggggggggggggg'\
289 'ggggggggggggggggggggggggggggggggggg'\
292 # Three tests for MIME-CTE and (a bit) content classification.
293 # At the same time testing -q FILE, < FILE and -t FILE
295 < "${BODY}" MAILRC=/dev/null \
296 "${SNAIL}" -n -Sstealthmua -a "${BODY}" -s "${SUB}" "${MBOX}"
297 cksum_test content:1 "${MBOX}" '2606934084 5649'
300 < /dev/null MAILRC=/dev/null \
301 "${SNAIL}" -n -Sstealthmua -a "${BODY}" -s "${SUB}" \
302 -q "${BODY}" "${MBOX}"
303 cksum_test content:2 "${MBOX}" '2606934084 5649'
306 ( echo "To
: ${MBOX}" && echo "Subject
: ${SUB}" && echo &&
308 ) | MAILRC=/dev/null "${SNAIL}" -n -Sstealthmua -a "${BODY}" -t
309 cksum_test content:3 "${MBOX}" '799758423 5648'
311 # Test for [260e19d]. Juergen Daubert.
313 echo body | MAILRC=/dev/null "${SNAIL}" -n -Sstealthmua "${MBOX}"
314 cksum_test content:4 "${MBOX}" '506144051 104'
316 # Sending of multiple mails in a single invocation
318 ( printf "m
${MBOX}\n~s subject1
\nE
-Mail Körper
1\n.
\n" &&
319 printf "m
${MBOX}\n~s subject2
\nEmail body
2\n.
\n" &&
321 ) | MAILRC=/dev/null "${SNAIL}" -n -# -Sstealthmua
322 cksum_test content:5 "${MBOX}" '2028749685 277'
324 ${rm} -f "${BODY}" "${MBOX}"
332 if [ -z "${CHECK_ONLY}" ]; then
338 [ ${ESTAT} -eq 0 ] && echo Ok ||
echo >&2 'Errors occurred'
341 # vim:set fenc=utf8:s-it-mode