?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
cc-test.sh: ARGH! MBOX content statistics not portable! (Gaetan Bisson)
[s-mailx.git] / cc-test.sh
blobfa11328159ca52ab4f30d9643b6bd7b96a19c47e
1 #!/bin/sh -
2 #@ Synopsis: ./cc-test.sh [--check-only s-mailx-binary]
3 #@ ./cc-test.sh --mae-test s-mailx-binary [:TESTNAME:]
4 #@ The latter generates output files.
5 #@ TODO All ex0_test should say TESTNUMBER-estat instead of having own numbers
6 #@ TODO _All_ the tests should happen in a temporary subdir.
7 # Public Domain
8
9 # Instead of figuring out the environment in here, require a configured build
10 # system and include that! Our makefile and configure ensure that this test
11 # does not run in the configured, but the user environment nonetheless!
12 if [ -f ./mk-config.ev ]; then
13 . ./mk-config.ev
14 if [ -z "${MAILX__CC_TEST_RUNNING}" ]; then
15 MAILX__CC_TEST_RUNNING=1
16 export MAILX__CC_TEST_RUNNING
17 exec "${SHELL}" "${0}" "${@}"
18 fi
19 else
20 echo >&2 'S-nail/S-mailx is not configured.'
21 echo >&2 'This test script requires the shell environment that only the'
22 echo >&2 'configuration script can figure out, even if it will be used to'
23 echo >&2 'test a different binary than the one that would be produced!'
24 exit 41
25 fi
26
27 # We need *stealthmua* regardless of $SOURCE_DATE_EPOCH, the program name as
28 # such is a compile-time variable
29 ARGS='-:/ -# -Sdotlock-ignore-error -Sexpandaddr=restrict'
30 ARGS="${ARGS}"' -Smime-encoding=quoted-printable -Snosave -Sstealthmua'
31 ADDARG_UNI=-Sttycharset=UTF-8
32 CONF=./make.rc
33 BODY=./.cc-body.txt
34 MBOX=./.cc-test.mbox
35 MAIL=/dev/null
36 #UTF8_LOCALE= autodetected unless set
37
38 # Note valgrind has problems with FDs in forked childs, which causes some tests
39 # to fail (the FD is rewound and thus will be dumped twice)
40 MEMTESTER=
41 #MEMTESTER='valgrind --leak-check=full --log-file=.vl-%p '
42
43 ## -- (>8 -- 8<) -- ##
44
45 ( set -o noglob ) >/dev/null 2>&1 && noglob_shell=1 || unset noglob_shell
46
47 msg() {
48 fmt=${1}
49 shift
50 printf >&2 -- "${fmt}\\n" "${@}"
51 }
52
53 ## -- >8 -- 8< -- ##
54
55 export ARGS ADDARG_UNI CONF BODY MBOX MAIL MAKE awk cat cksum rm sed grep
56
57 LC_ALL=C LANG=C
58 TZ=UTC
59 # Wed Oct 2 01:50:07 UTC 1996
60 SOURCE_DATE_EPOCH=844221007
61
62 export LC_ALL LANG TZ SOURCE_DATE_EPOCH
63 unset POSIXLY_CORRECT LOGNAME USER
64
65 usage() {
66 echo >&2 "Synopsis: ./cc-test.sh [--check-only s-mailx-binary]"
67 echo >&2 "Synopsis: ./cc-test.sh --mae-test s-mailx-binary [:TESTNAME:]"
68 exit 1
69 }
70
71 CHECK_ONLY= MAE_TEST= MAILX=
72 if [ "${1}" = --check-only ]; then
73 CHECK_ONLY=1
74 MAILX=${2}
75 [ -x "${MAILX}" ] || usage
76 shift 2
77 elif [ "${1}" = --mae-test ]; then
78 MAE_TEST=1
79 MAILX=${2}
80 [ -x "${MAILX}" ] || usage
81 shift 2
82 fi
83 RAWMAILX=${MAILX}
84 MAILX="${MEMTESTER}${MAILX}"
85 export RAWMAILX MAILX
86
87 if [ -n "${CHECK_ONLY}${MAE_TEST}" ] && [ -z "${UTF8_LOCALE}" ]; then
88 # Try ourselfs for nl_langinfo(CODESET) output first (requires a new version)
89 i=`LC_ALL=C.utf8 "${RAWMAILX}" ${ARGS} -X '
90 \define cset_test {
91 \if [ "${ttycharset}" @i=% utf ]
92 \echo $LC_ALL
93 \xit 0
94 \end
95 \if [ "${#}" -gt 0 ]
96 \wysh set LC_ALL=${1}
97 \shift
98 \eval xcall cset_test "${@}"
99 \end
100 \xit 1
101 }
102 \call cset_test C.UTF-8 POSIX.utf8 POSIX.UTF-8 en_EN.utf8 en_EN.UTF-8 \
103 en_US.utf8 en_US.UTF-8
104 '`
105 [ $? -eq 0 ] && UTF8_LOCALE=$i
106
107 if [ -z "${UTF8_LOCALE}" ] && (locale yesexpr) >/dev/null 2>&1; then
108 UTF8_LOCALE=`locale -a | { m=
109 while read n; do
110 if { echo ${n} | ${grep} -i 'utf-\{0,1\}8'; } >/dev/null 2>&1; then
111 m=${n}
112 if { echo ${n} | ${grep} -e POSIX -e en_EN -e en_US; }; then
113 exit 0
114 fi
115 fi
116 m=${n}
117 done
118 echo ${m}
119 }`
120 fi
121 fi
122
123 ESTAT=0
124
125 TRAP_EXIT_ADDONS=
126 trap "${rm} -rf \"${BODY}\" \"${MBOX}\" \${TRAP_EXIT_ADDONS}" EXIT
127 trap "exit 1" HUP INT TERM
128
129 # cc_all_configs()
130 # Test all configs TODO doesn't cover all *combinations*, stupid!
131 cc_all_configs() {
132 < ${CONF} ${awk} '
133 BEGIN {
134 NOTME["OPT_AUTOCC"] = 1
135 NOTME["OPT_DEBUG"] = 1
136 NOTME["OPT_DEVEL"] = 1
137 NOTME["OPT_ASAN_ADDRESS"] = 1
138 NOTME["OPT_ASAN_MEMORY"] = 1
139 NOTME["OPT_FORCED_STACKPROT"] = 1
140 NOTME["OPT_NOMEMDBG"] = 1
141 NOTME["OPT_NYD2"] = 1
142 i = 0
143 }
144 /^[[:space:]]*OPT_/ {
145 sub(/^[[:space:]]*/, "")
146 # This bails for UnixWare 7.1.4 awk(1), but preceeding = with \
147 # does not seem to be a compliant escape for =
148 #sub(/=.*$/, "")
149 $1 = substr($1, 1, index($1, "=") - 1)
150 if (NOTME[$1])
151 next
152 data[i++] = $1
153 }
154 END {
155 # Doing this completely sequentially and not doing make distclean in
156 # between runs should effectively result in lesser compilations.
157 # It is completely dumb nonetheless... TODO
158 for (j = 1; j < i; ++j) {
159 for (k = 1; k < j; ++k)
160 printf data[k] "=1 "
161 for (k = j; k < i; ++k)
162 printf data[k] "=0 "
163 printf "OPT_AUTOCC=1\n"
164 }
165 for (j = 1; j < i; ++j) {
166 for (k = 1; k < j; ++k)
167 printf data[k] "=0 "
168 for (k = j; k < i; ++k)
169 printf data[k] "=1 "
170 printf "OPT_AUTOCC=1\n"
171 }
172 # With debug
173 for (j = 1; j < i; ++j) {
174 for (k = 1; k < j; ++k)
175 printf data[k] "=1 "
176 for (k = j; k < i; ++k)
177 printf data[k] "=0 "
178 printf "OPT_AUTOCC=1\n"
179 printf "OPT_DEBUG=1\n"
180 }
181 for (j = 1; j < i; ++j) {
182 for (k = 1; k < j; ++k)
183 printf data[k] "=0 "
184 for (k = j; k < i; ++k)
185 printf data[k] "=1 "
186 printf "OPT_AUTOCC=1\n"
187 printf "OPT_DEBUG=1\n"
188 }
189
190 printf "CONFIG=NULL OPT_AUTOCC=0\n"
191 printf "CONFIG=NULL OPT_AUTOCC=1\n"
192 printf "CONFIG=NULLI OPT_AUTOCC=0\n"
193 printf "CONFIG=NULLI OPT_AUTOCC=1\n"
194 printf "CONFIG=MINIMAL OPT_AUTOCC=0\n"
195 printf "CONFIG=MINIMAL OPT_AUTOCC=1\n"
196 printf "CONFIG=NETSEND OPT_AUTOCC=0\n"
197 printf "CONFIG=NETSEND OPT_AUTOCC=1\n"
198 printf "CONFIG=MAXIMAL OPT_AUTOCC=0\n"
199 printf "CONFIG=MAXIMAL OPT_AUTOCC=1\n"
200 printf "CONFIG=DEVEL OPT_AUTOCC=0\n"
201 printf "CONFIG=DEVEL OPT_AUTOCC=1\n"
202 printf "CONFIG=ODEVEL OPT_AUTOCC=0\n"
203 printf "CONFIG=ODEVEL OPT_AUTOCC=1\n"
204 }
205 ' | while read c; do
206 printf "\n\n##########\n$c\n"
207 printf "\n\n##########\n$c\n" >&2
208 sh -c "${MAKE} ${c} all test"
209 done
210 ${MAKE} distclean
211 }
212
213 have_feat() {
214 ( "${RAWMAILX}" ${ARGS} -X'echo $features' -Xx |
215 ${grep} +${1} ) >/dev/null 2>&1
216 }
217
218 t_prolog() {
219 ${rm} -rf "${BODY}" "${MBOX}" ${TRAP_EXIT_ADDONS}
220 TRAP_EXIT_ADDONS=
221 [ ${#} -gt 0 ] && printf '[%s]\n' "${1}"
222 }
223 t_epilog() {
224 t_prolog
225 }
226
227 check() {
228 restat=${?} tid=${1} eestat=${2} f=${3} s=${4}
229 [ "${eestat}" != - ] && [ "${restat}" != "${eestat}" ] &&
230 err "${tid}" 'unexpected exit status: '"${restat} != ${eestat}"
231 csum="`${cksum} < ${f}`"
232 if [ "${csum}" = "${s}" ]; then
233 printf '%s: ok\n' "${tid}"
234 else
235 ESTAT=1
236 printf '%s: error: checksum mismatch (got %s)\n' "${tid}" "${csum}"
237 fi
238 if [ -n "${MAE_TEST}" ]; then
239 x=`echo ${tid} | ${tr} "/:=" "__-"`
240 ${cp} -f "${f}" ./mae-test-"${x}"
241 fi
242 }
243
244 err() {
245 ESTAT=1
246 printf '%s: error: %s\n' ${1} "${2}"
247 }
248
249 ex0_test() {
250 # $1=test name [$2=status]
251 __qm__=${?}
252 [ ${#} -gt 1 ] && __qm__=${2}
253 if [ ${__qm__} -ne 0 ]; then
254 err $1 'unexpected non-0 exit status'
255 else
256 printf '%s: ok\n' "${1}"
257 fi
258 }
259
260 exn0_test() {
261 # $1=test name [$2=status]
262 __qm__=${?}
263 [ ${#} -gt 1 ] && __qm__=${2}
264 if [ ${__qm__} -eq 0 ]; then
265 err $1 'unexpected 0 exit status'
266 else
267 printf '%s: ok\n' "${1}"
268 fi
269 }
270
271 if ( [ "$((1 + 1))" = 2 ] ) >/dev/null 2>&1; then
272 add() {
273 echo "$((${1} + ${2}))"
274 }
275 else
276 add() {
277 echo `${awk} 'BEGIN{print '${1}' + '${2}'}'`
278 }
279 fi
280
281 if ( [ "$((2 % 3))" = 2 ] ) >/dev/null 2>&1; then
282 modulo() {
283 echo "$((${1} % ${2}))"
284 }
285 else
286 modulo() {
287 echo `${awk} 'BEGIN{print '${1}' % '${2}'}'`
288 }
289 fi
290
291 # t_behave()
292 # Basic (easily testable) behaviour tests
293 t_behave() {
294 t_behave_X_opt_input_command_stack
295 t_behave_X_errexit
296 t_behave_S_freeze
297 t_behave_wysh
298 t_behave_input_inject_semicolon_seq
299 t_behave_commandalias
300 t_behave_ifelse
301 t_behave_localopts
302 t_behave_local
303 t_behave_macro_param_shift
304 t_behave_addrcodec
305 t_behave_vexpr
306 t_behave_call_ret
307 t_behave_xcall
308 t_behave_vpospar
309 t_behave_atxplode
310 t_behave_read
311
312 t_behave_mbox
313 t_behave_maildir
314 t_behave_record_a_resend
315 t_behave_e_H_L_opts
316
317 t_behave_alternates
318 t_behave_alias
319 # FIXME t_behave_mlist
320 t_behave_filetype
321
322 t_behave_message_injections
323 t_behave_attachments
324 t_behave_compose_hooks
325 t_behave_C_opt_customhdr
326
327 t_behave_mass_recipients
328 t_behave_mime_types_load_control
329 t_behave_lreply_futh_rth_etc
330
331 t_behave_xxxheads_rfc2047
332 t_behave_rfc2231
333 t_behave_iconv_mbyte_base64
334 t_behave_iconv_mainbody
335 t_behave_binary_mainbody
336 t_behave_q_t_etc_opts
337
338 t_behave_s_mime
339 }
340
341 t_behave_X_opt_input_command_stack() {
342 t_prolog t_behave_X_opt_input_command_stack
343
344 ${cat} <<- '__EOT' > "${BODY}"
345 echo 1
346 define mac0 {
347 echo mac0-1 via1 $0
348 }
349 call mac0
350 echo 2
351 source '\
352 echo "define mac1 {";\
353 echo " echo mac1-1 via1 \$0";\
354 echo " call mac0";\
355 echo " echo mac1-2";\
356 echo " call mac2";\
357 echo " echo mac1-3";\
358 echo "}";\
359 echo "echo 1-1";\
360 echo "define mac2 {";\
361 echo " echo mac2-1 via1 \$0";\
362 echo " call mac0";\
363 echo " echo mac2-2";\
364 echo "}";\
365 echo "echo 1-2";\
366 echo "call mac1";\
367 echo "echo 1-3";\
368 echo "source \"\
369 echo echo 1-1-1 via1 \$0;\
370 echo call mac0;\
371 echo echo 1-1-2;\
372 | \"";\
373 echo "echo 1-4";\
374 | '
375 echo 3
376 call mac2
377 echo 4
378 undefine *
379 __EOT
380
381 # The -X option supports multiline arguments, and those can internally use
382 # reverse solidus newline escaping. And all -X options are joined...
383 APO=\'
384 < "${BODY}" ${MAILX} ${ARGS} \
385 -X 'e\' \
386 -X ' c\' \
387 -X ' h\' \
388 -X ' o \' \
389 -X 1 \
390 -X'
391 define mac0 {
392 echo mac0-1 via2 $0
393 }
394 call mac0
395 echo 2
396 ' \
397 -X'
398 source '${APO}'\
399 echo "define mac1 {";\
400 echo " echo mac1-1 via2 \$0";\
401 echo " call mac0";\
402 echo " echo mac1-2";\
403 echo " call mac2";\
404 echo " echo mac1-3";\
405 echo "}";\
406 echo "echo 1-1";\
407 echo "define mac2 {";\
408 echo " echo mac2-1 via2 \$0";\
409 echo " call mac0";\
410 echo " echo mac2-2";\
411 echo "}";\
412 echo "echo 1-2";\
413 echo "call mac1";\
414 echo "echo 1-3";\
415 echo "source \"\
416 echo echo 1-1-1 via2 \$0;\
417 echo call mac0;\
418 echo echo 1-1-2;\
419 | \"";\
420 echo "echo 1-4";\
421 | '${APO}'
422 echo 3
423 ' \
424 -X'
425 call mac2
426 echo 4
427 undefine *
428 ' > "${MBOX}"
429
430 check behave:x_opt_input_command_stack 0 "${MBOX}" '1786542668 416'
431
432 t_epilog
433 }
434
435 t_behave_X_errexit() {
436 t_prolog t_behave_X_errexit
437
438 ${cat} <<- '__EOT' > "${BODY}"
439 echo one
440 echos nono
441 echo two
442 __EOT
443
444 </dev/null ${MAILX} ${ARGS} -Snomemdebug \
445 -X'echo one' -X' echos nono ' -X'echo two' \
446 > "${MBOX}" 2>&1
447 check behave:x_errexit-1 0 "${MBOX}" '916157812 53'
448
449 </dev/null ${MAILX} ${ARGS} -X'source '"${BODY}" -Snomemdebug \
450 > "${MBOX}" 2>&1
451 check behave:x_errexit-2 0 "${MBOX}" '916157812 53'
452
453 </dev/null MAILRC="${BODY}" ${MAILX} ${ARGS} -:u -Snomemdebug \
454 > "${MBOX}" 2>&1
455 check behave:x_errexit-3 0 "${MBOX}" '916157812 53'
456
457 ##
458
459 </dev/null ${MAILX} ${ARGS} -Serrexit -Snomemdebug \
460 -X'echo one' -X' echos nono ' -X'echo two' \
461 > "${MBOX}" 2>&1
462 check behave:x_errexit-4 1 "${MBOX}" '2118430867 49'
463
464 </dev/null ${MAILX} ${ARGS} -X'source '"${BODY}" -Serrexit -Snomemdebug \
465 > "${MBOX}" 2>&1
466 check behave:x_errexit-5 1 "${MBOX}" '2118430867 49'
467
468 </dev/null MAILRC="${BODY}" ${MAILX} ${ARGS} -:u -Serrexit -Snomemdebug \
469 > "${MBOX}" 2>&1
470 check behave:x_errexit-6 1 "${MBOX}" '12955965 172'
471
472 </dev/null MAILRC="${BODY}" ${MAILX} ${ARGS} -:u -Sposix -Snomemdebug \
473 > "${MBOX}" 2>&1
474 check behave:x_errexit-7 1 "${MBOX}" '12955965 172'
475
476 ## Repeat 4-7 with ignerr set
477
478 ${sed} -e 's/^echos /ignerr echos /' < "${BODY}" > "${MBOX}"
479
480 </dev/null ${MAILX} ${ARGS} -Serrexit -Snomemdebug \
481 -X'echo one' -X'ignerr echos nono ' -X'echo two' \
482 > "${BODY}" 2>&1
483 check behave:x_errexit-8 0 "${BODY}" '916157812 53'
484
485 </dev/null ${MAILX} ${ARGS} -X'source '"${MBOX}" -Serrexit -Snomemdebug \
486 > "${BODY}" 2>&1
487 check behave:x_errexit-9 0 "${BODY}" '916157812 53'
488
489 </dev/null MAILRC="${MBOX}" ${MAILX} ${ARGS} -:u -Serrexit -Snomemdebug \
490 > "${BODY}" 2>&1
491 check behave:x_errexit-10 0 "${BODY}" '916157812 53'
492
493 </dev/null MAILRC="${MBOX}" ${MAILX} ${ARGS} -:u -Sposix -Snomemdebug \
494 > "${BODY}" 2>&1
495 check behave:x_errexit-11 0 "${BODY}" '916157812 53'
496
497 t_epilog
498 }
499
500 t_behave_S_freeze() {
501 t_prolog t_behave_S_freeze
502 oterm=$TERM
503 unset TERM
504
505 # Test basic assumption
506 </dev/null MAILRC="${BODY}" ${MAILX} ${ARGS} \
507 -X'echo asksub<$asksub> dietcurd<$dietcurd>' \
508 -Xx > "${MBOX}" 2>&1
509 check behave:s_freeze-1 0 "${MBOX}" '270686329 21'
510
511 #
512 ${cat} <<- '__EOT' > "${BODY}"
513 echo asksub<$asksub>
514 set asksub
515 echo asksub<$asksub>
516 __EOT
517 </dev/null MAILRC="${BODY}" ${MAILX} ${ARGS} -:u \
518 -Snoasksub -Sasksub -Snoasksub \
519 -X'echo asksub<$asksub>' -X'set asksub' -X'echo asksub<$asksub>' \
520 -Xx > "${MBOX}" 2>&1
521 check behave:s_freeze-2 0 "${MBOX}" '3182942628 37'
522
523 ${cat} <<- '__EOT' > "${BODY}"
524 echo asksub<$asksub>
525 unset asksub
526 echo asksub<$asksub>
527 __EOT
528 </dev/null MAILRC="${BODY}" ${MAILX} ${ARGS} -:u \
529 -Snoasksub -Sasksub \
530 -X'echo asksub<$asksub>' -X'unset asksub' -X'echo asksub<$asksub>' \
531 -Xx > "${MBOX}" 2>&1
532 check behave:s_freeze-3 0 "${MBOX}" '2006554293 39'
533
534 #
535 ${cat} <<- '__EOT' > "${BODY}"
536 echo dietcurd<$dietcurd>
537 set dietcurd=cherry
538 echo dietcurd<$dietcurd>
539 __EOT
540 </dev/null MAILRC="${BODY}" ${MAILX} ${ARGS} -:u \
541 -Sdietcurd=strawberry -Snodietcurd -Sdietcurd=vanilla \
542 -X'echo dietcurd<$dietcurd>' -X'unset dietcurd' \
543 -X'echo dietcurd<$dietcurd>' \
544 -Xx > "${MBOX}" 2>&1
545 check behave:s_freeze-4 0 "${MBOX}" '1985768109 65'
546
547 ${cat} <<- '__EOT' > "${BODY}"
548 echo dietcurd<$dietcurd>
549 unset dietcurd
550 echo dietcurd<$dietcurd>
551 __EOT
552 </dev/null MAILRC="${BODY}" ${MAILX} ${ARGS} -:u \
553 -Sdietcurd=strawberry -Snodietcurd \
554 -X'echo dietcurd<$dietcurd>' -X'set dietcurd=vanilla' \
555 -X'echo dietcurd<$dietcurd>' \
556 -Xx > "${MBOX}" 2>&1
557 check behave:s_freeze-5 0 "${MBOX}" '151574279 51'
558
559 # TODO once we have a detached one with env=1..
560 if [ -n "`</dev/null ${MAILX} ${ARGS} -X'!echo \$TERM' -Xx`" ]; then
561 echo 'behave:s_freeze-{6,7}: shell sets $TERM, skipped'
562 else
563 ${cat} <<- '__EOT' > "${BODY}"
564 !echo "shell says TERM<$TERM>"
565 echo TERM<$TERM>
566 !echo "shell says TERM<$TERM>"
567 set TERM=cherry
568 !echo "shell says TERM<$TERM>"
569 echo TERM<$TERM>
570 !echo "shell says TERM<$TERM>"
571 __EOT
572 </dev/null MAILRC="${BODY}" ${MAILX} ${ARGS} -:u \
573 -STERM=strawberry -SnoTERM -STERM=vanilla \
574 -X'echo mail<$TERM>' -X'unset TERM' \
575 -X'!echo "shell says TERM<$TERM>"' -X'echo TERM<$TERM>' \
576 -Xx > "${MBOX}" 2>&1
577 check behave:s_freeze-6 0 "${MBOX}" '1211476036 167'
578
579 ${cat} <<- '__EOT' > "${BODY}"
580 !echo "shell says TERM<$TERM>"
581 echo TERM<$TERM>
582 !echo "shell says TERM<$TERM>"
583 set TERM=cherry
584 !echo "shell says TERM<$TERM>"
585 echo TERM<$TERM>
586 !echo "shell says TERM<$TERM>"
587 __EOT
588 </dev/null MAILRC="${BODY}" ${MAILX} ${ARGS} -:u \
589 -STERM=strawberry -SnoTERM \
590 -X'echo TERM<$TERM>' -X'set TERM=vanilla' \
591 -X'!echo "shell says TERM<$TERM>"' -X'echo TERM<$TERM>' \
592 -Xx > "${MBOX}" 2>&1
593 check behave:s_freeze-7 0 "${MBOX}" '3365080441 132'
594 fi
595
596 TERM=$oterm
597 t_epilog
598 }
599
600 t_behave_wysh() {
601 t_prolog t_behave_wysh
602
603 ${cat} <<- '__EOT' > "${BODY}"
604 #
605 echo abcd
606 echo a'b'c'd'
607 echo a"b"c"d"
608 echo a$'b'c$'d'
609 echo 'abcd'
610 echo "abcd"
611 echo $'abcd'
612 echo a\ b\ c\ d
613 echo a 'b c' d
614 echo a "b c" d
615 echo a $'b c' d
616 #
617 echo 'a$`"\'
618 echo "a\$\`'\"\\"
619 echo $'a\$`\'\"\\'
620 echo $'a\$`\'"\\'
621 # DIET=CURD TIED=
622 echo 'a${DIET}b${TIED}c\${DIET}d\${TIED}e' # COMMENT
623 echo "a${DIET}b${TIED}c\${DIET}d\${TIED}e"
624 echo $'a${DIET}b${TIED}c\${DIET}d\${TIED}e'
625 #
626 echo a$'\101\0101\x41\u0041\u41\U00000041\U41'c
627 echo a$'\u0041\u41\u0C1\U00000041\U41'c
628 echo a$'\377'c
629 echo a$'\0377'c
630 echo a$'\400'c
631 echo a$'\0400'c
632 echo a$'\U1100001'c
633 #
634 echo a$'b\0c'd
635 echo a$'b\00c'de
636 echo a$'b\000c'df
637 echo a$'b\0000c'dg
638 echo a$'b\x0c'dh
639 echo a$'b\x00c'di
640 echo a$'b\u0'dj
641 echo a$'b\u00'dk
642 echo a$'b\u000'dl
643 echo a$'b\u0000'dm
644 echo a$'b\U0'dn
645 echo a$'b\U00'do
646 echo a$'b\U000'dp
647 echo a$'b\U0000'dq
648 echo a$'b\U00000'dr
649 echo a$'b\U000000'ds
650 echo a$'b\U0000000'dt
651 echo a$'b\U00000000'du
652 #
653 echo a$'\cI'b
654 echo a$'\011'b
655 echo a$'\x9'b
656 echo a$'\u9'b
657 echo a$'\U9'b
658 echo a$'\c@'b c d
659 __EOT
660
661 if [ -z "${UTF8_LOCALE}" ]; then
662 echo 'Skip behave:wysh_unicode, no UTF8_LOCALE'
663 else
664 < "${BODY}" DIET=CURD TIED= \
665 LC_ALL=${UTF8_LOCALE} ${MAILX} ${ARGS} 2>/dev/null > "${MBOX}"
666 check behave:wysh_unicode 0 "${MBOX}" '475805847 317'
667 fi
668
669 < "${BODY}" DIET=CURD TIED= ${MAILX} ${ARGS} > "${MBOX}" 2>/dev/null
670 check behave:wysh_c 0 "${MBOX}" '1473887148 321'
671
672 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}"
673 wysh set mager='\hey\'
674 varshow mager
675 wysh set mager="\hey\\"
676 varshow mager
677 wysh set mager=$'\hey\\'
678 varshow mager
679 __EOT
680 check behave:wysh-3 0 "${MBOX}" '1289698238 69'
681
682 t_epilog
683 }
684
685 t_behave_input_inject_semicolon_seq() {
686 t_prolog t_behave_input_inject_semicolon_seq
687
688 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}"
689 define mydeepmac {
690 echon '(mydeepmac)';
691 }
692 define mymac {
693 echon this_is_mymac;call mydeepmac;echon ';';
694 }
695 echon one';';call mymac;echon two";";call mymac;echo three$';';
696 define mymac {
697 echon this_is_mymac;call mydeepmac;echon ,TOO'!;';
698 }
699 echon one';';call mymac;echon two";";call mymac;echo three$';';
700 __EOT
701
702 check behave:input_inject_semicolon_seq 0 "${MBOX}" '512117110 140'
703
704 t_epilog
705 }
706
707 t_behave_commandalias() {
708 t_prolog t_behave_commandalias
709
710 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}"
711 commandalias echo echo hoho
712 echo stop.
713 commandalias X Xx
714 commandalias Xx XxX
715 commandalias XxX XxXx
716 commandalias XxXx XxXxX
717 commandalias XxXxX XxXxXx
718 commandalias XxXxXx echo huhu
719 commandalias XxXxXxX echo huhu
720 X
721 commandalias XxXxXx XxXxXxX
722 X
723 uncommandalias echo
724 commandalias XxXxXx echo huhu
725 X
726 __EOT
727
728 check behave:commandalias 0 "${MBOX}" '3694143612 31'
729
730 t_epilog
731 }
732
733 t_behave_ifelse() {
734 t_prolog t_behave_ifelse
735
736 # Nestable conditions test
737 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}"
738 if 0
739 echo 1.err
740 else
741 echo 1.ok
742 endif
743 if 1
744 echo 2.ok
745 else
746 echo 2.err
747 endif
748 if $dietcurd
749 echo 3.err
750 else
751 echo 3.ok
752 endif
753 set dietcurd=yoho
754 if $dietcurd
755 echo 4.ok
756 else
757 echo 4.err
758 endif
759 if $dietcurd == 'yoho'
760 echo 5.ok
761 else
762 echo 5.err
763 endif
764 if $dietcurd @== 'Yoho'
765 echo 5-1.ok
766 else
767 echo 5-1.err
768 endif
769 if $dietcurd == 'Yoho'
770 echo 5-2.err
771 else
772 echo 5-2.ok
773 endif
774 if $dietcurd != 'yoho'
775 echo 6.err
776 else
777 echo 6.ok
778 endif
779 if $dietcurd @!= 'Yoho'
780 echo 6-1.err
781 else
782 echo 6-1.ok
783 endif
784 if $dietcurd != 'Yoho'
785 echo 6-2.ok
786 else
787 echo 6-2.err
788 endif
789 # Nesting
790 if faLse
791 echo 7.err1
792 if tRue
793 echo 7.err2
794 if yEs
795 echo 7.err3
796 else
797 echo 7.err4
798 endif
799 echo 7.err5
800 endif
801 echo 7.err6
802 else
803 echo 7.ok7
804 if YeS
805 echo 7.ok8
806 if No
807 echo 7.err9
808 else
809 echo 7.ok9
810 endif
811 echo 7.ok10
812 else
813 echo 7.err11
814 if yeS
815 echo 7.err12
816 else
817 echo 7.err13
818 endif
819 endif
820 echo 7.ok14
821 endif
822 if r
823 echo 8.ok1
824 if R
825 echo 8.ok2
826 else
827 echo 8.err2
828 endif
829 echo 8.ok3
830 else
831 echo 8.err1
832 endif
833 if s
834 echo 9.err1
835 else
836 echo 9.ok1
837 if S
838 echo 9.err2
839 else
840 echo 9.ok2
841 endif
842 echo 9.ok3
843 endif
844 # `elif'
845 if $dietcurd == 'yohu'
846 echo 10.err1
847 elif $dietcurd == 'yoha'
848 echo 10.err2
849 elif $dietcurd == 'yohe'
850 echo 10.err3
851 elif $dietcurd == 'yoho'
852 echo 10.ok1
853 if $dietcurd == 'yohu'
854 echo 10.err4
855 elif $dietcurd == 'yoha'
856 echo 10.err5
857 elif $dietcurd == 'yohe'
858 echo 10.err6
859 elif $dietcurd == 'yoho'
860 echo 10.ok2
861 if $dietcurd == 'yohu'
862 echo 10.err7
863 elif $dietcurd == 'yoha'
864 echo 10.err8
865 elif $dietcurd == 'yohe'
866 echo 10.err9
867 elif $dietcurd == 'yoho'
868 echo 10.ok3
869 else
870 echo 10.err10
871 endif
872 else
873 echo 10.err11
874 endif
875 else
876 echo 10.err12
877 endif
878 # integer
879 set dietcurd=10
880 if $dietcurd -lt 11
881 echo 11.ok1
882 if $dietcurd -gt 9
883 echo 11.ok2
884 else
885 echo 11.err2
886 endif
887 if $dietcurd -eq 10
888 echo 11.ok3
889 else
890 echo 11.err3
891 endif
892 if $dietcurd -ge 10
893 echo 11.ok4
894 else
895 echo 11.err4
896 endif
897 if $dietcurd -le 10
898 echo 11.ok5
899 else
900 echo 11.err5
901 endif
902 if $dietcurd -ge 11
903 echo 11.err6
904 else
905 echo 11.ok6
906 endif
907 if $dietcurd -le 9
908 echo 11.err7
909 else
910 echo 11.ok7
911 endif
912 else
913 echo 11.err1
914 endif
915 set dietcurd=Abc
916 if $dietcurd < aBd
917 echo 12.ok1
918 if $dietcurd @> abB
919 echo 12.ok2
920 else
921 echo 12.err2
922 endif
923 if $dietcurd @== aBC
924 echo 12.ok3
925 else
926 echo 12.err3
927 endif
928 if $dietcurd @>= AbC
929 echo 12.ok4
930 else
931 echo 12.err4
932 endif
933 if $dietcurd @<= ABc
934 echo 12.ok5
935 else
936 echo 12.err5
937 endif
938 if $dietcurd @>= abd
939 echo 12.err6
940 else
941 echo 12.ok6
942 endif
943 if $dietcurd @<= abb
944 echo 12.err7
945 else
946 echo 12.ok7
947 endif
948 else
949 echo 12.err1
950 endif
951 if $dietcurd < aBc
952 echo 12-1.ok
953 else
954 echo 12-1.err
955 endif
956 if $dietcurd @< aBc
957 echo 12-2.err
958 else
959 echo 12-2.ok
960 endif
961 if $dietcurd > ABc
962 echo 12-3.ok
963 else
964 echo 12-3.err
965 endif
966 if $dietcurd @> ABc
967 echo 12-3.err
968 else
969 echo 12-3.ok
970 endif
971 if $dietcurd @i=% aB
972 echo 13.ok
973 else
974 echo 13.err
975 endif
976 if $dietcurd =% aB
977 echo 13-1.err
978 else
979 echo 13-1.ok
980 endif
981 if $dietcurd @=% bC
982 echo 14.ok
983 else
984 echo 14.err
985 endif
986 if $dietcurd !% aB
987 echo 15-1.ok
988 else
989 echo 15-1.err
990 endif
991 if $dietcurd @!% aB
992 echo 15-2.err
993 else
994 echo 15-2.ok
995 endif
996 if $dietcurd !% bC
997 echo 15-3.ok
998 else
999 echo 15-3.err
1000 endif
1001 if $dietcurd @!% bC
1002 echo 15-4.err
1003 else
1004 echo 15-4.ok
1005 endif
1006 if $dietcurd =% Cd
1007 echo 16.err
1008 else
1009 echo 16.ok
1010 endif
1011 if $dietcurd !% Cd
1012 echo 17.ok
1013 else
1014 echo 17.err
1015 endif
1016 set diet=abc curd=abc
1017 if $diet == $curd
1018 echo 18.ok
1019 else
1020 echo 18.err
1021 endif
1022 set diet=abc curd=abcd
1023 if $diet != $curd
1024 echo 19.ok
1025 else
1026 echo 19.err
1027 endif
1028 # 1. Shitty grouping capabilities as of today
1029 unset diet curd ndefined
1030 if [ [ false ] || [ false ] || [ true ] ] && [ [ false ] || [ true ] ] && \
1031 [ yes ]
1032 echo 20.ok
1033 else
1034 echo 20.err
1035 endif
1036 if [ [ [ [ 0 ] || [ 1 ] ] && [ [ 1 ] || [ 0 ] ] ] && [ 1 ] ] && [ yes ]
1037 echo 21.ok
1038 else
1039 echo 21.err
1040 endif
1041 if [ [ 1 ] || [ 0 ] || [ 0 ] || [ 0 ] ]
1042 echo 22.ok
1043 else
1044 echo 22.err
1045 endif
1046 if [ [ 1 ] || [ 0 ] || [ 0 ] || [ 0 ] || [ [ 1 ] ] ]
1047 echo 23.ok
1048 else
1049 echo 23.err
1050 endif
1051 if [ [ 1 ] || [ 0 ] || [ 0 ] || [ 0 ] || [ [ 1 ] ] || [ 1 ] ] && [ no ]
1052 echo 24.err
1053 else
1054 echo 24.ok
1055 endif
1056 if [ [ 1 ] || [ 0 ] || [ 0 ] || [ 0 ] || [ [ 1 ] ] || [ 1 ] ] \
1057 && [ no ] || [ yes ]
1058 echo 25.ok
1059 else
1060 echo 25.err
1061 endif
1062 if [ [ [ [ [ [ [ 1 ] ] && [ 1 ] ] && [ 1 ] ] && [ 1 ] ] ] && [ 1 ] ]
1063 echo 26.ok
1064 else
1065 echo 26.err
1066 endif
1067 if [ [ [ [ [ [ [ 1 ] ] && [ 1 ] ] && [ 1 ] ] && [ 1 ] ] ] && [ 0 ] ]
1068 echo 27.err
1069 else
1070 echo 27.ok
1071 endif
1072 if [ [ [ [ [ [ [ 1 ] ] && [ 1 ] ] && [ 0 ] ] && [ 1 ] ] ] && [ 1 ] ]
1073 echo 28.err
1074 else
1075 echo 28.ok
1076 endif
1077 if [ [ [ [ [ [ [ 0 ] ] && [ 1 ] ] && [ 1 ] ] && [ 1 ] ] ] && [ 1 ] ]
1078 echo 29.err
1079 else
1080 echo 29.ok
1081 endif
1082 if [ 1 ] || [ 0 ] || [ 0 ] || [ 0 ] && [ 0 ]
1083 echo 30.err
1084 else
1085 echo 30.ok
1086 endif
1087 if [ 1 ] || [ 0 ] || [ 0 ] || [ 0 ] && [ 1 ]
1088 echo 31.ok
1089 else
1090 echo 31.err
1091 endif
1092 if [ 0 ] || [ 0 ] || [ 0 ] || [ 1 ] && [ 0 ]
1093 echo 32.err
1094 else
1095 echo 32.ok
1096 endif
1097 if [ 0 ] || [ 0 ] || [ 0 ] || [ 1 ] && [ 1 ]
1098 echo 33.ok
1099 else
1100 echo 33.err
1101 endif
1102 if [ 0 ] || [ 0 ] || [ 0 ] || [ 1 ] && [ 0 ] || [ 1 ] && [ 0 ]
1103 echo 34.err
1104 else
1105 echo 34.ok
1106 endif
1107 if [ 0 ] || [ 0 ] || [ 0 ] || [ 1 ] && [ 0 ] || [ 1 ] && [ 1 ]
1108 echo 35.ok
1109 else
1110 echo 35.err
1111 endif
1112 set diet=yo curd=ho
1113 if [ [ $diet == 'yo' ] && [ $curd == 'ho' ] ] && [ $ndefined ]
1114 echo 36.err
1115 else
1116 echo 36.ok
1117 endif
1118 set ndefined
1119 if [ [ $diet == 'yo' ] && [ $curd == 'ho' ] ] && [ $ndefined ]
1120 echo 37.ok
1121 else
1122 echo 37.err
1123 endif
1124 # 2. Shitty grouping capabilities as of today
1125 unset diet curd ndefined
1126 if [ false || false || true ] && [ false || true ] && yes
1127 echo 40.ok
1128 else
1129 echo 40.err
1130 endif
1131 if [ [ [ 0 || 1 ] && [ 1 || 0 ] ] && 1 ] && [ yes ]
1132 echo 41.ok
1133 else
1134 echo 41.err
1135 endif
1136 if [ 1 || 0 || 0 || 0 ]
1137 echo 42.ok
1138 else
1139 echo 42.err
1140 endif
1141 if [ 1 || 0 || 0 || 0 || [ 1 ] ]
1142 echo 43.ok
1143 else
1144 echo 43.err
1145 endif
1146 if [ 1 || 0 || 0 || 0 || [ 1 ] || 1 ] && no
1147 echo 44.err
1148 else
1149 echo 44.ok
1150 endif
1151 if [ 1 || 0 || 0 || 0 || 1 || [ 1 ] ] && no || [ yes ]
1152 echo 45.ok
1153 else
1154 echo 45.err
1155 endif
1156 if [ [ [ [ [ [ 1 ] && 1 ] && 1 ] && 1 ] ] && [ 1 ] ]
1157 echo 46.ok
1158 else
1159 echo 46.err
1160 endif
1161 if [ [ [ [ [ [ 1 ] && 1 ] && 1 ] && [ 1 ] ] ] && 0 ]
1162 echo 47.err
1163 else
1164 echo 47.ok
1165 endif
1166 if [ [ [ [ [ [ [ 1 ] ] && 1 ] && 0 ] && [ 1 ] ] ] && 1 ]
1167 echo 48.err
1168 else
1169 echo 48.ok
1170 endif
1171 if [ [ [ [ [ [ 0 ] && 1 ] && 1 ] && 1 ] ] && 1 ]
1172 echo 49.err
1173 else
1174 echo 49.ok
1175 endif
1176 if 1 || 0 || 0 || 0 && 0
1177 echo 50.err
1178 else
1179 echo 50.ok
1180 endif
1181 if 1 || 0 || 0 || 0 && 1
1182 echo 51.ok
1183 else
1184 echo 51.err
1185 endif
1186 if 0 || 0 || 0 || 1 && 0
1187 echo 52.err
1188 else
1189 echo 52.ok
1190 endif
1191 if 0 || 0 || 0 || 1 && 1
1192 echo 53.ok
1193 else
1194 echo 53.err
1195 endif
1196 if 0 || 0 || 0 || 1 && 0 || 1 && 0
1197 echo 54.err
1198 else
1199 echo 54.ok
1200 endif
1201 if 0 || 0 || 0 || 1 && 0 || 1 && 1
1202 echo 55.ok
1203 else
1204 echo 55.err
1205 endif
1206 set diet=yo curd=ho
1207 if [ $diet == 'yo' && $curd == 'ho' ] && $ndefined
1208 echo 56.err
1209 else
1210 echo 56.ok
1211 endif
1212 if $diet == 'yo' && $curd == 'ho' && $ndefined
1213 echo 57.err
1214 else
1215 echo 57.ok
1216 endif
1217 set ndefined
1218 if [ $diet == 'yo' && $curd == 'ho' ] && $ndefined
1219 echo 57.ok
1220 else
1221 echo 57.err
1222 endif
1223 if $diet == 'yo' && $curd == 'ho' && $ndefined
1224 echo 58.ok
1225 else
1226 echo 58.err
1227 endif
1228 if [ [ [ [ [ [ $diet == 'yo' && $curd == 'ho' && $ndefined ] ] ] ] ] ]
1229 echo 59.ok
1230 else
1231 echo 59.err
1232 endif
1233 # Some more en-braced variables
1234 set diet=yo curd=ho
1235 if ${diet} == ${curd}
1236 echo 70.err
1237 else
1238 echo 70.ok
1239 endif
1240 if ${diet} != ${curd}
1241 echo 71.ok
1242 else
1243 echo 71.err
1244 endif
1245 if $diet == ${curd}
1246 echo 72.err
1247 else
1248 echo 72.ok
1249 endif
1250 if ${diet} == $curd
1251 echo 73.err
1252 else
1253 echo 73.ok
1254 endif
1255 # Unary !
1256 if ! 0 && ! ! 1 && ! ! ! ! 2 && 3
1257 echo 80.ok
1258 else
1259 echo 80.err
1260 endif
1261 if ! 0 && ! [ ! 1 ] && ! [ ! [ ! [ ! 2 ] ] ] && 3
1262 echo 81.ok
1263 else
1264 echo 81.err
1265 endif
1266 if [ ! 0 ] && [ ! [ ! 1 ] ] && [ ! [ ! [ ! [ ! [ 2 ] ] ] ] ] && 3
1267 echo 82.ok
1268 else
1269 echo 82.err
1270 endif
1271 if [ ! 0 ] && [ ! [ ! 1 ] ] && [ ! [ ! [ ! [ ! [ 2 ] ] ] ] ] && ! 3
1272 echo 83.err
1273 else
1274 echo 83.ok
1275 endif
1276 if [ ! 0 ] && [ ! [ ! 1 ] ] && ! [ [ ! [ ! [ ! [ 2 ] ] ] ] ] && ! 3
1277 echo 84.err
1278 else
1279 echo 84.ok
1280 endif
1281 if [ ! 0 ] && ! [ ! [ ! 1 ] ] && [ ! [ ! [ ! [ ! [ 2 ] ] ] ] ] && 3
1282 echo 85.err
1283 else
1284 echo 85.ok
1285 endif
1286 if ! [ ! 0 ] && [ ! [ ! 1 ] ] && [ ! [ ! [ ! [ ! [ 2 ] ] ] ] ] && 3
1287 echo 86.err
1288 else
1289 echo 86.ok
1290 endif
1291 if [ ! 0 ] && [ ! [ ! 1 ] ] && [ ! [ ! [ ! [ ! [ 2 ] ] ] ] ] || 3
1292 echo 87.ok
1293 else
1294 echo 87.err
1295 endif
1296 if [ ! 0 ] && [ ! ! [ ! ! 1 ] ] && [ ! ! [ ! ! [ ! ! [ ! ! [ 2 ] ] ] ] ]
1297 echo 88.ok
1298 else
1299 echo 88.err
1300 endif
1301 # Unary !, odd
1302 if ! 0 && ! ! 1 && ! ! ! 0 && 3
1303 echo 90.ok
1304 else
1305 echo 90.err
1306 endif
1307 if ! 0 && ! [ ! 1 ] && ! [ ! [ ! [ 0 ] ] ] && 3
1308 echo 91.ok
1309 else
1310 echo 91.err
1311 endif
1312 if [ ! 0 ] && [ ! [ ! 1 ] ] && [ ! [ ! [ ! [ [ 0 ] ] ] ] ] && 3
1313 echo 92.ok
1314 else
1315 echo 92.err
1316 endif
1317 if [ ! 0 ] && [ ! [ ! 1 ] ] && [ ! [ ! ! [ ! [ ! 0 ] ] ] ] && ! 3
1318 echo 93.err
1319 else
1320 echo 93.ok
1321 endif
1322 if [ ! 0 ] && [ ! [ ! 1 ] ] && ! [ ! [ ! [ ! [ ! 0 ] ] ] ] && 3
1323 echo 94.ok
1324 else
1325 echo 94.err
1326 endif
1327 if [ ! 0 ] && ! [ ! [ ! 1 ] ] && [ ! ! [ ! [ ! [ ! [ 0 ] ] ] ] ] && 3
1328 echo 95.err
1329 else
1330 echo 95.ok
1331 endif
1332 if ! [ ! 0 ] && [ ! [ ! 1 ] ] && [ ! [ ! [ ! [ ! ! 0 ] ] ] ] && 3
1333 echo 96.err
1334 else
1335 echo 96.ok
1336 endif
1337 if [ ! 0 ] && [ ! [ ! 1 ] ] && [ ! [ ! [ ! [ ! [ ! 0 ] ] ] ] ] || 3
1338 echo 97.ok
1339 else
1340 echo 97.err
1341 endif
1342 if [ ! 0 ] && [ ! ! [ ! ! 1 ] ] && [ ! ! [ ! ! [ ! ! [ ! [ 0 ] ] ] ] ]
1343 echo 98.ok
1344 else
1345 echo 98.err
1346 endif
1347 __EOT
1348
1349 check behave:if-normal 0 "${MBOX}" '1688759742 719'
1350
1351 if have_feat regex; then
1352 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}"
1353 set dietcurd=yoho
1354 if $dietcurd =~ '^yo.*'
1355 echo 1.ok
1356 else
1357 echo 1.err
1358 endif
1359 if $dietcurd =~ '^Yo.*'
1360 echo 1-1.err
1361 else
1362 echo 1-1.ok
1363 endif
1364 if $dietcurd @=~ '^Yo.*'
1365 echo 1-2.ok
1366 else
1367 echo 1-2.err
1368 endif
1369 if $dietcurd =~ '^yOho.+'
1370 echo 2.err
1371 else
1372 echo 2.ok
1373 endif
1374 if $dietcurd @!~ '.*Ho$'
1375 echo 3.err
1376 else
1377 echo 3.ok
1378 endif
1379 if $dietcurd !~ '.+yohO$'
1380 echo 4.ok
1381 else
1382 echo 4.err
1383 endif
1384 if [ $dietcurd @i!~ '.+yoho$' ]
1385 echo 5.ok
1386 else
1387 echo 5.err
1388 endif
1389 if ! [ $dietcurd @i=~ '.+yoho$' ]
1390 echo 6.ok
1391 else
1392 echo 6.err
1393 endif
1394 if ! ! [ $dietcurd @i!~ '.+yoho$' ]
1395 echo 7.ok
1396 else
1397 echo 7.err
1398 endif
1399 if ! [ ! [ $dietcurd @i!~ '.+yoho$' ] ]
1400 echo 8.ok
1401 else
1402 echo 8.err
1403 endif
1404 if [ ! [ ! [ $dietcurd @i!~ '.+yoho$' ] ] ]
1405 echo 9.ok
1406 else
1407 echo 9.err
1408 endif
1409 if ! [ ! [ ! [ $dietcurd !~ '.+yoho$' ] ] ]
1410 echo 10.err
1411 else
1412 echo 10.ok
1413 endif
1414 if ! ! ! $dietcurd !~ '.+yoho$'
1415 echo 11.err
1416 else
1417 echo 11.ok
1418 endif
1419 if ! ! ! $dietcurd =~ '.+yoho$'
1420 echo 12.ok
1421 else
1422 echo 12.err
1423 endif
1424 if ! [ ! ! [ ! [ $dietcurd !~ '.+yoho$' ] ] ]
1425 echo 13.ok
1426 else
1427 echo 13.err
1428 endif
1429 set diet=abc curd='^abc$'
1430 if $diet =~ $curd
1431 echo 14.ok
1432 else
1433 echo 14.err
1434 endif
1435 set diet=abc curd='^abcd$'
1436 if $diet !~ $curd
1437 echo 15.ok
1438 else
1439 echo 15.err
1440 endif
1441 __EOT
1442
1443 check behave:if-regex 0 "${MBOX}" '1115671789 95'
1444 else
1445 printf 'behave:if-regex: unsupported, skipped\n'
1446 fi
1447
1448 t_epilog
1449 }
1450
1451 t_behave_localopts() {
1452 t_prolog t_behave_localopts
1453
1454 # Nestable conditions test
1455 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>&1
1456 define t2 {
1457 echo in: t2
1458 set t2=t2
1459 echo $t2
1460 }
1461 define t1 {
1462 echo in: t1
1463 set gv1=gv1
1464 localopts on
1465 set lv1=lv1 lv2=lv2
1466 set lv3=lv3
1467 call t2
1468 localopts off
1469 set gv2=gv2
1470 echo $gv1 $lv1 ${lv2} ${lv3} ${gv2}, $t2
1471 }
1472 define t0 {
1473 echo in: t0
1474 call t1
1475 echo $gv1 $lv1 ${lv2} ${lv3} ${gv2}, $t2
1476 echo "$gv1 $lv1 ${lv2} ${lv3} ${gv2}, $t2"
1477 }
1478 account trouble {
1479 echo in: trouble
1480 call t0
1481 }
1482 call t0
1483 unset gv1 gv2
1484 account trouble
1485 echo active trouble: $gv1 $lv1 ${lv2} ${lv3} ${gv2}, $t3
1486 account null
1487 echo active null: $gv1 $lv1 ${lv2} ${lv3} ${gv2}, $t3
1488
1489 #
1490 define ll2 {
1491 localopts $1
1492 set x=2
1493 echo ll2=$x
1494 }
1495 define ll1 {
1496 wysh set y=$1; shift; eval localopts $y; localopts $1; shift
1497 set x=1
1498 echo ll1.1=$x
1499 call ll2 $1
1500 echo ll1.2=$x
1501 }
1502 define ll0 {
1503 wysh set y=$1; shift; eval localopts $y; localopts $1; shift
1504 set x=0
1505 echo ll0.1=$x
1506 call ll1 $y "$@"
1507 echo ll0.2=$x
1508 }
1509 define llx {
1510 echo ----- $1: $2 -> $3 -> $4
1511 echo ll-1.1=$x
1512 eval localopts $1
1513 call ll0 "$@"
1514 echo ll-1.2=$x
1515 unset x
1516 }
1517 define lly {
1518 call llx 'call off' on on on
1519 call llx 'call off' off on on
1520 call llx 'call off' on off on
1521 call llx 'call off' on off off
1522 localopts call-fixate on
1523 call llx 'call-fixate on' on on on
1524 call llx 'call-fixate on' off on on
1525 call llx 'call-fixate on' on off on
1526 call llx 'call-fixate on' on off off
1527 unset x;localopts call on
1528 call llx 'call on' on on on
1529 call llx 'call on' off on on
1530 call llx 'call on' on off on
1531 call llx 'call on' on off off
1532 }
1533 call lly
1534 __EOT
1535
1536 check behave:localopts 0 "${MBOX}" '4016155249 1246'
1537
1538 t_epilog
1539 }
1540
1541 t_behave_local() {
1542 t_prolog t_behave_local
1543
1544 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>&1
1545 define du2 {
1546 echo du2-1 du=$du
1547 local set du=$1
1548 echo du2-2 du=$du
1549 local unset du
1550 echo du2-3 du=$du
1551 }
1552 define du {
1553 local set du=dudu
1554 echo du-1 du=$du
1555 call du2 du2du2
1556 echo du-2 du=$du
1557 local set nodu
1558 echo du-3 du=$du
1559 }
1560 define ich {
1561 echo ich-1 du=$du
1562 call du
1563 echo ich-2 du=$du
1564 }
1565 define wir {
1566 localopts $1
1567 set du=wirwir
1568 echo wir-1 du=$du
1569 call ich
1570 echo wir-2 du=$du
1571 }
1572 echo ------- global-1 du=$du
1573 call ich
1574 echo ------- global-2 du=$du
1575 set du=global
1576 call ich
1577 echo ------- global-3 du=$du
1578 call wir on
1579 echo ------- global-4 du=$du
1580 call wir off
1581 echo ------- global-5 du=$du
1582 __EOT
1583
1584 check behave:local-1 0 "${MBOX}" '2411598140 641'
1585
1586 t_epilog
1587 }
1588
1589 t_behave_macro_param_shift() {
1590 t_prolog t_behave_macro_param_shift
1591
1592 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>/dev/null
1593 define t2 {
1594 echo in: t2
1595 echo t2.0 has $#/${#} parameters: "$1,${2},$3" (${*}) [$@]
1596 localopts on
1597 wysh set ignerr=$1
1598 shift
1599 localopts off
1600 echo t2.1 has $#/${#} parameters: "$1,${2},$3" (${*}) [$@]
1601 if [ $# > 1 ] || [ $ignerr == '' ]
1602 shift 2
1603 else
1604 ignerr shift 2
1605 endif
1606 echo t2.2:$? has $#/${#} parameters: "$1,${2},$3" (${*}) [$@]
1607 shift 0
1608 echo t2.3:$? has $#/${#} parameters: "$1,${2},$3" (${*}) [$@]
1609 if [ $# > 0 ]
1610 shift
1611 endif
1612 echo t2.4:$? has $#/${#} parameters: "$1,${2},$3" (${*}) [$@]
1613 }
1614 define t1 {
1615 set errexit
1616 echo in: t1
1617 call t2 1 you get four args
1618 echo t1.1: $?';' ignerr ($ignerr) should not exist
1619 call t2 1 you get 'three args'
1620 echo t1.2: $?';' ignerr ($ignerr) should not exist
1621 call t2 1 you 'get two args'
1622 echo t1.3: $?';' ignerr ($ignerr) should not exist
1623 call t2 1 'you get one arg'
1624 echo t1.4: $?';' ignerr ($ignerr) should not exist
1625 ignerr call t2 '' 'you get one arg'
1626 echo t1.5: $?';' ignerr ($ignerr) should not exist
1627 }
1628 call t1
1629 __EOT
1630
1631 check behave:macro_param_shift 0 "${MBOX}" '1402489146 1682'
1632
1633 t_epilog
1634 }
1635
1636 t_behave_addrcodec() {
1637 t_prolog t_behave_addrcodec
1638
1639 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>&1
1640 vput addrcodec res e 1 <doog@def>
1641 echo $?/$^ERRNAME $res
1642 eval vput addrcodec res d $res
1643 echo $?/$^ERRNAME $res
1644 vput addrcodec res e 2 . <doog@def>
1645 echo $?/$^ERRNAME $res
1646 eval vput addrcodec res d $res
1647 echo $?/$^ERRNAME $res
1648 vput addrcodec res e 3 Sauer Dr. <doog@def>
1649 echo $?/$^ERRNAME $res
1650 eval vput addrcodec res d $res
1651 echo $?/$^ERRNAME $res
1652 vput addrcodec res e 3.50 Sauer (Ma) Dr. <doog@def>
1653 echo $?/$^ERRNAME $res
1654 eval vput addrcodec res d $res
1655 echo $?/$^ERRNAME $res
1656 vput addrcodec res e 3.51 Sauer (Ma) "Dr." <doog@def>
1657 echo $?/$^ERRNAME $res
1658 eval vput addrcodec res d $res
1659 echo $?/$^ERRNAME $res
1660 #
1661 vput addrcodec res +e 4 Sauer (Ma) Dr. <doog@def>
1662 echo $?/$^ERRNAME $res
1663 eval vput addrcodec res d $res
1664 echo $?/$^ERRNAME $res
1665 vput addrcodec res +e 5 Sauer (Ma) Braten Dr. <doog@def>
1666 echo $?/$^ERRNAME $res
1667 eval vput addrcodec res d $res
1668 echo $?/$^ERRNAME $res
1669 vput addrcodec res +e 6 Sauer (Ma) Braten Dr. (Heu) <doog@def>
1670 echo $?/$^ERRNAME $res
1671 eval vput addrcodec res d $res
1672 echo $?/$^ERRNAME $res
1673 vput addrcodec res +e 7 Sauer (Ma) Braten Dr. (Heu) <doog@def> (bu)
1674 echo $?/$^ERRNAME $res
1675 eval vput addrcodec res d $res
1676 echo $?/$^ERRNAME $res
1677 vput addrcodec res +e 8 \
1678 Dr. Sauer (Ma) Braten Dr. (Heu) <doog@def> (bu) Boom. Boom
1679 echo $?/$^ERRNAME $res
1680 eval vput addrcodec res d $res
1681 echo $?/$^ERRNAME $res
1682 vput addrcodec res +e 9 Dr.Sauer(Ma)Braten Dr. (Heu) <doog@def>
1683 echo $?/$^ERRNAME $res
1684 eval vput addrcodec res d $res
1685 echo $?/$^ERRNAME $res
1686 vput addrcodec res +e 10 (Ma)Braten Dr. (Heu) <doog@def>
1687 echo $?/$^ERRNAME $res
1688 eval vput addrcodec res d $res
1689 echo $?/$^ERRNAME $res
1690 vput addrcodec res +e 11 (Ma)Braten Dr"." (Heu) <doog@def>
1691 echo $?/$^ERRNAME $res
1692 eval vput addrcodec res d $res
1693 echo $?/$^ERRNAME $res
1694 vput addrcodec res +e 12 Dr. Sauer (Ma) Braten Dr. (u) <doog@def>
1695 echo $?/$^ERRNAME $res
1696 eval vput addrcodec res d $res
1697 echo $?/$^ERRNAME $res
1698 vput addrcodec res +e 13(Ma)Braten Dr. (Heu) <doog@def>
1699 echo $?/$^ERRNAME $res
1700 eval vput addrcodec res d $res
1701 echo $?/$^ERRNAME $res
1702 vput addrcodec res +e 14 Hey, Du <doog@def> Wie() findet Dr. das? ()
1703 echo $?/$^ERRNAME $res
1704 eval vput addrcodec res d $res
1705 echo $?/$^ERRNAME $res
1706 vput addrcodec res +e 15 \
1707 Hey, Du <doog@def> Wie() findet "" Dr. "" das? ()
1708 echo $?/$^ERRNAME $res
1709 eval vput addrcodec res d $res
1710 echo $?/$^ERRNAME $res
1711 vput addrcodec res +e 16 \
1712 "Hey," "Du" <doog@def> "Wie()" findet "" Dr. "" das? ()
1713 echo $?/$^ERRNAME $res
1714 eval vput addrcodec res d $res
1715 echo $?/$^ERRNAME $res
1716 vput addrcodec res +e 17 \
1717 "Hey" Du <doog@def> "Wie() findet " " Dr. """ das? ()
1718 echo $?/$^ERRNAME $res
1719 eval vput addrcodec res d $res
1720 echo $?/$^ERRNAME $res
1721 vput addrcodec res +e 18 \
1722 <doog@def> "Hey" Du "Wie() findet " " Dr. """ das? ()
1723 echo $?/$^ERRNAME $res
1724 eval vput addrcodec res d $res
1725 echo $?/$^ERRNAME $res
1726 vput addrcodec res +e 19 Hey\,\" <doog@def> "Wie()" findet \" Dr. \" das?
1727 echo $?/$^ERRNAME $res
1728 eval vput addrcodec res d $res
1729 echo $?/$^ERRNAME $res
1730 #
1731 vput addrcodec res ++e 20 Hey\,\" <doog@def> "Wie()" findet \" Dr. \" das?
1732 echo $?/$^ERRNAME $res
1733 vput addrcodec res ++e 21 Hey\,\"" <doog@def> "Wie()" findet \" Dr. \" das?
1734 echo $?/$^ERRNAME $res
1735 eval vput addrcodec res d $res
1736 echo $?/$^ERRNAME $res
1737 #
1738 vput addrcodec res +++e 22 Hey\\,\" <doog@def> "Wie()" findet \" Dr. \" das?
1739 echo $?/$^ERRNAME $res
1740 eval vput addrcodec res d $res
1741 echo $?/$^ERRNAME $res
1742 #
1743 vput addrcodec res s \
1744 "23 Hey\\,\\\" \"Wie" () "\" findet \\\" Dr. \\\" das?" <doog@def>
1745 echo $?/$^ERRNAME $res
1746 #
1747 # Fix for [f3852f88]
1748 vput addrcodec res ++e <from2@exam.ple> 100 (comment) "Quot(e)d"
1749 echo $?/$^ERRNAME $res
1750 eval vput addrcodec res d $res
1751 echo $?/$^ERRNAME $res
1752 vput addrcodec res e <from2@exam.ple> 100 (comment) "Quot(e)d"
1753 echo $?/$^ERRNAME $res
1754 eval vput addrcodec res d $res
1755 echo $?/$^ERRNAME $res
1756 __EOT
1757
1758 check behave:addrcodec-1 0 "${MBOX}" '1047317989 2612'
1759
1760 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>&1
1761 mlist isa1@list
1762 mlsubscribe isa2@list
1763 #
1764 vput addrcodec res skin Hey\\,\" <isa0@list> "Wie()" find \" Dr. \" das?
1765 echo $?/$^ERRNAME $res
1766 vput addrcodec res skinlist Hey\\,\" <isa0@list> "Wie()" find \" Dr. \" das?
1767 echo $?/$^ERRNAME $res
1768 vput addrcodec res skin Hey\\,\" <isa1@list> "Wie()" find \" Dr. \" das?
1769 echo $?/$^ERRNAME $res
1770 vput addrcodec res skinlist Hey\\,\" <isa1@list> "Wie()" find \" Dr. \" das?
1771 echo $?/$^ERRNAME $res
1772 vput addrcodec res skin Hey\\,\" <isa2@list> "Wie()" find \" Dr. \" das?
1773 echo $?/$^ERRNAME $res
1774 vput addrcodec res skinlist Hey\\,\" <isa2@list> "Wie()" find \" Dr. \" das?
1775 echo $?/$^ERRNAME $res
1776 __EOT
1777
1778 check behave:addrcodec-2 0 "${MBOX}" '1391779299 104'
1779
1780 if have_feat idna; then
1781 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} ${ADDARG_UNI} > "${MBOX}" 2>&1
1782 vput addrcodec res e (heu) <du@blödiän> "stroh" du
1783 echo $?/$^ERRNAME $res
1784 eval vput addrcodec res d $res
1785 echo $?/$^ERRNAME $res
1786 vput addrcodec res e <du@blödiän> du
1787 echo $?/$^ERRNAME $res
1788 eval vput addrcodec res d $res
1789 echo $?/$^ERRNAME $res
1790 vput addrcodec res e du <du@blödiän>
1791 echo $?/$^ERRNAME $res
1792 eval vput addrcodec res d $res
1793 echo $?/$^ERRNAME $res
1794 vput addrcodec res e <du@blödiän>
1795 echo $?/$^ERRNAME $res
1796 eval vput addrcodec res d $res
1797 echo $?/$^ERRNAME $res
1798 vput addrcodec res e du@blödiän
1799 echo $?/$^ERRNAME $res
1800 eval vput addrcodec res d $res
1801 echo $?/$^ERRNAME $res
1802 __EOT
1803
1804 check behave:addrcodec-idna 0 "${MBOX}" '498775983 326'
1805 else
1806 printf 'behave:addrcodec-idna: unsupported, skipped\n'
1807 fi
1808
1809 t_epilog
1810 }
1811
1812 t_behave_vexpr() {
1813 t_prolog t_behave_vexpr
1814
1815 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>/dev/null
1816 echo ' #0.0'
1817 vput vexpr res = 9223372036854775807
1818 echo $?/$^ERRNAME $res
1819 vput vexpr res = 9223372036854775808
1820 echo $?/$^ERRNAME $res
1821 vput vexpr res = u9223372036854775808
1822 echo $?/$^ERRNAME $res
1823 vput vexpr res @= 9223372036854775808
1824 echo $?/$^ERRNAME $res
1825 vput vexpr res = -9223372036854775808
1826 echo $?/$^ERRNAME $res
1827 vput vexpr res = -9223372036854775809
1828 echo $?/$^ERRNAME $res
1829 vput vexpr res @= -9223372036854775809
1830 echo $?/$^ERRNAME $res
1831 vput vexpr res = U9223372036854775809
1832 echo $?/$^ERRNAME $res
1833 echo ' #0.1'
1834 vput vexpr res = \
1835 0b0111111111111111111111111111111111111111111111111111111111111111
1836 echo $?/$^ERRNAME $res
1837 vput vexpr res = \
1838 S0b1000000000000000000000000000000000000000000000000000000000000000
1839 echo $?/$^ERRNAME $res
1840 vput vexpr res @= \
1841 S0b1000000000000000000000000000000000000000000000000000000000000000
1842 echo $?/$^ERRNAME $res
1843 vput vexpr res = \
1844 U0b1000000000000000000000000000000000000000000000000000000000000000
1845 echo $?/$^ERRNAME $res
1846 vput vexpr res = \
1847 0b1000000000000000000000000000000000000000000000000000000000000000
1848 echo $?/$^ERRNAME $res
1849 vput vexpr res @= \
1850 0b1000000000000000000000000000000000000000000000000000000000000000
1851 echo $?/$^ERRNAME $res
1852 vput vexpr res = \
1853 -0b1000000000000000000000000000000000000000000000000000000000000000
1854 echo $?/$^ERRNAME $res
1855 vput vexpr res = \
1856 S0b1000000000000000000000000000000000000000000000000000000000000001
1857 echo $?/$^ERRNAME $res
1858 vput vexpr res @= \
1859 S0b1000000000000000000000000000000000000000000000000000000000000001
1860 echo $?/$^ERRNAME $res
1861 vput vexpr res @= \
1862 -0b1000000000000000000000000000000000000000000000000000000000000001
1863 echo $?/$^ERRNAME $res
1864 vput vexpr res = \
1865 U0b1000000000000000000000000000000000000000000000000000000000000001
1866 echo $?/$^ERRNAME $res
1867 echo ' #0.2'
1868 vput vexpr res = 0777777777777777777777
1869 echo $?/$^ERRNAME $res
1870 vput vexpr res = S01000000000000000000000
1871 echo $?/$^ERRNAME $res
1872 vput vexpr res @= S01000000000000000000000
1873 echo $?/$^ERRNAME $res
1874 vput vexpr res = U01000000000000000000000
1875 echo $?/$^ERRNAME $res
1876 vput vexpr res = 01000000000000000000000
1877 echo $?/$^ERRNAME $res
1878 vput vexpr res @= 01000000000000000000000
1879 echo $?/$^ERRNAME $res
1880 vput vexpr res = -01000000000000000000000
1881 echo $?/$^ERRNAME $res
1882 vput vexpr res = S01000000000000000000001
1883 echo $?/$^ERRNAME $res
1884 vput vexpr res @= S01000000000000000000001
1885 echo $?/$^ERRNAME $res
1886 vput vexpr res @= -01000000000000000000001
1887 echo $?/$^ERRNAME $res
1888 vput vexpr res = U01000000000000000000001
1889 echo $?/$^ERRNAME $res
1890 echo ' #0.3'
1891 vput vexpr res = 0x7FFFFFFFFFFFFFFF
1892 echo $?/$^ERRNAME $res
1893 vput vexpr res = S0x8000000000000000
1894 echo $?/$^ERRNAME $res
1895 vput vexpr res @= S0x8000000000000000
1896 echo $?/$^ERRNAME $res
1897 vput vexpr res = U0x8000000000000000
1898 echo $?/$^ERRNAME $res
1899 vput vexpr res = 0x8000000000000000
1900 echo $?/$^ERRNAME $res
1901 vput vexpr res @= 0x8000000000000000
1902 echo $?/$^ERRNAME $res
1903 vput vexpr res = -0x8000000000000000
1904 echo $?/$^ERRNAME $res
1905 vput vexpr res = S0x8000000000000001
1906 echo $?/$^ERRNAME $res
1907 vput vexpr res @= S0x8000000000000001
1908 echo $?/$^ERRNAME $res
1909 vput vexpr res @= -0x8000000000000001
1910 echo $?/$^ERRNAME $res
1911 vput vexpr res = u0x8000000000000001
1912 echo $?/$^ERRNAME $res
1913 echo ' #1'
1914 vput vexpr res ~ 0
1915 echo $?/$^ERRNAME $res
1916 vput vexpr res ~ 1
1917 echo $?/$^ERRNAME $res
1918 vput vexpr res ~ -1
1919 echo $?/$^ERRNAME $res
1920 echo ' #2'
1921 vput vexpr res + 0 0
1922 echo $?/$^ERRNAME $res
1923 vput vexpr res + 0 1
1924 echo $?/$^ERRNAME $res
1925 vput vexpr res + 1 1
1926 echo $?/$^ERRNAME $res
1927 echo ' #3'
1928 vput vexpr res + 9223372036854775807 0
1929 echo $?/$^ERRNAME $res
1930 vput vexpr res + 9223372036854775807 1
1931 echo $?/$^ERRNAME $res
1932 vput vexpr res @+ 9223372036854775807 1
1933 echo $?/$^ERRNAME $res
1934 vput vexpr res + 0 9223372036854775807
1935 echo $?/$^ERRNAME $res
1936 vput vexpr res + 1 9223372036854775807
1937 echo $?/$^ERRNAME $res
1938 vput vexpr res @+ 1 9223372036854775807
1939 echo $?/$^ERRNAME $res
1940 echo ' #4'
1941 vput vexpr res + -9223372036854775808 0
1942 echo $?/$^ERRNAME $res
1943 vput vexpr res + -9223372036854775808 -1
1944 echo $?/$^ERRNAME $res
1945 vput vexpr res @+ -9223372036854775808 -1
1946 echo $?/$^ERRNAME $res
1947 vput vexpr res + 0 -9223372036854775808
1948 echo $?/$^ERRNAME $res
1949 vput vexpr res + -1 -9223372036854775808
1950 echo $?/$^ERRNAME $res
1951 vput vexpr res @+ -1 -9223372036854775808
1952 echo $?/$^ERRNAME $res
1953 echo ' #5'
1954 vput vexpr res - 0 0
1955 echo $?/$^ERRNAME $res
1956 vput vexpr res - 0 1
1957 echo $?/$^ERRNAME $res
1958 vput vexpr res - 1 1
1959 echo $?/$^ERRNAME $res
1960 echo ' #6'
1961 vput vexpr res - 9223372036854775807 0
1962 echo $?/$^ERRNAME $res
1963 vput vexpr res - 9223372036854775807 -1
1964 echo $?/$^ERRNAME $res
1965 vput vexpr res @- 9223372036854775807 -1
1966 echo $?/$^ERRNAME $res
1967 vput vexpr res - 0 9223372036854775807
1968 echo $?/$^ERRNAME $res
1969 vput vexpr res - -1 9223372036854775807
1970 echo $?/$^ERRNAME $res
1971 vput vexpr res - -2 9223372036854775807
1972 echo $?/$^ERRNAME $res
1973 vput vexpr res @- -2 9223372036854775807
1974 echo $?/$^ERRNAME $res
1975 echo ' #7'
1976 vput vexpr res - -9223372036854775808 +0
1977 echo $?/$^ERRNAME $res
1978 vput vexpr res - -9223372036854775808 +1
1979 echo $?/$^ERRNAME $res
1980 vput vexpr res @- -9223372036854775808 +1
1981 echo $?/$^ERRNAME $res
1982 vput vexpr res - 0 -9223372036854775808
1983 echo $?/$^ERRNAME $res
1984 vput vexpr res - +1 -9223372036854775808
1985 echo $?/$^ERRNAME $res
1986 vput vexpr res @- +1 -9223372036854775808
1987 echo $?/$^ERRNAME $res
1988 echo ' #8'
1989 vput vexpr res + -13 -2
1990 echo $?/$^ERRNAME $res
1991 vput vexpr res - 0 0
1992 echo $?/$^ERRNAME $res
1993 vput vexpr res - 0 1
1994 echo $?/$^ERRNAME $res
1995 vput vexpr res - 1 1
1996 echo $?/$^ERRNAME $res
1997 vput vexpr res - -13 -2
1998 echo $?/$^ERRNAME $res
1999 echo ' #9'
2000 vput vexpr res * 0 0
2001 echo $?/$^ERRNAME $res
2002 vput vexpr res * 0 1
2003 echo $?/$^ERRNAME $res
2004 vput vexpr res * 1 1
2005 echo $?/$^ERRNAME $res
2006 vput vexpr res * -13 -2
2007 echo $?/$^ERRNAME $res
2008 echo ' #10'
2009 vput vexpr res / 0 0
2010 echo $?/$^ERRNAME $res
2011 vput vexpr res / 0 1
2012 echo $?/$^ERRNAME $res
2013 vput vexpr res / 1 1
2014 echo $?/$^ERRNAME $res
2015 vput vexpr res / -13 -2
2016 echo $?/$^ERRNAME $res
2017 echo ' #11'
2018 vput vexpr res % 0 0
2019 echo $?/$^ERRNAME $res
2020 vput vexpr res % 0 1
2021 echo $?/$^ERRNAME $res
2022 vput vexpr res % 1 1
2023 echo $?/$^ERRNAME $res
2024 vput vexpr res % -13 -2
2025 echo $?/$^ERRNAME $res
2026 __EOT
2027
2028 check behave:vexpr-numeric 0 "${MBOX}" '960821755 1962'
2029
2030 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>&1
2031 vput vexpr res find 'bananarama' 'nana'
2032 echo $?/$^ERRNAME :$res:
2033 vput vexpr res find 'bananarama' 'bana'
2034 echo $?/$^ERRNAME :$res:
2035 vput vexpr res find 'bananarama' 'Bana'
2036 echo $?/$^ERRNAME :$res:
2037 vput vexpr res find 'bananarama' 'rama'
2038 echo $?/$^ERRNAME :$res:
2039 echo ' #1'
2040 vput vexpr res ifind 'bananarama' 'nana'
2041 echo $?/$^ERRNAME :$res:
2042 vput vexpr res ifind 'bananarama' 'bana'
2043 echo $?/$^ERRNAME :$res:
2044 vput vexpr res ifind 'bananarama' 'Bana'
2045 echo $?/$^ERRNAME :$res:
2046 vput vexpr res ifind 'bananarama' 'rama'
2047 echo $?/$^ERRNAME :$res:
2048 echo ' #2'
2049 vput vexpr res substring 'bananarama' 1
2050 echo $?/$^ERRNAME :$res:
2051 vput vexpr res substring 'bananarama' 3
2052 echo $?/$^ERRNAME :$res:
2053 vput vexpr res substring 'bananarama' 5
2054 echo $?/$^ERRNAME :$res:
2055 vput vexpr res substring 'bananarama' 7
2056 echo $?/$^ERRNAME :$res:
2057 vput vexpr res substring 'bananarama' 9
2058 echo $?/$^ERRNAME :$res:
2059 vput vexpr res substring 'bananarama' 10
2060 echo $?/$^ERRNAME :$res:
2061 vput vexpr res substring 'bananarama' 1 3
2062 echo $?/$^ERRNAME :$res:
2063 vput vexpr res substring 'bananarama' 3 3
2064 echo $?/$^ERRNAME :$res:
2065 vput vexpr res substring 'bananarama' 5 3
2066 echo $?/$^ERRNAME :$res:
2067 vput vexpr res substring 'bananarama' 7 3
2068 echo $?/$^ERRNAME :$res:
2069 vput vexpr res substring 'bananarama' 9 3
2070 echo $?/$^ERRNAME :$res:
2071 vput vexpr res substring 'bananarama' 10 3
2072 echo $?/$^ERRNAME :$res:
2073 echo ' #3'
2074 vput vexpr res substring 'bananarama' -1
2075 echo $?/$^ERRNAME :$res:
2076 vput vexpr res substring 'bananarama' -3
2077 echo $?/$^ERRNAME :$res:
2078 vput vexpr res substring 'bananarama' -5
2079 echo $?/$^ERRNAME :$res:
2080 vput vexpr res substring 'bananarama' -7
2081 echo $?/$^ERRNAME :$res:
2082 vput vexpr res substring 'bananarama' -9
2083 echo $?/$^ERRNAME :$res:
2084 vput vexpr res substring 'bananarama' -10
2085 echo $?/$^ERRNAME :$res:
2086 vput vexpr res substring 'bananarama' 1 -3
2087 echo $?/$^ERRNAME :$res:
2088 vput vexpr res substring 'bananarama' 3 -3
2089 echo $?/$^ERRNAME :$res:
2090 vput vexpr res substring 'bananarama' 5 -3
2091 echo $?/$^ERRNAME :$res:
2092 vput vexpr res substring 'bananarama' 7 -3
2093 echo $?/$^ERRNAME :$res:
2094 vput vexpr res substring 'bananarama' 9 -3
2095 echo $?/$^ERRNAME :$res:
2096 vput vexpr res substring 'bananarama' 10 -3
2097 echo $?/$^ERRNAME :$res:
2098 echo ' #4'
2099 vput vexpr res trim 'Cocoon Cocoon'
2100 echo $?/$^ERRNAME :$res:
2101 vput vexpr res trim ' Cocoon Cocoon '
2102 echo $?/$^ERRNAME :$res:
2103 vput vexpr res trim-front 'Cocoon Cocoon'
2104 echo $?/$^ERRNAME :$res:
2105 vput vexpr res trim-front ' Cocoon Cocoon '
2106 echo $?/$^ERRNAME :$res:
2107 vput vexpr res trim-end 'Cocoon Cocoon'
2108 echo $?/$^ERRNAME :$res:
2109 vput vexpr res trim-end ' Cocoon Cocoon '
2110 echo $?/$^ERRNAME :$res:
2111 __EOT
2112
2113 check behave:vexpr-string 0 "${MBOX}" '3182004322 601'
2114
2115 if have_feat regex; then
2116 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>&1
2117 vput vexpr res regex 'bananarama' 'nana'
2118 echo $?/$^ERRNAME :$res:
2119 vput vexpr res regex 'bananarama' 'bana'
2120 echo $?/$^ERRNAME :$res:
2121 vput vexpr res regex 'bananarama' 'Bana'
2122 echo $?/$^ERRNAME :$res:
2123 vput vexpr res regex 'bananarama' 'rama'
2124 echo $?/$^ERRNAME :$res:
2125 echo ' #1'
2126 vput vexpr res iregex 'bananarama' 'nana'
2127 echo $?/$^ERRNAME :$res:
2128 vput vexpr res iregex 'bananarama' 'bana'
2129 echo $?/$^ERRNAME :$res:
2130 vput vexpr res iregex 'bananarama' 'Bana'
2131 echo $?/$^ERRNAME :$res:
2132 vput vexpr res iregex 'bananarama' 'rama'
2133 echo $?/$^ERRNAME :$res:
2134 echo ' #2'
2135 vput vexpr res regex 'bananarama' '(.*)nana(.*)' '\${1}a\${0}u{\$2}'
2136 echo $?/$^ERRNAME :$res:
2137 vput vexpr res regex 'bananarama' '(.*)bana(.*)' '\${1}a\${0}u\$2'
2138 echo $?/$^ERRNAME :$res:
2139 vput vexpr res regex 'bananarama' 'Bana(.+)' '\$1\$0'
2140 echo $?/$^ERRNAME :$res:
2141 vput vexpr res regex 'bananarama' '(.+)rama' '\$1\$0'
2142 echo $?/$^ERRNAME :$res:
2143 echo ' #3'
2144 vput vexpr res iregex 'bananarama' '(.*)nana(.*)' '\${1}a\${0}u{\$2}'
2145 echo $?/$^ERRNAME :$res:
2146 vput vexpr res iregex 'bananarama' '(.*)bana(.*)' '\${1}a\${0}u\$2'
2147 echo $?/$^ERRNAME :$res:
2148 vput vexpr res iregex 'bananarama' 'Bana(.+)' '\$1\$0'
2149 echo $?/$^ERRNAME :$res:
2150 vput vexpr res iregex 'bananarama' '(.+)rama' '\$1\$0'
2151 echo $?/$^ERRNAME :$res:
2152 echo ' #4'
2153 __EOT
2154
2155 check behave:vexpr-regex 0 "${MBOX}" '3270360157 311'
2156 else
2157 printf 'behave:vexpr-regex: unsupported, skipped\n'
2158 fi
2159
2160 t_epilog
2161 }
2162
2163 t_behave_call_ret() {
2164 t_prolog t_behave_call_ret
2165
2166 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} -Snomemdebug > "${MBOX}" 2>&1
2167 define w1 {
2168 echon ">$1 "
2169 vput vexpr i + $1 1
2170 if [ $i -le 42 ]
2171 vput vexpr j '&' $i 7
2172 if [ $j -eq 7 ]
2173 echo .
2174 end
2175 call w1 $i
2176 wysh set i=$? k=$!
2177 vput vexpr j '&' $i 7
2178 echon "<$1/$i/$k "
2179 if [ $j -eq 7 ]
2180 echo .
2181 end
2182 else
2183 echo ! The end for $1
2184 end
2185 return $1
2186 }
2187 # Transport $?/$! up the call chain
2188 define w2 {
2189 echon ">$1 "
2190 vput vexpr i + $1 1
2191 if [ $1 -lt 42 ]
2192 call w2 $i
2193 wysh set i=$? j=$! k=$^ERRNAME
2194 echon "<$1/$i/$k "
2195 return $i $j
2196 else
2197 echo ! The end for $1
2198 return $i $^ERR-BUSY
2199 end
2200 echoerr au
2201 }
2202 # Up and down it goes
2203 define w3 {
2204 echon ">$1/$2 "
2205 vput vexpr i + $1 1
2206 if [ $1 -lt 42 ]
2207 call w3 $i $2
2208 wysh set i=$? j=$!
2209 vput vexpr k - $1 $2
2210 if [ $k -eq 21 ]
2211 vput vexpr i + $1 1
2212 vput vexpr j + $2 1
2213 echo "# <$i/$j> .. "
2214 call w3 $i $j
2215 wysh set i=$? j=$!
2216 end
2217 eval echon "<\$1=\$i/\$^ERRNAME-$j "
2218 return $i $j
2219 else
2220 echo ! The end for $1=$i/$2
2221 if [ "$2" != "" ]
2222 return $i $^ERR-DOM
2223 else
2224 return $i $^ERR-BUSY
2225 end
2226 end
2227 echoerr au
2228 }
2229
2230 call w1 0; echo ?=$? !=$!; echo -----;
2231 call w2 0; echo ?=$? !=$^ERRNAME; echo -----;
2232 call w3 0 1; echo ?=$? !=$^ERRNAME; echo -----;
2233 __EOT
2234
2235 check behave:call_ret 0 "${MBOX}" '1572045517 5922'
2236
2237 t_epilog
2238 }
2239
2240 t_behave_xcall() {
2241 t_prolog t_behave_xcall
2242
2243 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} -Snomemdebug > "${MBOX}" 2>&1
2244 define work {
2245 echon "$1 "
2246 vput vexpr i + $1 1
2247 if [ $i -le 1111 ]
2248 vput vexpr j '&' $i 7
2249 if [ $j -eq 7 ]
2250 echo .
2251 end
2252 \xcall work $i $2
2253 end
2254 echo ! The end for $1/$2
2255 if [ "$2" != "" ]
2256 return $i $^ERR-BUSY
2257 end
2258 }
2259 define xwork {
2260 \xcall work 0 $2
2261 }
2262 call work 0
2263 echo ?=$? !=$!
2264 call xwork
2265 echo ?=$? !=$!
2266 xcall xwork
2267 echo ?=$? !=$^ERRNAME
2268 #
2269 call work 0 yes
2270 echo ?=$? !=$^ERRNAME
2271 call xwork 0 yes
2272 echo ?=$? !=$^ERRNAME
2273 __EOT
2274
2275 check behave:xcall-1 0 "${MBOX}" '2401702082 23801'
2276
2277 ##
2278
2279 ${cat} <<- '__EOT' > "${BODY}"
2280 define __w {
2281 echon "$1 "
2282 vput vexpr i + $1 1
2283 if [ $i -le 111 ]
2284 vput vexpr j '&' $i 7
2285 if [ $j -eq 7 ]
2286 echo .
2287 end
2288 \xcall __w $i $2
2289 end
2290 echo ! The end for $1
2291 if [ $2 -eq 0 ]
2292 nonexistingcommand
2293 echo would be err with errexit
2294 return
2295 end
2296 echo calling exit
2297 exit
2298 }
2299 define work {
2300 echo eins
2301 call __w 0 0
2302 echo zwei, ?=$? !=$!
2303 localopts yes; set errexit
2304 ignerr call __w 0 0
2305 echo drei, ?=$? !=$^ERRNAME
2306 call __w 0 $1
2307 echo vier, ?=$? !=$^ERRNAME, this is an error
2308 }
2309 ignerr call work 0
2310 echo outer 1, ?=$? !=$^ERRNAME
2311 xxxign call work 0
2312 echo outer 2, ?=$? !=$^ERRNAME, could be error if xxxign non-empty
2313 call work 1
2314 echo outer 3, ?=$? !=$^ERRNAME
2315 echo this is definitely an error
2316 __EOT
2317
2318 < "${BODY}" ${MAILX} ${ARGS} -X'commandalias xxxign ignerr' -Snomemdebug \
2319 > "${MBOX}" 2>&1
2320 check behave:xcall-2 0 "${MBOX}" '3900716531 4200'
2321
2322 < "${BODY}" ${MAILX} ${ARGS} -X'commandalias xxxign " "' -Snomemdebug \
2323 > "${MBOX}" 2>&1
2324 check behave:xcall-3 1 "${MBOX}" '1006776201 2799'
2325
2326 t_epilog
2327 }
2328
2329 t_behave_vpospar() {
2330 t_prolog t_behave_vpospar
2331
2332 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>&1
2333 vpospar set hey, "'you ", world!
2334 echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2335 vput vpospar x quote; echo x<$x>
2336 vpospar clear;echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2337 vput vpospar y quote;echo y<$y>
2338 eval vpospar set ${x};echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2339 eval vpospar set ${y};echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2340 eval vpospar set ${x};echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2341
2342 define infun2 {
2343 echo infun2:$?/$^ERRNAME/$#:$*/"$@"/<$1><$2><$3><$4>
2344 vput vpospar z quote;echo infun2:z<$z>
2345 }
2346
2347 define infun {
2348 echo infun:$?/$^ERRNAME/$#:$*/"$@"/<$1><$2><$3><$4>
2349 vput vpospar y quote;echo infun:y<$y>
2350 eval vpospar set ${x};echo infun:$?/$^ERRNAME/$#:$*/"$@"/<$1><$2><$3><$4>
2351 vpospar clear;echo infun:$?/$^ERRNAME/$#:$*/"$@"/<$1><$2><$3><$4>
2352 eval call infun2 $x
2353 echo infun:$?/$^ERRNAME/$#:$*/"$@"/<$1><$2><$3><$4>
2354 eval vpospar set ${y};echo infun:$?/$^ERRNAME/$#:$*/"$@"/<$1><$2><$3><$4>
2355 }
2356
2357 call infun This "in a" fun
2358 echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2359 vpospar clear;echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2360 __EOT
2361 check behave:vpospar-1 0 "${MBOX}" '155175639 866'
2362
2363 #
2364 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>&1
2365 set ifs=\'
2366 echo ifs<$ifs> ifs-ws<$ifs-ws>
2367 vpospar set hey, "'you ", world!
2368 echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2369 vput vpospar x quote; echo x<$x>
2370 vpospar clear;echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2371 eval vpospar set ${x};echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2372
2373 set ifs=,
2374 echo ifs<$ifs> ifs-ws<$ifs-ws>
2375 vpospar set hey, "'you ", world!
2376 unset ifs;echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2377 set ifs=,
2378 vput vpospar x quote; echo x<$x>
2379 vpospar clear;echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2380 eval vpospar set ${x};\
2381 unset ifs;echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2382
2383 wysh set ifs=$',\t'
2384 echo ifs<$ifs> ifs-ws<$ifs-ws>
2385 vpospar set hey, "'you ", world!
2386 unset ifs; echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2387 wysh set ifs=$',\t'
2388 vput vpospar x quote; echo x<$x>
2389 vpospar clear;echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2390 eval vpospar set ${x};\
2391 unset ifs;echo $?/$^ERRNAME/$#: $* / "$@" / <$1><$2><$3><$4>
2392 __EOT
2393 check behave:vpospar-ifs 0 "${MBOX}" '2015927702 706'
2394
2395 t_epilog
2396 }
2397
2398 t_behave_atxplode() {
2399 t_prolog t_behave_atxplode
2400 TRAP_EXIT_ADDONS="./.t*"
2401
2402 ${cat} > ./.t.sh <<- '___'; ${cat} > ./.t.rc <<- '___'
2403 x() { echo $#; }
2404 xxx() {
2405 printf " (1/$#: <$1>)"
2406 shift
2407 if [ $# -gt 0 ]; then
2408 xxx "$@"
2409 else
2410 echo
2411 fi
2412 }
2413 yyy() {
2414 eval "$@ ' ball"
2415 }
2416 set --
2417 x "$@"
2418 x "$@"''
2419 x " $@"
2420 x "$@ "
2421 printf yyy;yyy 'xxx' "b\$'\t'u ' "
2422 printf xxx;xxx arg ,b u.
2423 printf xxx;xxx arg , .
2424 printf xxx;xxx arg ,ball.
2425 ___
2426 define x {
2427 echo $#
2428 }
2429 define xxx {
2430 echon " (1/$#: <$1>)"
2431 shift
2432 if [ $# -gt 0 ]
2433 \xcall xxx "$@"
2434 endif
2435 echo
2436 }
2437 define yyy {
2438 eval "$@ ' ball"
2439 }
2440 vpospar set
2441 call x "$@"
2442 call x "$@"''
2443 call x " $@"
2444 call x "$@ "
2445 echon yyy;call yyy '\call xxx' "b\$'\t'u ' "
2446 echon xxx;call xxx arg ,b u.
2447 echon xxx;call xxx arg , .
2448 echon xxx;call xxx arg ,ball.
2449 ___
2450
2451 ${MAILX} ${ARGS} -X'source ./.t.rc' -Xx > "${MBOX}" 2>&1
2452 check behave:atxplode-1 0 "${MBOX}" '41566293 164'
2453
2454 #${SHELL} ./.t.sh > ./.tshout 2>&1
2455 #check behave:atxplode:disproof-1 0 ./.tshout '41566293 164'
2456
2457 t_epilog
2458 }
2459
2460 t_behave_read() {
2461 t_prolog t_behave_read
2462 TRAP_EXIT_ADDONS="./.t*"
2463
2464 ${cat} <<- '__EOT' > .tin
2465 hey1, "'you ", world!
2466 hey2, "'you ", bugs bunny!
2467 hey3, "'you ",
2468 hey4, "'you "
2469 __EOT
2470
2471 ${cat} <<- '__EOT' |\
2472 ${MAILX} ${ARGS} -X'readctl create ./.tin' > "${MBOX}" 2>&1
2473 read a b c
2474 echo $?/$^ERRNAME / <$a><$b><$c>
2475 read a b c
2476 echo $?/$^ERRNAME / <$a><$b><$c>
2477 read a b c
2478 echo $?/$^ERRNAME / <$a><$b><$c>
2479 read a b c
2480 echo $?/$^ERRNAME / <$a><$b><$c>
2481 unset a b c;read a b c
2482 echo $?/$^ERRNAME / <$a><$b><$c>
2483 readctl remove ./.tin;echo readctl remove:$?/$^ERRNAME
2484 __EOT
2485 check behave:read-1 0 "${MBOX}" '1527910147 173'
2486
2487 ${cat} <<- '__EOT' > .tin2
2488 hey2.0,:"'you ",:world!:mars.:
2489 hey2.1,:"'you ",:world!
2490 hey2.2,:"'you ",:bugs bunny!
2491 hey2.3,:"'you ",:
2492 hey2.4,:"'you ":
2493 :
2494 __EOT
2495
2496 ${cat} <<- '__EOT' |\
2497 6< .tin2 ${MAILX} ${ARGS} -X 'readctl create 6' > "${MBOX}" 2>&1
2498 set ifs=:
2499 read a b c
2500 echo $?/$^ERRNAME / <$a><$b><$c>
2501 read a b c
2502 echo $?/$^ERRNAME / <$a><$b><$c>
2503 read a b c
2504 echo $?/$^ERRNAME / <$a><$b><$c>
2505 read a b c
2506 echo $?/$^ERRNAME / <$a><$b><$c>
2507 read a b c
2508 echo $?/$^ERRNAME / <$a><$b><$c>
2509 read a b c
2510 echo $?/$^ERRNAME / <$a><$b><$c>
2511 unset a b c;read a b c
2512 echo $?/$^ERRNAME / <$a><$b><$c>
2513 read a b c
2514 echo $?/$^ERRNAME / <$a><$b><$c>
2515 readctl remove 6;echo readctl remove:$?/$^ERRNAME
2516 __EOT
2517 check behave:read-ifs 0 "${MBOX}" '890153490 298'
2518
2519 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} > "${MBOX}" 2>&1
2520 readctl create .tin
2521 readall d; echo $?/$^ERRNAME / <$d>
2522 wysh set d;readall d;echo $?/$^ERRNAME / <$d>
2523 readctl create .tin2
2524 readall d; echo $?/$^ERRNAME / <$d>
2525 wysh set d;readall d;echo $?/$^ERRNAME / <$d>
2526 readctl remove .tin;echo $?/$^ERRNAME;\
2527 readctl remove .tin2;echo $?/$^ERRNAME
2528 __EOT
2529 check behave:readall 0 "${MBOX}" '860434889 333'
2530
2531 t_epilog
2532 }
2533
2534 t_behave_mbox() {
2535 t_prolog t_behave_mbox
2536 TRAP_EXIT_ADDONS="./.t*"
2537
2538 (
2539 i=0
2540 while [ ${i} -lt 112 ]; do
2541 printf 'm file://%s\n~s Subject %s\nHello %s!\n~.\n' \
2542 "${MBOX}" "${i}" "${i}"
2543 i=`add ${i} 1`
2544 done
2545 ) | ${MAILX} ${ARGS}
2546 check behave:mbox-1 0 "${MBOX}" '1140119864 13780'
2547
2548 printf 'File "%s"\ncopy * "%s"\nFile "%s"\nfrom*' "${MBOX}" .tmbox1 .tmbox1 |
2549 ${MAILX} ${ARGS} -Sshowlast > .tlst
2550 check behave:mbox-2 0 .tlst '2739893312 9103'
2551
2552 printf 'File "%s"\ncopy * "file://%s"\nFile "file://%s"\nfrom*' \
2553 "${MBOX}" .tmbox2 .tmbox2 | ${MAILX} ${ARGS} -Sshowlast > .tlst
2554 check behave:mbox-3 0 .tlst '1702194178 9110'
2555
2556 # only the odd (even)
2557 (
2558 printf 'File "file://%s"\ncopy ' .tmbox2
2559 i=0
2560 while [ ${i} -lt 112 ]; do
2561 j=`modulo ${i} 2`
2562 [ ${j} -eq 1 ] && printf '%s ' "${i}"
2563 i=`add ${i} 1`
2564 done
2565 printf 'file://%s\nFile "file://%s"\nfrom*' .tmbox3 .tmbox3
2566 ) | ${MAILX} ${ARGS} -Sshowlast > .tlst
2567 check behave:mbox-4 0 .tmbox3 '631132924 6890'
2568 check behave:mbox-5 - .tlst '2960975049 4573'
2569 # ...
2570 (
2571 printf 'file "file://%s"\nmove ' .tmbox2
2572 i=0
2573 while [ ${i} -lt 112 ]; do
2574 j=`modulo ${i} 2`
2575 [ ${j} -eq 0 ] && [ ${i} -ne 0 ] && printf '%s ' "${i}"
2576 i=`add ${i} 1`
2577 done
2578 printf 'file://%s\nFile "file://%s"\nfrom*\nFile "file://%s"\nfrom*' \
2579 .tmbox3 .tmbox3 .tmbox2
2580 ) | ${MAILX} ${ARGS} -Sshowlast > .tlst
2581 check behave:mbox-6 0 .tmbox3 '1387070539 13655'
2582 ${sed} 2d < .tlst > .tlstx
2583 check behave:mbox-7 - .tlstx '2729940494 13645'
2584
2585 t_epilog
2586 }
2587
2588 t_behave_maildir() {
2589 t_prolog t_behave_maildir
2590 TRAP_EXIT_ADDONS="./.t*"
2591
2592 (
2593 i=0
2594 while [ ${i} -lt 112 ]; do
2595 printf 'm file://%s\n~s Subject %s\nHello %s!\n~.\n' \
2596 "${MBOX}" "${i}" "${i}"
2597 i=`add ${i} 1`
2598 done
2599 ) | ${MAILX} ${ARGS}
2600 check behave:maildir-1 0 "${MBOX}" '1140119864 13780'
2601
2602 printf 'File "%s"
2603 copy * "%s"
2604 File "%s"
2605 from*
2606 ' "${MBOX}" .tmdir1 .tmdir1 |
2607 ${MAILX} ${ARGS} -Snewfolders=maildir -Sshowlast > .tlst
2608 check behave:maildir-2 0 .tlst '1797938753 9103'
2609
2610 printf 'File "%s"
2611 copy * "maildir://%s"
2612 File "maildir://%s"
2613 from*
2614 ' "${MBOX}" .tmdir2 .tmdir2 |
2615 ${MAILX} ${ARGS} -Sshowlast > .tlst
2616 check behave:maildir-3 0 .tlst '1155631089 9113'
2617
2618 printf 'File "maildir://%s"
2619 copy * "file://%s"
2620 File "file://%s"
2621 from*
2622 ' .tmdir2 .tmbox1 .tmbox1 |
2623 ${MAILX} ${ARGS} -Sshowlast > .tlst
2624 check behave:maildir-4 0 .tmbox1 '2646131190 13220'
2625 check behave:maildir-5 - .tlst '3701297796 9110'
2626
2627 # only the odd (even)
2628 (
2629 printf 'File "maildir://%s"
2630 copy ' .tmdir2
2631 i=0
2632 while [ ${i} -lt 112 ]; do
2633 j=`modulo ${i} 2`
2634 [ ${j} -eq 1 ] && printf '%s ' "${i}"
2635 i=`add ${i} 1`
2636 done
2637 printf ' file://%s
2638 File "file://%s"
2639 from*
2640 ' .tmbox2 .tmbox2
2641 ) | ${MAILX} ${ARGS} -Sshowlast > .tlst
2642 check behave:maildir-6 0 .tmbox2 '142890131 6610'
2643 check behave:maildir-7 - .tlst '960096773 4573'
2644 # ...
2645 (
2646 printf 'file "maildir://%s"
2647 move ' .tmdir2
2648 i=0
2649 while [ ${i} -lt 112 ]; do
2650 j=`modulo ${i} 2`
2651 [ ${j} -eq 0 ] && [ ${i} -ne 0 ] && printf '%s ' "${i}"
2652 i=`add ${i} 1`
2653 done
2654 printf ' file://%s
2655 File "file://%s"
2656 from*
2657 File "maildir://%s"
2658 from*
2659 ' .tmbox2 .tmbox2 .tmdir2
2660 ) | ${MAILX} ${ARGS} -Sshowlast > .tlst
2661 check behave:maildir-8 0 .tmbox2 '3806905791 13100'
2662 ${sed} 2d < .tlst > .tlstx
2663 check behave:maildir-9 - .tlstx '4216815295 13645'
2664
2665 t_epilog
2666 }
2667
2668 t_behave_record_a_resend() {
2669 t_prolog t_behave_record_a_resend
2670 TRAP_EXIT_ADDONS="./.t.record ./.t.resent"
2671
2672 printf '
2673 set record=%s
2674 m %s\n~s Subject 1.\nHello.\n~.
2675 set record-files add-file-recipients
2676 m %s\n~s Subject 2.\nHello.\n~.
2677 File %s
2678 resend 2 ./.t.resent
2679 Resend 1 ./.t.resent
2680 set record-resent
2681 resend 2 ./.t.resent
2682 Resend 1 ./.t.resent
2683 ' ./.t.record "${MBOX}" "${MBOX}" "${MBOX}" |
2684 ${MAILX} ${ARGS}
2685
2686 check behave:record_a_resend-1 0 "${MBOX}" '3057873538 256'
2687 check behave:record_a_resend-2 - .t.record '391356429 460'
2688 check behave:record_a_resend-3 - .t.resent '2685231691 648'
2689
2690 t_epilog
2691 }
2692
2693 t_behave_e_H_L_opts() {
2694 t_prolog t_behave_e_H_L_opts
2695 TRAP_EXIT_ADDONS="./.tsendmail.sh ./.t.mbox"
2696
2697 touch ./.t.mbox
2698 ${MAILX} ${ARGS} -ef ./.t.mbox
2699 echo ${?} > "${MBOX}"
2700
2701 ${cat} <<-_EOT > ./.tsendmail.sh
2702 #!${SHELL} -
2703 (echo 'From Alchemilla Wed Apr 07 17:03:33 2017' && ${cat} && echo
2704 ) >> "./.t.mbox"
2705 _EOT
2706 chmod 0755 ./.tsendmail.sh
2707 printf 'm me@exam.ple\nLine 1.\nHello.\n~.\n' |
2708 ${MAILX} ${ARGS} -Smta=./.tsendmail.sh
2709 printf 'm you@exam.ple\nLine 1.\nBye.\n~.\n' |
2710 ${MAILX} ${ARGS} -Smta=./.tsendmail.sh
2711
2712 ${MAILX} ${ARGS} -ef ./.t.mbox
2713 echo ${?} >> "${MBOX}"
2714 ${MAILX} ${ARGS} -efL @t@me ./.t.mbox
2715 echo ${?} >> "${MBOX}"
2716 ${MAILX} ${ARGS} -efL @t@you ./.t.mbox
2717 echo ${?} >> "${MBOX}"
2718 ${MAILX} ${ARGS} -efL '@>@Line 1' ./.t.mbox
2719 echo ${?} >> "${MBOX}"
2720 ${MAILX} ${ARGS} -efL '@>@Hello.' ./.t.mbox
2721 echo ${?} >> "${MBOX}"
2722 ${MAILX} ${ARGS} -efL '@>@Bye.' ./.t.mbox
2723 echo ${?} >> "${MBOX}"
2724 ${MAILX} ${ARGS} -efL '@>@Good bye.' ./.t.mbox
2725 echo ${?} >> "${MBOX}"
2726
2727 ${MAILX} ${ARGS} -fH ./.t.mbox >> "${MBOX}"
2728 echo ${?} >> "${MBOX}"
2729 ${MAILX} ${ARGS} -fL @t@me ./.t.mbox >> "${MBOX}"
2730 echo ${?} >> "${MBOX}"
2731 ${MAILX} ${ARGS} -fL @t@you ./.t.mbox >> "${MBOX}"
2732 echo ${?} >> "${MBOX}"
2733 ${MAILX} ${ARGS} -fL '@>@Line 1' ./.t.mbox >> "${MBOX}"
2734 echo ${?} >> "${MBOX}"
2735 ${MAILX} ${ARGS} -fL '@>@Hello.' ./.t.mbox >> "${MBOX}"
2736 echo ${?} >> "${MBOX}"
2737 ${MAILX} ${ARGS} -fL '@>@Bye.' ./.t.mbox >> "${MBOX}"
2738 echo ${?} >> "${MBOX}"
2739 ${MAILX} ${ARGS} -fL '@>@Good bye.' ./.t.mbox >> "${MBOX}" 2>/dev/null
2740 echo ${?} >> "${MBOX}"
2741
2742 check behave:e_H_L_opts - "${MBOX}" '1708955574 678'
2743
2744 t_epilog
2745 }
2746
2747 t_behave_alternates() {
2748 t_prolog t_behave_alternates
2749 TRAP_EXIT_ADDONS="./.t*"
2750
2751 ${cat} <<-_EOT > ./.tsendmail.sh
2752 #!${SHELL} -
2753 (echo 'From Valeriana Sat Jul 08 15:54:03 2017' && ${cat} && echo
2754 ) >> "${MBOX}"
2755 _EOT
2756 chmod 0755 ./.tsendmail.sh
2757
2758 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} -Smta=./.tsendmail.sh > ./.tall 2>&1
2759 echo --0
2760 alternates
2761 echo $?/$^ERRNAME
2762 alternates a1@b1 a2@b2 a3@b3
2763 echo $?/$^ERRNAME
2764 alternates
2765 echo $?/$^ERRNAME
2766 vput alternates rv
2767 echo $?/$^ERRNAME <$rv>
2768
2769 echo --1
2770 unalternates a2@b2
2771 vput alternates rv
2772 echo $?/$^ERRNAME <$rv>
2773 unalternates a3@b3
2774 vput alternates rv
2775 echo $?/$^ERRNAME <$rv>
2776 unalternates a1@b1
2777 vput alternates rv
2778 echo $?/$^ERRNAME <$rv>
2779
2780 echo --2
2781 unalternates *
2782 alternates a1@b1 a2@b2 a3@b3
2783 unalternates a3@b3
2784 vput alternates rv
2785 echo $?/$^ERRNAME <$rv>
2786 unalternates a2@b2
2787 vput alternates rv
2788 echo $?/$^ERRNAME <$rv>
2789 unalternates a1@b1
2790 vput alternates rv
2791 echo $?/$^ERRNAME <$rv>
2792
2793 echo --3
2794 alternates a1@b1 a2@b2 a3@b3
2795 unalternates a1@b1
2796 vput alternates rv
2797 echo $?/$^ERRNAME <$rv>
2798 unalternates a2@b2
2799 vput alternates rv
2800 echo $?/$^ERRNAME <$rv>
2801 unalternates a3@b3
2802 vput alternates rv
2803 echo $?/$^ERRNAME <$rv>
2804
2805 echo --4
2806 unalternates *
2807 alternates a1@b1 a2@b2 a3@b3
2808 unalternates *
2809 vput alternates rv
2810 echo $?/$^ERRNAME <$rv>
2811
2812 echo --5
2813 unalternates *
2814 alternates a1@b1 a1@c1 a1@d1 a2@b2 a3@b3 a3@c3 a3@d3
2815 m a1@b1 a1@c1 a1@d1
2816 ~s all alternates, only a1@b1 remains
2817 ~c a2@b2
2818 ~b a3@b3 a3@c3 a3@d3
2819 ~r - '_EOT'
2820 This body is!
2821 This also body is!!
2822 _EOT
2823 ~.
2824
2825 echo --6
2826 unalternates *
2827 alternates a1@b1 a1@c1 a2@b2 a3@b3
2828 m a1@b1 a1@c1 a1@d1
2829 ~s a1@b1 a1@d1, and a3@c3 a3@d3 remain
2830 ~c a2@b2
2831 ~b a3@b3 a3@c3 a3@d3
2832 ~r - '_EOT'
2833 This body2 is!
2834 _EOT
2835 ~.
2836
2837 echo --7
2838 alternates a1@b1 a2@b2 a3; set allnet
2839 m a1@b1 a1@c1 a1@d1
2840 ~s all alternates via allnet, only a1@b1 remains
2841 ~c a2@b2
2842 ~b a3@b3 a3@c3 a3@d3
2843 ~r - '_EOT'
2844 This body3 is!
2845 _EOT
2846 ~.
2847
2848 echo --10
2849 unalternates *
2850 alternates a1@b1
2851 echo $?/$^ERRNAME
2852 vput alternates rv
2853 echo $?/$^ERRNAME <$rv>
2854 alternates a2@b2
2855 echo $?/$^ERRNAME
2856 vput alternates rv
2857 echo $?/$^ERRNAME <$rv>
2858 alternates a3@b3
2859 echo $?/$^ERRNAME
2860 vput alternates rv
2861 echo $?/$^ERRNAME <$rv>
2862 alternates a4@b4
2863 echo $?/$^ERRNAME
2864 vput alternates rv
2865 echo $?/$^ERRNAME <$rv>
2866
2867 unalternates *
2868 vput alternates rv
2869 echo $?/$^ERRNAME <$rv>
2870
2871 echo --11
2872 set posix
2873 alternates a1@b1 a2@b2
2874 echo $?/$^ERRNAME
2875 vput alternates rv
2876 echo $?/$^ERRNAME <$rv>
2877 alternates a3@b3 a4@b4
2878 echo $?/$^ERRNAME
2879 vput alternates rv
2880 echo $?/$^ERRNAME <$rv>
2881 __EOT
2882 check behave:alternates-1 0 "${MBOX}" '142184864 515'
2883 check behave:alternates-2 - .tall '1878598364 505'
2884
2885 t_epilog
2886 }
2887
2888 t_behave_alias() {
2889 t_prolog t_behave_alias
2890 TRAP_EXIT_ADDONS="./.t*"
2891
2892 ${cat} <<-_EOT > ./.tsendmail.sh
2893 #!${SHELL} -
2894 (echo 'From Hippocastanum Mon Jun 19 15:07:07 2017' && ${cat} && echo
2895 ) >> "${MBOX}"
2896 _EOT
2897 chmod 0755 ./.tsendmail.sh
2898
2899 ${cat} <<- '__EOT' | ${MAILX} ${ARGS} -Smta=./.tsendmail.sh > ./.tall 2>&1
2900 alias a1 ex1@a1.ple
2901 alias a1 ex2@a1.ple "EX3 <ex3@a1.ple>"
2902 alias a1 ex4@a1.ple
2903 alias a2 ex1@a2.ple ex2@a2.ple ex3@a2.ple ex4@a2.ple
2904 alias a3 a4
2905 alias a4 a5 ex1@a4.ple
2906 alias a5 a6
2907 alias a6 a7 ex1@a6.ple
2908 alias a7 a8
2909 alias a8 ex1@a8.ple
2910 alias a1
2911 alias a2
2912 alias a3
2913 m a1
2914 ~c a2
2915 ~b a3
2916 ~r - '_EOT'
2917 This body is!
2918 This also body is!!
2919 _EOT
2920 __EOT
2921 check behave:alias-1 0 "${MBOX}" '2496925843 272'
2922 check behave:alias-2 - .tall '3548953204 152'
2923
2924 # TODO t_behave_alias: n_ALIAS_MAXEXP is compile-time constant,
2925 # TODO need to somehow provide its contents to the test, then test
2926
2927 t_epilog
2928 }
2929
2930 t_behave_filetype() {
2931 t_prolog t_behave_filetype
2932 TRAP_EXIT_ADDONS="./.t*"
2933
2934 ${cat} <<-_EOT > ./.tsendmail.sh
2935 #!${SHELL} -
2936 (echo 'From Alchemilla Wed Apr 25 15:12:13 2017' && ${cat} && echo
2937 ) >> "${MBOX}"
2938 _EOT
2939 chmod 0755 ./.tsendmail.sh
2940
2941 printf 'm m1@e.t\nL1\nHy1\n~.\nm m2@e.t\nL2\nHy2\n~@ %s\n~.\n' \
2942 "${SRCDIR}snailmail.jpg" | ${MAILX} ${ARGS} -Smta=./.tsendmail.sh
2943 check behave:filetype-1 0 "${MBOX}" '1594682963 13520'
2944
2945 if (echo | gzip -c) >/dev/null 2>&1; then
2946 ${rm} -f ./.t.mbox*
2947 {
2948 printf 'File "%s"\ncopy 1 ./.t.mbox.gz\ncopy 2 ./.t.mbox.gz' \
2949 "${MBOX}" | ${MAILX} ${ARGS} \
2950 -X'filetype gz gzip\ -dc gzip\ -c'
2951 printf 'File ./.t.mbox.gz\ncopy * ./.t.mbox\n' |
2952 ${MAILX} ${ARGS} -X'filetype gz gzip\ -dc gzip\ -c'
2953 } > ./.t.out 2>&1
2954 check behave:filetype-2 - "./.t.mbox" '1594682963 13520'
2955 check behave:filetype-3 - "./.t.out" '2392348396 102'
2956 else
2957 echo 'behave:filetype-2: unsupported, skipped'
2958 echo 'behave:filetype-3: unsupported, skipped'
2959 fi
2960
2961 {
2962 ${rm} -f ./.t.mbox*
2963 printf 'File "%s"\ncopy 1 ./.t.mbox.gz
2964 copy 2 ./.t.mbox.gz
2965 copy 1 ./.t.mbox.gz
2966 copy 2 ./.t.mbox.gz
2967 ' "${MBOX}" |
2968 ${MAILX} ${ARGS} \
2969 -X'filetype gz gzip\ -dc gzip\ -c' \
2970 -X'filetype mbox.gz "${sed} 1,3d|${cat}" \
2971 "echo eins;echo zwei;echo und mit ${sed} bist Du dabei;${cat}"'
2972 printf 'File ./.t.mbox.gz\ncopy * ./.t.mbox\n' |
2973 ${MAILX} ${ARGS} \
2974 -X'filetype gz gzip\ -dc gzip\ -c' \
2975 -X'filetype mbox.gz "${sed} 1,3d|${cat}" kill\ 0'
2976 } > ./.t.out 2>&1
2977 check behave:filetype-4 - "./.t.mbox" '2886541147 27060'
2978 check behave:filetype-5 - "./.t.out" '852335377 172'
2979
2980 t_epilog
2981 }
2982
2983 t_behave_message_injections() {
2984 t_prolog t_behave_message_injections
2985 TRAP_EXIT_ADDONS="./.t*"
2986
2987 ${cat} <<-_EOT > ./.tsendmail.sh
2988 #!${SHELL} -
2989 (echo 'From Echinacea Tue Jun 20 15:54:02 2017' && ${cat} && echo
2990 ) > "${MBOX}"
2991 _EOT
2992 chmod 0755 ./.tsendmail.sh
2993
2994 echo mysig > ./.tmysig
2995
2996 echo some-body | ${MAILX} ${ARGS} -Smta=./.tsendmail.sh \
2997 -Smessage-inject-head=head-inject \
2998 -Smessage-inject-tail=tail-inject \
2999 -Ssignature=./.tmysig \
3000 ex@am.ple > ./.tall 2>&1
3001 check behave:message_injections-1 0 "${MBOX}" '2434746382 134'
3002 check behave:message_injections-2 - .tall '4294967295 0' # empty file
3003
3004 ${cat} <<-_EOT > ./.template
3005 From: me
3006 To: ex1@am.ple
3007 Cc: ex2@am.ple
3008 Subject: This subject is
3009
3010 Body, body, body me.
3011 _EOT
3012 < ./.template ${MAILX} ${ARGS} -t -Smta=./.tsendmail.sh \
3013 -Smessage-inject-head=head-inject \
3014 -Smessage-inject-tail=tail-inject \
3015 -Ssignature=./.tmysig \
3016 > ./.tall 2>&1
3017 check behave:message_injections-3 0 "${MBOX}" '3114203412 198'
3018 check behave:message_injections-4 - .tall '4294967295 0' # empty file
3019
3020 t_epilog
3021 }
3022
3023 t_behave_attachments() {
3024 t_prolog t_behave_attachments
3025 TRAP_EXIT_ADDONS="./.t*"
3026
3027 ${cat} <<-_EOT > ./.tsendmail.sh
3028 #!${SHELL} -
3029 (echo 'From Cannabis Sun Feb 18 02:02:46 2018' && ${cat} && echo
3030 ) >> "${MBOX}"
3031 _EOT
3032 chmod 0755 ./.tsendmail.sh
3033
3034 ${cat} <<-_EOT > ./.tx
3035 From steffen Sun Feb 18 02:48:40 2018
3036 Date: Sun, 18 Feb 2018 02:48:40 +0100
3037 To:
3038 Subject: m1
3039 User-Agent: s-nail v14.9.7
3040
3041
3042 From steffen Sun Feb 18 02:48:42 2018
3043 Date: Sun, 18 Feb 2018 02:48:42 +0100
3044 To:
3045 Subject: m2
3046 User-Agent: s-nail v14.9.7
3047
3048
3049 _EOT
3050 echo att1 > ./.t1
3051 printf 'att2-1\natt2-2\natt2-4\n' > ./'.t 2'
3052 printf 'att3-1\natt3-2\natt3-4\n' > ./.t3
3053 printf 'att4-1\natt4-2\natt4-4\n' > './.t 4'
3054
3055 printf '\
3056 !@ ./.t3 "./.t 4" ""
3057 !p
3058 !@
3059 ./.t3
3060 "./.t 2"
3061
3062 !p
3063 !.
3064 ' | ${MAILX} ${ARGS} -Sescape=! -Smta=./.tsendmail.sh \
3065 -a ./.t1 -a './.t 2' \
3066 -s attachment-test \
3067 ex@am.ple > ./.tall 2>&1
3068 check behave:attachments-1 0 "${MBOX}" '4107062253 634'
3069 check behave:attachments-2 - .tall '1928331872 720'
3070
3071 ${rm} -f "${MBOX}"
3072 printf '\
3073 mail ex@amp.ple
3074 !s This the subject is
3075 !@ ./.t3 "#2" "./.t 4" "#1" ""
3076 !p
3077 !@
3078 "./.t 4"
3079 "#2"
3080
3081 !p
3082 !.
3083 mail ex@amp.ple
3084 !s Subject two
3085 !@ ./.t3 "#2" "./.t 4" "#1" ""
3086 !p
3087 !@
3088
3089 !p
3090 !.
3091 mail ex@amp.ple
3092 !s Subject three
3093 !@ ./.t3 "" "#2" "" "./.t 4" "" "#1" ""
3094 !p
3095 !@
3096 ./.t3
3097
3098 !p
3099 !.
3100 mail ex@amp.ple
3101 !s Subject Four
3102 !@ ./.t3 "" "#2" "" "./.t 4" "" "#1" ""
3103 !p
3104 !@
3105 "#1"
3106
3107 !p
3108 !.
3109 mail ex@amp.ple
3110 !s Subject Five
3111 !@
3112 "#2"
3113
3114 !p
3115 !.
3116 ' | ${MAILX} ${ARGS} -Sescape=! -Smta=./.tsendmail.sh -Rf ./.tx \
3117 > ./.tall 2>&1
3118 check behave:attachments-3 0 "${MBOX}" '798122412 2285'
3119 check behave:attachments-4 - .tall '2526106274 1910'
3120
3121 t_epilog
3122 }
3123
3124 t_behave_compose_hooks() { # TODO monster
3125 t_prolog t_behave_compose_hooks
3126 TRAP_EXIT_ADDONS="./.t*"
3127
3128 (echo line one&&echo line two&&echo line three) > ./.treadctl
3129 (echo echo four&&echo echo five&&echo echo six) > ./.tattach
3130
3131 ${cat} <<-_EOT > ./.tsendmail.sh
3132 #!${SHELL} -
3133 (echo 'From PrimulaVeris Wed Apr 10 22:59:00 2017' && ${cat} && echo
3134 ) >> "${MBOX}"
3135 _EOT
3136 chmod 0755 ./.tsendmail.sh
3137
3138 ${cat} <<'__EOT__' > ./.trc
3139 define bail {
3140 echoerr "Failed: $1. Bailing out"; echo "~x"; xit
3141 }
3142 define xerr {
3143 vput vexpr es substr "$1" 0 1
3144 if [ "$es" != 2 ]
3145 xcall bail "$2"
3146 end
3147 }
3148 define read_mline_res {
3149 read hl; wysh set len=$? es=$! en=$^ERRNAME;\
3150 echo $len/$es/$^ERRNAME: $hl
3151 if [ $es -ne $^ERR-NONE ]
3152 xcall bail read_mline_res
3153 elif [ $len -ne 0 ]
3154 \xcall read_mline_res
3155 end
3156 }
3157 define ins_addr {
3158 wysh set xh=$1
3159 echo "~^header list"; read hl; echo $hl;\
3160 call xerr "$hl" "in_addr ($xh) 0-1"
3161
3162 echo "~^header insert $xh diet <$xh@exam.ple> spliced";\
3163 read es; echo $es; call xerr "$es" "ins_addr $xh 1-1"
3164 echo "~^header insert $xh <${xh}2@exam.ple>";\
3165 read es; echo $es; call xerr "$es" "ins_addr $xh 1-2"
3166 echo "~^header insert $xh ${xh}3@exam.ple";\
3167 read es; echo $es; call xerr "$es" "ins_addr $xh 1-3"
3168 echo "~^header list $xh"; read hl; echo $hl;\
3169 call xerr "$hl" "ins_addr $xh 1-4"
3170 echo "~^header show $xh"; read es; call xerr $es "ins_addr $xh 1-5"
3171 call read_mline_res
3172
3173 if [ "$t_remove" == "" ]
3174 return
3175 end
3176
3177 echo "~^header remove $xh"; read es; call xerr $es "ins_addr $xh 2-1"
3178 echo "~^header remove $xh"; read es; vput vexpr es substr $es 0 3
3179 if [ $es != 501 ]
3180 xcall bail "ins_addr $xh 2-2"
3181 end
3182 echo "~^header list $xh"; read es; vput vexpr es substr $es 0 3
3183 if [ $es != 501 ]
3184 xcall bail "ins_addr $xh 2-3"
3185 end
3186 echo "~^header show $xh"; read es; vput vexpr es substr $es 0 3
3187 if [ $es != 501 ]
3188 xcall bail "ins_addr $xh 2-4"
3189 end
3190
3191 #
3192 echo "~^header insert $xh diet <$xh@exam.ple> spliced";\
3193 read es; echo $es; call xerr "$es" "ins_addr $xh 3-1"
3194 echo "~^header insert $xh <${xh}2@exam.ple>";\
3195 read es; echo $es; call xerr "$es" "ins_addr $xh 3-2"
3196 echo "~^header insert $xh ${xh}3@exam.ple";\
3197 read es; echo $es; call xerr "$es" "ins_addr $xh 3-3"
3198 echo "~^header list $xh"; read hl; echo $hl;\
3199 call xerr "$hl" "ins_addr $xh 3-4"
3200 echo "~^header show $xh"; read es; call xerr $es "ins_addr $xh 3-5"
3201 call read_mline_res
3202
3203 echo "~^header remove-at $xh 1"; read es;\
3204 call xerr $es "ins_addr $xh 3-6"
3205 echo "~^header remove-at $xh 1"; read es;\
3206 call xerr $es "ins_addr $xh 3-7"
3207 echo "~^header remove-at $xh 1"; read es;\
3208 call xerr $es "ins_addr $xh 3-8"
3209 echo "~^header remove-at $xh 1"; read es;\
3210 vput vexpr es substr $es 0 3
3211 if [ $es != 501 ]
3212 xcall bail "ins_addr $xh 3-9"
3213 end
3214 echo "~^header remove-at $xh T"; read es;\
3215 vput vexpr es substr $es 0 3
3216 if [ $es != 505 ]
3217 xcall bail "ins_addr $xh 3-10"
3218 end
3219 echo "~^header list $xh"; read es;\
3220 vput vexpr es substr $es 0 3
3221 if [ $es != 501 ]
3222 xcall bail "ins_addr $xh 3-11"
3223 end
3224 echo "~^header show $xh"; read es;\
3225 vput vexpr es substr $es 0 3
3226 if [ $es != 501 ]
3227 xcall bail "ins_addr $xh 3-12"
3228 end
3229
3230 #
3231 echo "~^header insert $xh diet <$xh@exam.ple> spliced";\
3232 read es; echo $es; call xerr "$es" "ins_addr $xh 4-1"
3233 echo "~^header insert $xh <${xh}2@exam.ple> (comment) \"Quot(e)d\"";\
3234 read es; echo $es; call xerr "$es" "ins_addr $xh 4-2"
3235 echo "~^header insert $xh ${xh}3@exam.ple";\
3236 read es; echo $es; call xerr "$es" "ins_addr $xh 4-3"
3237 echo "~^header list $xh"; read hl; echo $hl;\
3238 call xerr "$hl" "header list $xh 3-4"
3239 echo "~^header show $xh"; read es; call xerr $es "ins_addr $xh 4-5"
3240 call read_mline_res
3241
3242 echo "~^header remove-at $xh 3"; read es;\
3243 call xerr $es "ins_addr $xh 4-6"
3244 echo "~^header remove-at $xh 2"; read es;\
3245 call xerr $es "ins_addr $xh 4-7"
3246 echo "~^header remove-at $xh 1"; read es;\
3247 call xerr $es "ins_addr $xh 4-8"
3248 echo "~^header remove-at $xh 1"; read es;\
3249 vput vexpr es substr $es 0 3
3250 if [ $es != 501 ]
3251 xcall bail "ins_addr $xh 4-9"
3252 end
3253 echo "~^header remove-at $xh T"; read es;\
3254 vput vexpr es substr $es 0 3
3255 if [ $es != 505 ]
3256 xcall bail "ins_addr $xh 4-10"
3257 end
3258 echo "~^header list $xh"; read es;\
3259 vput vexpr es substr $es 0 3
3260 if [ $es != 501 ]
3261 xcall bail "ins_addr $xh 4-11"
3262 end
3263 echo "~^header show $xh"; read es;\
3264 vput vexpr es substr $es 0 3
3265 if [ $es != 501 ]
3266 xcall bail "ins_addr $xh 4-12"
3267 end
3268 }
3269 define ins_ref {
3270 wysh set xh=$1 mult=$2
3271 echo "~^header list"; read hl; echo $hl;\
3272 call xerr "$hl" "ins_ref ($xh) 0-1"
3273
3274 echo "~^header insert $xh <$xh@exam.ple>";\
3275 read es; echo $es; call xerr "$es" "ins_ref $xh 1-1"
3276 if [ $mult -ne 0 ]
3277 echo "~^header insert $xh <${xh}2@exam.ple>";\
3278 read es; echo $es; call xerr "$es" "ins_ref $xh 1-2"
3279 echo "~^header insert $xh ${xh}3@exam.ple";\
3280 read es; echo $es; call xerr "$es" "ins_ref $xh 1-3"
3281 else
3282 echo "~^header insert $xh <${xh}2@exam.ple>"; read es;\
3283 vput vexpr es substr $es 0 3
3284 if [ $es != 506 ]
3285 xcall bail "ins_ref $xh 1-4"
3286 end
3287 end
3288
3289 echo "~^header list $xh"; read hl; echo $hl;\
3290 call xerr "$hl" "ins_ref $xh 1-5"
3291 echo "~^header show $xh"; read es; call xerr $es "ins_ref $xh 1-6"
3292 call read_mline_res
3293
3294 if [ "$t_remove" == "" ]
3295 return
3296 end
3297
3298 echo "~^header remove $xh"; read es;\
3299 call xerr $es "ins_ref $xh 2-1"
3300 echo "~^header remove $xh"; read es;\
3301 vput vexpr es substr $es 0 3
3302 if [ $es != 501 ]
3303 xcall bail "ins_ref $xh 2-2"
3304 end
3305 echo "~^header list $xh"; read es;\
3306 vput vexpr es substr $es 0 3
3307 if [ $es != 501 ]
3308 xcall bail "$es ins_ref $xh 2-3"
3309 end
3310 echo "~^header show $xh"; read es;\
3311 vput vexpr es substr $es 0 3
3312 if [ $es != 501 ]
3313 xcall bail "ins_ref $xh 2-4"
3314 end
3315
3316 #
3317 echo "~^header insert $xh <$xh@exam.ple>";\
3318 read es; echo $es; call xerr "$es" "ins_ref $xh 3-1"
3319 if [ $mult -ne 0 ]
3320 echo "~^header insert $xh <${xh}2@exam.ple>";\
3321 read es; echo $es; call xerr "$es" "ins_ref $xh 3-2"
3322 echo "~^header insert $xh ${xh}3@exam.ple";\
3323 read es; echo $es; call xerr "$es" "ins_ref $xh 3-3"
3324 end
3325 echo "~^header list $xh";\
3326 read hl; echo $hl; call xerr "$hl" "ins_ref $xh 3-4"
3327 echo "~^header show $xh";\
3328 read es; call xerr $es "ins_ref $xh 3-5"
3329 call read_mline_res
3330
3331 echo "~^header remove-at $xh 1"; read es;\
3332 call xerr $es "ins_ref $xh 3-6"
3333 if [ $mult -ne 0 ] && [ $xh != subject ]
3334 echo "~^header remove-at $xh 1"; read es;\
3335 call xerr $es "ins_ref $xh 3-7"
3336 echo "~^header remove-at $xh 1"; read es;\
3337 call xerr $es "ins_ref $xh 3-8"
3338 end
3339 echo "~^header remove-at $xh 1"; read es;\
3340 vput vexpr es substr $es 0 3
3341 if [ $es != 501 ]
3342 xcall bail "ins_ref $xh 3-9"
3343 end
3344 echo "~^header remove-at $xh T"; read es;\
3345 vput vexpr es substr $es 0 3
3346 if [ $es != 505 ]
3347 xcall bail "ins_ref $xh 3-10"
3348 end
3349 echo "~^header show $xh"; read es;\
3350 vput vexpr es substr $es 0 3
3351 if [ $es != 501 ]
3352 xcall bail "ins_ref $xh 3-11"
3353 end
3354
3355 #
3356 echo "~^header insert $xh <$xh@exam.ple> ";\
3357 read es; echo $es; call xerr "$es" "ins_ref $xh 4-1"
3358 if [ $mult -ne 0 ]
3359 echo "~^header insert $xh <${xh}2@exam.ple> ";\
3360 read es; echo $es; call xerr "$es" "ins_ref $xh 4-2"
3361 echo "~^header insert $xh ${xh}3@exam.ple";\
3362 read es; echo $es; call xerr "$es" "ins_ref $xh 4-3"
3363 end
3364 echo "~^header list $xh"; read hl; echo $hl;\
3365 call xerr "$hl" "ins_ref $xh 4-4"
3366 echo "~^header show $xh"; read es; call xerr $es "ins_ref $xh 4-5"
3367 call read_mline_res
3368
3369 if [ $mult -ne 0 ] && [ $xh != subject ]
3370 echo "~^header remove-at $xh 3"; read es;\
3371 call xerr $es "ins_ref $xh 4-6"
3372 echo "~^header remove-at $xh 2"; read es;\
3373 call xerr $es "ins_ref $xh 4-7"
3374 end
3375 echo "~^header remove-at $xh 1"; read es;\
3376 call xerr $es "ins_ref $xh 4-8"
3377 echo "~^header remove-at $xh 1"; read es;\
3378 vput vexpr es substr $es 0 3
3379 if [ $es != 501 ]
3380 xcall bail "ins_ref $xh 4-9"
3381 end
3382 echo "~^header remove-at $xh T"; read es;\
3383 vput vexpr es substr $es 0 3
3384 if [ $es != 505 ]
3385 xcall bail "ins_ref $xh 4-10"
3386 end
3387 echo "~^header show $xh"; read es;\
3388 vput vexpr es substr $es 0 3
3389 if [ $es != 501 ]
3390 xcall bail "ins_ref $xh 4-11"
3391 end
3392 }
3393 define t_header {
3394 echo t_header ENTER
3395 # In collect.c order
3396 call ins_addr from
3397 call ins_ref sender 0 # Not a "ref", but works
3398 call ins_addr To
3399 call ins_addr cC
3400 call ins_addr bCc
3401 call ins_addr reply-To
3402 call ins_addr mail-Followup-to
3403 call ins_ref messAge-id 0
3404 call ins_ref rEfErEncEs 1
3405 call ins_ref in-Reply-to 1
3406 call ins_ref subject 1 # Not a "ref", but works (with tweaks)
3407 call ins_addr freeForm1
3408 call ins_addr freeform2
3409
3410 echo "~^header show MAILX-Command"; read es; call xerr $es "t_header 1000"
3411 call read_mline_res
3412 echo "~^header show MAILX-raw-TO"; read es; call xerr $es "t_header 1001"
3413 call read_mline_res
3414
3415 echo t_header LEAVE
3416 }
3417 define t_attach {
3418 echo t_attach ENTER
3419
3420 echo "~^attachment";\
3421 read hl; echo $hl; vput vexpr es substr "$hl" 0 3
3422 if [ "$es" != 501 ]
3423 xcall bail "attach 0-1"
3424 end
3425
3426 echo "~^attach attribute ./.treadctl";\
3427 read hl; echo $hl; vput vexpr es substr "$hl" 0 3
3428 if [ "$es" != 501 ]
3429 xcall bail "attach 0-2"
3430 end
3431 echo "~^attachment attribute-at 1";\
3432 read hl; echo $hl; vput vexpr es substr "$hl" 0 3
3433 if [ "$es" != 501 ]
3434 xcall bail "attach 0-3"
3435 end
3436
3437 echo "~^attachment insert ./.treadctl=ascii";\
3438 read hl; echo $hl; call xerr "$hl" "attach 1-1"
3439 echo "~^attachment list";\
3440 read es; echo $es;call xerr "$es" "attach 1-2"
3441 call read_mline_res
3442 echo "~^attachment attribute ./.treadctl";\
3443 read es; echo $es;call xerr "$es" "attach 1-3"
3444 call read_mline_res
3445 echo "~^attachment attribute .treadctl";\
3446 read es; echo $es;call xerr "$es" "attach 1-4"
3447 call read_mline_res
3448 echo "~^attachment attribute-at 1";\
3449 read es; echo $es;call xerr "$es" "attach 1-5"
3450 call read_mline_res
3451
3452 echo "~^attachment attribute-set ./.treadctl filename rctl";\
3453 read es; echo $es;call xerr "$es" "attach 1-6"
3454 echo "~^attachment attribute-set .treadctl content-description Au";\
3455 read es; echo $es;call xerr "$es" "attach 1-7"
3456 echo "~^attachment attribute-set-at 1 content-id <10.du@ich>";\
3457 read es; echo $es;call xerr "$es" "attach 1-8"
3458
3459 echo "~^attachment attribute ./.treadctl";\
3460 read es; echo $es;call xerr "$es" "attach 1-9"
3461 call read_mline_res
3462 echo "~^attachment attribute .treadctl";\
3463 read es; echo $es;call xerr "$es" "attach 1-10"
3464 call read_mline_res
3465 echo "~^attachment attribute rctl";\
3466 read es; echo $es;call xerr "$es" "attach 1-11"
3467 call read_mline_res
3468 echo "~^attachment attribute-at 1";\
3469 read es; echo $es;call xerr "$es" "attach 1-12"
3470 call read_mline_res
3471
3472 #
3473 echo "~^attachment insert ./.tattach=latin1";\
3474 read hl; echo $hl; call xerr "$hl" "attach 2-1"
3475 echo "~^attachment list";\
3476 read es; echo $es;call xerr "$es" "attach 2-2"
3477 call read_mline_res
3478 echo "~^attachment attribute ./.tattach";\
3479 read es; echo $es;call xerr "$es" "attach 2-3"
3480 call read_mline_res
3481 echo "~^attachment attribute .tattach";\
3482 read es; echo $es;call xerr "$es" "attach 2-4"
3483 call read_mline_res
3484 echo "~^attachment attribute-at 2";\
3485 read es; echo $es;call xerr "$es" "attach 2-5"
3486 call read_mline_res
3487
3488 echo "~^attachment attribute-set ./.tattach filename tat";\
3489 read es; echo $es;call xerr "$es" "attach 2-6"
3490 echo \
3491 "~^attachment attribute-set .tattach content-description Au2";\
3492 read es; echo $es;call xerr "$es" "attach 2-7"
3493 echo "~^attachment attribute-set-at 2 content-id <20.du@wir>";\
3494 read es; echo $es;call xerr "$es" "attach 2-8"
3495 echo \
3496 "~^attachment attribute-set-at 2 content-type application/x-sh";\
3497 read es; echo $es;call xerr "$es" "attach 2-9"
3498
3499 echo "~^attachment attribute ./.tattach";\
3500 read es; echo $es;call xerr "$es" "attach 2-10"
3501 call read_mline_res
3502 echo "~^attachment attribute .tattach";\
3503 read es; echo $es;call xerr "$es" "attach 2-11"
3504 call read_mline_res
3505 echo "~^attachment attribute tat";\
3506 read es; echo $es;call xerr "$es" "attach 2-12"
3507 call read_mline_res
3508 echo "~^attachment attribute-at 2";\
3509 read es; echo $es;call xerr "$es" "attach 2-13"
3510 call read_mline_res
3511
3512 #
3513 if [ "$t_remove" == "" ]
3514 return
3515 end
3516
3517 echo "~^attachment remove ./.treadctl"; read es;\
3518 call xerr $es "attach 3-1"
3519 echo "~^attachment remove ./.tattach"; read es;\
3520 call xerr $es "attach 3-2"
3521 echo "~^ attachment remove ./.treadctl"; read es;\
3522 vput vexpr es substr $es 0 3
3523 if [ $es != 501 ]
3524 xcall bail "attach 3-3"
3525 end
3526 echo "~^ attachment remove ./.tattach"; read es;\
3527 vput vexpr es substr $es 0 3
3528 if [ $es != 501 ]
3529 xcall bail "attach 3-4"
3530 end
3531 echo "~^attachment list"; read es;\
3532 vput vexpr es substr $es 0 3
3533 if [ $es != 501 ]
3534 xcall bail "attach 3-5"
3535 end
3536
3537 #
3538 echo "~^attachment insert ./.tattach=latin1";\
3539 read hl; echo $hl; call xerr "$hl" "attach 4-1"
3540 echo "~^attachment insert ./.tattach=latin1";\
3541 read hl; echo $hl; call xerr "$hl" "attach 4-2"
3542 echo "~^attachment list";\
3543 read es; echo $es;call xerr "$es" "attach 4-3"
3544 call read_mline_res
3545 echo "~^ attachment remove .tattach"; read es;\
3546 vput vexpr es substr $es 0 3
3547 if [ $es != 506 ]
3548 xcall bail "attach 4-4 $es"
3549 end
3550 echo "~^attachment remove-at T"; read es;\
3551 vput vexpr es substr $es 0 3
3552 if [ $es != 505 ]
3553 xcall bail "attach 4-5"
3554 end
3555 echo "~^attachment remove ./.tattach"; read es;\
3556 call xerr $es "attach 4-6"
3557 echo "~^attachment remove ./.tattach"; read es;\
3558 call xerr $es "attach 4-7"
3559 echo "~^ attachment remove ./.tattach"; read es;\
3560 vput vexpr es substr $es 0 3
3561 if [ $es != 501 ]
3562 xcall bail "attach 4-8 $es"
3563 end
3564 echo "~^attachment list"; read es;\
3565 vput vexpr es substr $es 0 3
3566 if [ $es != 501 ]
3567 xcall bail "attach 4-9"
3568 end
3569
3570 #
3571 echo "~^attachment insert ./.tattach=latin1";\
3572 read hl; echo $hl; call xerr "$hl" "attach 5-1"
3573 echo "~^attachment insert ./.tattach=latin1";\
3574 read hl; echo $hl; call xerr "$hl" "attach 5-2"
3575 echo "~^attachment insert ./.tattach=latin1";\
3576 read hl; echo $hl; call xerr "$hl" "attach 5-3"
3577 echo "~^attachment list";\
3578 read es; echo $es;call xerr "$es" "attach 5-4"
3579 call read_mline_res
3580
3581 echo "~^attachment remove-at 3"; read es;\
3582 call xerr $es "attach 5-5"
3583 echo "~^attachment remove-at 3"; read es;\
3584 vput vexpr es substr $es 0 3
3585 if [ $es != 501 ]
3586 xcall bail "attach 5-6"
3587 end
3588 echo "~^attachment remove-at 2"; read es;\
3589 call xerr $es "attach 5-7"
3590 echo "~^attachment remove-at 2"; read es;\
3591 vput vexpr es substr $es 0 3
3592 if [ $es != 501 ]
3593 xcall bail "attach 5-8"
3594 end
3595 echo "~^attachment remove-at 1"; read es;\
3596 call xerr $es "attach 5-9"
3597 echo "~^attachment remove-at 1"; read es;\
3598 vput vexpr es substr $es 0 3
3599 if [ $es != 501 ]
3600 xcall bail "attach 5-10"
3601 end
3602
3603 echo "~^attachment list"; read es;\
3604 vput vexpr es substr $es 0 3
3605 if [ $es != 501 ]
3606 xcall bail "attach 5-11"
3607 end
3608
3609 #
3610 echo "~^attachment insert ./.tattach=latin1";\
3611 read hl; echo $hl; call xerr "$hl" "attach 6-1"
3612 echo "~^attachment insert ./.tattach=latin1";\
3613 read hl; echo $hl; call xerr "$hl" "attach 6-2"
3614 echo "~^attachment insert ./.tattach=latin1";\
3615 read hl; echo $hl; call xerr "$hl" "attach 6-3"
3616 echo "~^attachment list";\
3617 read es; echo $es;call xerr "$es" "attach 6-4"
3618 call read_mline_res
3619
3620 echo "~^attachment remove-at 1"; read es;\
3621 call xerr $es "attach 6-5"
3622 echo "~^attachment remove-at 1"; read es;\
3623 call xerr $es "attach 6-6"
3624 echo "~^attachment remove-at 1"; read es;\
3625 call xerr $es "attach 6-7"
3626 echo "~^attachment remove-at 1"; read es;\
3627 vput vexpr es substr $es 0 3
3628 if [ $es != 501 ]
3629 xcall bail "attach 6-8"
3630 end
3631
3632 echo "~^attachment list"; read es;\
3633 vput vexpr es substr $es 0 3
3634 if [ $es != 501 ]
3635 xcall bail "attach 6-9"
3636 end
3637
3638 echo t_attach LEAVE
3639 }
3640 define t_ocs {
3641 read ver
3642 echo t_ocs
3643 call t_header
3644 call t_attach
3645 }
3646 define t_oce {
3647 echo on-compose-enter, mailx-command<$mailx-command>
3648 alternates alter1@exam.ple alter2@exam.ple
3649 alternates
3650 set autocc='alter1@exam.ple alter2@exam.ple'
3651 echo mailx-from<$mailx-from> mailx-sender<$mailx-sender>
3652 echo mailx-subject<$mailx-subject>
3653 echo mailx-to<$mailx-to> mailx-cc<$mailx-cc> mailx-bcc<$mailx-bcc>
3654 echo mailx-raw-to<$mailx-raw-to> mailx-raw-cc<$mailx-raw-cc> \
3655 mailx-raw-bcc<$mailx-raw-bcc>
3656 echo mailx-orig-from<$mailx-orig-from> mailx-orig-to<$mailx-orig-to> \
3657 mailx-orig-cc<$mailx-orig-cc> mailx-orig-bcc<$mailx-orig-bcc>
3658 }
3659 define t_ocl {
3660 echo on-compose-leave, mailx-command<$mailx-command>
3661 vput alternates al
3662 eval alternates $al alter3@exam.ple alter4@exam.ple
3663 alternates
3664 set autobcc='alter3@exam.ple alter4@exam.ple'
3665 echo mailx-from<$mailx-from> mailx-sender<$mailx-sender>
3666 echo mailx-subject<$mailx-subject>
3667 echo mailx-to<$mailx-to> mailx-cc<$mailx-cc> mailx-bcc<$mailx-bcc>
3668 echo mailx-raw-to<$mailx-raw-to> mailx-raw-cc<$mailx-raw-cc> \
3669 mailx-raw-bcc<$mailx-raw-bcc>
3670 echo mailx-orig-from<$mailx-orig-from> mailx-orig-to<$mailx-orig-to> \
3671 mailx-orig-cc<$mailx-orig-cc> mailx-orig-bcc<$mailx-orig-bcc>
3672 }
3673 define t_occ {
3674 echo on-compose-cleanup, mailx-command<$mailx-command>
3675 unalternates *
3676 alternates
3677 echo mailx-from<$mailx-from> mailx-sender<$mailx-sender>
3678 echo mailx-subject<$mailx-subject>
3679 echo mailx-to<$mailx-to> mailx-cc<$mailx-cc> mailx-bcc<$mailx-bcc>
3680 echo mailx-raw-to<$mailx-raw-to> mailx-raw-cc<$mailx-raw-cc> \
3681 mailx-raw-bcc<$mailx-raw-bcc>
3682 echo mailx-orig-from<$mailx-orig-from> mailx-orig-to<$mailx-orig-to> \
3683 mailx-orig-cc<$mailx-orig-cc> mailx-orig-bcc<$mailx-orig-bcc>
3684 }
3685 wysh set on-compose-splice=t_ocs \
3686 on-compose-enter=t_oce on-compose-leave=t_ocl \
3687 on-compose-cleanup=t_occ
3688 __EOT__
3689
3690 ${rm} -f "${MBOX}"
3691 printf 'm this-goes@nowhere\nbody\n!.\n' |
3692 ${MAILX} ${ARGS} -Snomemdebug -Sescape=! -Sstealthmua=noagent \
3693 -X'source ./.trc' -Smta=./.tsendmail.sh \
3694 >./.tall 2>&1
3695 ${cat} ./.tall >> "${MBOX}"
3696 check behave:compose_hooks-1 0 "${MBOX}" '522535560 10101'
3697
3698 ${rm} -f "${MBOX}"
3699 printf 'm this-goes@nowhere\nbody\n!.\n' |
3700 ${MAILX} ${ARGS} -Snomemdebug -Sescape=! -Sstealthmua=noagent \
3701 -St_remove=1 -X'source ./.trc' -Smta=./.tsendmail.sh \
3702 >./.tall 2>&1
3703 ${cat} ./.tall >> "${MBOX}"
3704 check behave:compose_hooks-2 0 "${MBOX}" '3654000499 12535'
3705
3706 ##
3707
3708 # Some state machine stress, shell compose hook, localopts for hook, etc.
3709 # readctl in child. ~r as HERE document
3710 ${rm} -f "${MBOX}"
3711 printf 'm ex@am.ple\nbody\n!.
3712 echon ${mailx-command}${mailx-subject}
3713 echon ${mailx-from}${mailx-sender}
3714 echon ${mailx-to}${mailx-cc}${mailx-bcc}
3715 echon ${mailx-raw-to}${mailx-raw-cc}${mailx-raw-bcc}
3716 echon ${mailx-orig-from}${mailx-orig-to}${mailx-orig-gcc}${mailx-orig-bcc}
3717 var t_oce t_ocs t_ocs_sh t_ocl t_occ autocc
3718 ' | ${MAILX} ${ARGS} -Snomemdebug -Sescape=! \
3719 -Smta=./.tsendmail.sh \
3720 -X'
3721 define bail {
3722 echoerr "Failed: $1. Bailing out"; echo "~x"; xit
3723 }
3724 define xerr {
3725 vput vexpr es substr "$1" 0 1
3726 if [ "$es" != 2 ]
3727 xcall bail "$2"
3728 end
3729 }
3730 define read_mline_res {
3731 read hl; wysh set len=$? es=$! en=$^ERRNAME;\
3732 echo $len/$es/$^ERRNAME: $hl
3733 if [ $es -ne $^ERR-NONE ]
3734 xcall bail read_mline_res
3735 elif [ $len -ne 0 ]
3736 \xcall read_mline_res
3737 end
3738 }
3739 define _work {
3740 vput vexpr i + 1 "$2"
3741 if [ $i -lt 111 ]
3742 vput vexpr j % $i 10
3743 if [ $j -ne 0 ]
3744 set j=xcall
3745 else
3746 echon "$i.. "
3747 set j=call
3748 end
3749 eval \\$j _work $1 $i
3750 return $?
3751 end
3752 vput vexpr i + $i "$1"
3753 return $i
3754 }
3755 define _read {
3756 wysh set line; read line;wysh set es=$? en=$^ERRNAME ;\
3757 echo read:$es/$en: $line
3758 if [ "${es}" -ne -1 ]
3759 xcall _read
3760 end
3761 readctl remove $cwd/.treadctl; echo readctl remove:$?/$^ERRNAME
3762 }
3763 define t_ocs {
3764 read ver
3765 echo t_ocs
3766 echo "~^header list"; read hl; echo $hl;\
3767 vput vexpr es substr "$hl" 0 1
3768 if [ "$es" != 2 ]
3769 xcall bail "header list"
3770 endif
3771 #
3772 call _work 1; echo $?
3773 echo "~^header insert cc splicy diet <splice@exam.ple> spliced";\
3774 read es; echo $es; vput vexpr es substr "$es" 0 1
3775 if [ "$es" != 2 ]
3776 xcall bail "be diet"
3777 endif
3778 echo "~^header insert cc <splice2@exam.ple>";\
3779 read es; echo $es; vput vexpr es substr "$es" 0 1
3780 if [ "$es" != 2 ]
3781 xcall bail "be diet2"
3782 endif
3783 #
3784 call _work 2; echo $?
3785 echo "~^header insert bcc juicy juice <juice@exam.ple> spliced";\
3786 read es; echo $es;vput vexpr es substr "$es" 0 1
3787 if [ "$es" != 2 ]
3788 xcall bail "be juicy"
3789 endif
3790 echo "~^header insert bcc juice2@exam.ple";\
3791 read es; echo $es;vput vexpr es substr "$es" 0 1
3792 if [ "$es" != 2 ]
3793 xcall bail "be juicy2"
3794 endif
3795 echo "~^header insert bcc juice3 <juice3@exam.ple>";\
3796 read es; echo $es;vput vexpr es substr "$es" 0 1
3797 if [ "$es" != 2 ]
3798 xcall bail "be juicy3"
3799 endif
3800 echo "~^header insert bcc juice4@exam.ple";\
3801 read es; echo $es;vput vexpr es substr "$es" 0 1
3802 if [ "$es" != 2 ]
3803 xcall bail "be juicy4"
3804 endif
3805 #
3806 echo "~^header remove-at bcc 3";\
3807 read es; echo $es;vput vexpr es substr "$es" 0 1
3808 if [ "$es" != 2 ]
3809 xcall bail "remove juicy5"
3810 endif
3811 echo "~^header remove-at bcc 2";\
3812 read es; echo $es;vput vexpr es substr "$es" 0 1
3813 if [ "$es" != 2 ]
3814 xcall bail "remove juicy6"
3815 endif
3816 echo "~^header remove-at bcc 3";\
3817 read es; echo $es;vput vexpr es substr "$es" 0 3
3818 if [ "$es" != 501 ]
3819 xcall bail "failed to remove-at"
3820 endif
3821 # Add duplicates which ought to be removed!
3822 echo "~^header insert bcc juice4@exam.ple";\
3823 read es; echo $es;vput vexpr es substr "$es" 0 1
3824 if [ "$es" != 2 ]
3825 xcall bail "be juicy4-1"
3826 endif
3827 echo "~^header insert bcc juice4@exam.ple";\
3828 read es; echo $es;vput vexpr es substr "$es" 0 1
3829 if [ "$es" != 2 ]
3830 xcall bail "be juicy4-2"
3831 endif
3832 echo "~^header insert bcc juice4@exam.ple";\
3833 read es; echo $es;vput vexpr es substr "$es" 0 1
3834 if [ "$es" != 2 ]
3835 xcall bail "be juicy4-3"
3836 endif
3837 echo "~:set t_ocs"
3838
3839 #
3840 call _work 3; echo $?
3841 echo "~r - '__EOT'"
3842 vput ! i echo just knock if you can hear me;\
3843 i=0;\
3844 while [ $i -lt 24 ]; do printf "%s " $i; i=`expr $i + 1`; done;\
3845 echo relax
3846 echon shell-cmd says $?/$^ERRNAME: $i
3847 echo "~x will not become interpreted, we are reading until __EOT"
3848 echo "__EOT"
3849 read r_status; echo "~~r status output: $r_status"
3850 echo "~:echo $? $! $^ERRNAME"
3851 read r_status
3852 echo "~~r status from parent: $r_status"
3853
3854 #
3855 call _work 4; echo $?
3856 vput cwd cwd;echo cwd:$?
3857 readctl create $cwd/.treadctl ;echo readctl:$?/$^ERRNAME;\
3858 call _read
3859
3860 #
3861 call _work 5; echo $?
3862 echo "~^header show MAILX-Command"; read es;\
3863 call xerr $es "t_header 1000"; call read_mline_res
3864 echo "~^header show MAILX-raw-TO"; read es;\
3865 call xerr $es "t_header 1001"; xcall read_mline_res
3866
3867 echoerr IT IS WRONG IF YOU SEE THIS
3868 }
3869 define t_oce {
3870 echo on-compose-enter, mailx-command<$mailx-command>
3871 set t_oce autobcc=oce@exam.ple
3872 alternates alter1@exam.ple alter2@exam.ple
3873 alternates
3874 echo mailx-from<$mailx-from> mailx-sender<$mailx-sender>
3875 echo mailx-subject<$mailx-subject>
3876 echo mailx-to<$mailx-to> mailx-cc<$mailx-cc> mailx-bcc<$mailx-bcc>
3877 echo mailx-raw-to<$mailx-raw-to> mailx-raw-cc<$mailx-raw-cc> \
3878 mailx-raw-bcc<$mailx-raw-bcc>
3879 echo mailx-orig-from<$mailx-orig-from> \
3880 mailx-orig-to<$mailx-orig-to> \
3881 mailx-orig-cc<$mailx-orig-cc> mailx-orig-bcc<$mailx-orig-bcc>
3882 }
3883 define t_ocl {
3884 echo on-compose-leave, mailx-command<$mailx-command>
3885 set t_ocl autocc=ocl@exam.ple
3886 unalternates *
3887 alternates alter3@exam.ple alter4@exam.ple
3888 alternates
3889 echo mailx-from<$mailx-from> mailx-sender<$mailx-sender>
3890 echo mailx-subject<$mailx-subject>
3891 echo mailx-to<$mailx-to> mailx-cc<$mailx-cc> mailx-bcc<$mailx-bcc>
3892 echo mailx-raw-to<$mailx-raw-to> mailx-raw-cc<$mailx-raw-cc> \
3893 mailx-raw-bcc<$mailx-raw-bcc>
3894 echo mailx-orig-from<$mailx-orig-from> \
3895 mailx-orig-to<$mailx-orig-to> \
3896 mailx-orig-cc<$mailx-orig-cc> mailx-orig-bcc<$mailx-orig-bcc>
3897 }
3898 define t_occ {
3899 echo on-compose-cleanup, mailx-command<$mailx-command>
3900 set t_occ autocc=occ@exam.ple
3901 unalternates *
3902 alternates
3903 echo mailx-from<$mailx-from> mailx-sender<$mailx-sender>
3904 echo mailx-subject<$mailx-subject>
3905 echo mailx-to<$mailx-to> mailx-cc<$mailx-cc> mailx-bcc<$mailx-bcc>
3906 echo mailx-raw-to<$mailx-raw-to> mailx-raw-cc<$mailx-raw-cc> \
3907 mailx-raw-bcc<$mailx-raw-bcc>
3908 echo mailx-orig-from<$mailx-orig-from> \
3909 mailx-orig-to<$mailx-orig-to> \
3910 mailx-orig-cc<$mailx-orig-cc> mailx-orig-bcc<$mailx-orig-bcc>
3911 }
3912 wysh set on-compose-splice=t_ocs \
3913 on-compose-splice-shell="read ver;printf \"t_ocs-shell\\n\
3914 ~t shell@exam.ple\\n~:set t_ocs_sh\\n\"" \
3915 on-compose-enter=t_oce on-compose-leave=t_ocl \
3916 on-compose-cleanup=t_occ
3917 ' > ./.tnotes 2>&1
3918 ex0_test behave:compose_hooks-3-estat
3919 ${cat} ./.tnotes >> "${MBOX}"
3920
3921 check behave:compose_hooks-3 - "${MBOX}" '679526364 2431'
3922
3923 # Reply, forward, resend, Resend
3924
3925 ${rm} -f "${MBOX}"
3926 printf 'set from=f1@z\nm t1@z\nb1\n!.\nset from=f2@z\nm t2@z\nb2\n!.\n' |
3927 ${MAILX} ${ARGS} -Snomemdebug -Sescape=! \
3928 -Smta=./.tsendmail.sh
3929
3930 printf '
3931 echo start: $? $! $^ERRNAME
3932 File %s
3933 echo File: $? $! $^ERRNAME;echo;echo
3934 reply 1
3935 this is content of reply 1
3936 !.
3937 echo reply 1: $? $! $^ERRNAME;echo;echo
3938 Reply 1 2
3939 this is content of Reply 1 2
3940 !.
3941 echo Reply 1 2: $? $! $^ERRNAME;echo;echo
3942 forward 1 fwdex@am.ple
3943 this is content of forward 1
3944 !.
3945 echo forward 1: $? $! $^ERRNAME;echo;echo
3946 resend 1 2 resendex@am.ple
3947 echo resend 1 2: $? $! $^ERRNAME;echo;echo
3948 Resend 1 2 Resendex@am.ple
3949 echo Resend 1 2: $? $! $^ERRNAME;echo;echo
3950 ' "${MBOX}" |
3951 ${MAILX} ${ARGS} -Snomemdebug -Sescape=! \
3952 -Smta=./.tsendmail.sh \
3953 -X'
3954 define bail {
3955 echoerr "Failed: $1. Bailing out"; echo "~x"; xit
3956 }
3957 define xerr {
3958 vput vexpr es substr "$1" 0 1
3959 if [ "$es" != 2 ]
3960 xcall bail "$2"
3961 end
3962 }
3963 define read_mline_res {
3964 read hl; wysh set len=$? es=$! en=$^ERRNAME;\
3965 echo mline_res:$len/$es/$^ERRNAME: $hl
3966 if [ $es -ne $^ERR-NONE ]
3967 xcall bail read_mline_res
3968 elif [ $len -ne 0 ]
3969 \xcall read_mline_res
3970 end
3971 }
3972 define work_hl {
3973 echo "~^header show $1"; read es;\
3974 call xerr $es "work_hl $1"; echo $1; call read_mline_res
3975 if [ $# -gt 1 ]
3976 shift
3977 xcall work_hl "$@"
3978 end
3979 }
3980 define t_ocs {
3981 read ver
3982 echo t_ocs version $ver
3983 echo "~^header list"; read hl; echo $hl;\
3984 echoerr the header list is $hl;\
3985 call xerr "$hl" "header list"
3986 eval vpospar set $hl
3987 shift
3988 xcall work_hl "$@"
3989 echoerr IT IS WRONG IF YOU SEE THIS
3990 }
3991 define t_oce {
3992 echo on-XY-enter, mailx-command<$mailx-command>
3993 set t_oce autobcc=oce@exam.ple
3994 echo mailx-from<$mailx-from> mailx-sender<$mailx-sender>
3995 echo mailx-subject<$mailx-subject>
3996 echo mailx-to<$mailx-to> mailx-cc<$mailx-cc> mailx-bcc<$mailx-bcc>
3997 echo mailx-raw-to<$mailx-raw-to> mailx-raw-cc<$mailx-raw-cc> \
3998 mailx-raw-bcc<$mailx-raw-bcc>
3999 echo mailx-orig-from<$mailx-orig-from> \
4000 mailx-orig-to<$mailx-orig-to> \
4001 mailx-orig-cc<$mailx-orig-cc> mailx-orig-bcc<$mailx-orig-bcc>
4002 }
4003 define t_ocl {
4004 echo on-XY-leave, mailx-command<$mailx-command>
4005 set t_ocl autocc=ocl@exam.ple
4006 echo mailx-from<$mailx-from> mailx-sender<$mailx-sender>
4007 echo mailx-subject<$mailx-subject>
4008 echo mailx-to<$mailx-to> mailx-cc<$mailx-cc> mailx-bcc<$mailx-bcc>
4009 echo mailx-raw-to<$mailx-raw-to> mailx-raw-cc<$mailx-raw-cc> \
4010 mailx-raw-bcc<$mailx-raw-bcc>
4011 echo mailx-orig-from<$mailx-orig-from> \
4012 mailx-orig-to<$mailx-orig-to> \
4013 mailx-orig-cc<$mailx-orig-cc> mailx-orig-bcc<$mailx-orig-bcc>
4014 }
4015 define t_occ {
4016 echo on-XY-cleanup, mailx-command<$mailx-command>
4017 set t_occ autocc=occ@exam.ple
4018 echo mailx-from<$mailx-from> mailx-sender<$mailx-sender>
4019 echo mailx-subject<$mailx-subject>
4020 echo mailx-to<$mailx-to> mailx-cc<$mailx-cc> mailx-bcc<$mailx-bcc>
4021 echo mailx-raw-to<$mailx-raw-to> mailx-raw-cc<$mailx-raw-cc> \
4022 mailx-raw-bcc<$mailx-raw-bcc>
4023 echo mailx-orig-from<$mailx-orig-from> \
4024 mailx-orig-to<$mailx-orig-to> \
4025 mailx-orig-cc<$mailx-orig-cc> mailx-orig-bcc<$mailx-orig-bcc>
4026 }
4027 wysh set on-compose-splice=t_ocs \
4028 on-compose-enter=t_oce on-compose-leave=t_ocl \
4029 on-compose-cleanup=t_occ \
4030 on-resend-enter=t_oce on-resend-cleanup=t_occ
4031 ' > ./.tnotes 2>&1
4032 ex0_test behave:compose_hooks-4-estat
4033 ${cat} ./.tnotes >> "${MBOX}"
4034
4035 check behave:compose_hooks-4 - "${MBOX}" '3038884027 7516'
4036
4037 t_epilog
4038 }
4039
4040 t_behave_C_opt_customhdr() {
4041 t_prolog t_behave_C_opt_customhdr
4042 TRAP_EXIT_ADDONS="./.t*"
4043
4044 ${cat} <<-_EOT > ./.tsendmail.sh
4045 #!${SHELL} -
4046 (echo 'From CimicifugaRacemosa Mon Dec 25 21:33:40 2017' &&
4047 ${cat} && echo
4048 ) >> "${MBOX}"
4049 _EOT
4050 chmod 0755 ./.tsendmail.sh
4051
4052 echo bla |
4053 ${MAILX} ${ARGS} -Smta=./.tsendmail.sh \
4054 -C 'C-One : Custom One Body' \
4055 -C 'C-Two:CustomTwoBody' \
4056 -S customhdr='chdr1: chdr1 body, chdr2:chdr2 body' \
4057 this-goes@nowhere >./.tall 2>&1
4058 ex0_test behave:C_opt_customhdr-1-estat
4059 ${cat} ./.tall >> "${MBOX}"
4060 check behave:C_opt_customhdr-1 0 "${MBOX}" '2400078426 195'
4061
4062 ${rm} -f "${MBOX}"
4063 printf 'm this-goes@nowhere\nbody\n!.
4064 unset customhdr
4065 m this-goes2@nowhere\nbody2\n!.
4066 set customhdr=%ccustom1 : custom1 body%c
4067 m this-goes2@nowhere\nbody2\n!.
4068 set customhdr=%ccustom1 : custom1\\, body , custom2: custom2 body%c
4069 m this-goes3@nowhere\nbody3\n!.
4070 ' "'" "'" "'" "'" |
4071 ${MAILX} ${ARGS} -Smta=./.tsendmail.sh -Sescape=! \
4072 -C 'C-One : Custom One Body' \
4073 -C 'C-Two:CustomTwoBody' \
4074 -S customhdr='chdr1: chdr1 body, chdr2:chdr2 body' \
4075 >./.tall 2>&1
4076 ex0_test behave:C_opt_customhdr-2-estat
4077 ${cat} ./.tall >> "${MBOX}"
4078 check behave:C_opt_customhdr-2 0 "${MBOX}" '3546878678 752'
4079
4080 t_epilog
4081 }
4082
4083 t_behave_mass_recipients() {
4084 t_prolog t_behave_mass_recipients
4085 TRAP_EXIT_ADDONS="./.t*"
4086
4087 ${cat} <<-_EOT > ./.tsendmail.sh
4088 #!${SHELL} -
4089 (echo 'From Eucalyptus Sat Jul 08 21:14:57 2017' && ${cat} && echo
4090 ) >> "${MBOX}"
4091 _EOT
4092 chmod 0755 ./.tsendmail.sh
4093
4094 ${cat} <<'__EOT__' > ./.trc
4095 define bail {
4096 echoerr "Failed: $1. Bailing out"; echo "~x"; xit
4097 }
4098 define ins_addr {
4099 wysh set nr=$1 hn=$2
4100 echo "~$hn $hn$nr@$hn"; echo '~:echo $?'; read es
4101 if [ "$es" -ne 0 ]
4102 xcall bail "ins_addr $hn 1-$nr"
4103 end
4104 vput vexpr nr + $nr 1
4105 if [ "$nr" -le "$maximum" ]
4106 xcall ins_addr $nr $hn
4107 end
4108 }
4109 define bld_alter {
4110 wysh set nr=$1 hn=$2
4111 alternates $hn$nr@$hn
4112 vput vexpr nr + $nr 2
4113 if [ "$nr" -le "$maximum" ]
4114 xcall bld_alter $nr $hn
4115 end
4116 }
4117 define t_ocs {
4118 read ver
4119 call ins_addr 1 t
4120 call ins_addr 1 c
4121 call ins_addr 1 b
4122 }
4123 define t_ocl {
4124 if [ "$t_remove" != '' ]
4125 call bld_alter 1 t
4126 call bld_alter 2 c
4127 end
4128 }
4129 set on-compose-splice=t_ocs on-compose-leave=t_ocl
4130 __EOT__
4131
4132 printf 'm this-goes@nowhere\nbody\n!.\n' |
4133 ${MAILX} ${ARGS} -Snomemdebug -Sescape=! -Sstealthmua=noagent \
4134 -X'source ./.trc' -Smta=./.tsendmail.sh -Smaximum=2001 \
4135 >./.tall 2>&1
4136 ex0_test behave:mass_recipients-1-estat
4137 ${cat} ./.tall >> "${MBOX}"
4138 check behave:mass_recipients-1 - "${MBOX}" '2912243346 51526'
4139
4140 ${rm} -f "${MBOX}"
4141 printf 'm this-goes@nowhere\nbody\n!.\n' |
4142 ${MAILX} ${ARGS} -Snomemdebug -Sescape=! -Sstealthmua=noagent \
4143 -St_remove=1 -X'source ./.trc' -Smta=./.tsendmail.sh -Smaximum=2001 \
4144 >./.tall 2>&1
4145 ex0_test behave:mass_recipients-2-estat
4146 ${cat} ./.tall >> "${MBOX}"
4147 check behave:mass_recipients-2 - "${MBOX}" '4097804632 34394'
4148
4149 t_epilog
4150 }
4151
4152 t_behave_mime_types_load_control() {
4153 t_prolog t_behave_mime_types_load_control
4154 TRAP_EXIT_ADDONS="./.t*"
4155
4156 ${cat} <<-_EOT > ./.tmts1
4157 @ application/mathml+xml mathml
4158 _EOT
4159 ${cat} <<-_EOT > ./.tmts2
4160 @ x-conference/x-cooltalk ice
4161 @ aga-aga aga
4162 @ application/aga-aga aga
4163 _EOT
4164
4165 ${cat} <<-_EOT > ./.tmts1.mathml
4166 <head>nonsense ML</head>
4167 _EOT
4168 ${cat} <<-_EOT > ./.tmts2.ice
4169 Icy, icy road.
4170 _EOT
4171 printf 'of which the c\x01rack is coming soon' > ./.tmtsx.doom
4172 printf 'of which the c\x01rack is coming soon' > ./.tmtsx.aga
4173
4174 printf '
4175 m %s
4176 Schub-di-du
4177 ~@ ./.tmts1.mathml
4178 ~@ ./.tmts2.ice
4179 ~@ ./.tmtsx.doom
4180 ~@ ./.tmtsx.aga
4181 ~.
4182 File %s
4183 from*
4184 type
4185 xit
4186 ' "${MBOX}" "${MBOX}" |
4187 ${MAILX} ${ARGS} \
4188 -Smimetypes-load-control=f=./.tmts1,f=./.tmts2 \
4189 > ./.tout 2>&1
4190 ex0_test behave:mime_types_load_control-1-estat
4191 ${cat} "${MBOX}" >> ./.tout
4192 check behave:mime_types_load_control-1 - ./.tout '1441260727 2449'
4193
4194 echo type | ${MAILX} ${ARGS} -R \
4195 -Smimetypes-load-control=f=./.tmts1,f=./.tmts3 \
4196 -f "${MBOX}" >> ./.tout 2>&1
4197 check behave:mime_types_load_control-2 0 ./.tout '1441391438 3646'
4198
4199 t_epilog
4200 }
4201
4202 t_behave_lreply_futh_rth_etc() {
4203 t_prolog t_behave_lreply_futh_rth_etc
4204 TRAP_EXIT_ADDONS="./.t*"
4205
4206 ${cat} <<-_EOT > ./.tsendmail.sh
4207 #!${SHELL} -
4208 (echo 'From HumulusLupulus Thu Jul 27 14:41:20 2017' && ${cat} && echo
4209 ) >> "${MBOX}"
4210 _EOT
4211 chmod 0755 ./.tsendmail.sh
4212
4213 ${cat} <<-_EOT > ./.tmbox
4214 From neverneverland Sun Jul 23 13:46:25 2017
4215 Subject: Bugstop: five miles out 1
4216 Reply-To: mister originator2 <mr2@originator>, bugstop@five.miles.out
4217 From: mister originator <mr@originator>
4218 To: bugstop-commit@five.miles.out, laber@backe.eu
4219 Cc: is@a.list
4220 Mail-Followup-To: bugstop@five.miles.out, laber@backe.eu, is@a.list
4221 In-reply-to: <20170719111113.bkcMz%laber@backe.eu>
4222 Date: Wed, 19 Jul 2017 09:22:57 -0400
4223 Message-Id: <20170719132257.766AF781267@originator>
4224 Status: RO
4225
4226 > |Sorry, I think I misunderstand something. I would think that
4227
4228 That's appalling.
4229
4230 From neverneverland Fri Jul 7 22:39:11 2017
4231 Subject: Bugstop: five miles out 2
4232 Reply-To: mister originator2<mr2@originator>,bugstop@five.miles.out,is@a.list
4233 Content-Transfer-Encoding: 7bit
4234 From: mister originator <mr@originator>
4235 To: bugstop-commit@five.miles.out
4236 Cc: is@a.list
4237 Message-ID: <149945963975.28888.6950788126957753723.reportbug@five.miles.out>
4238 Date: Fri, 07 Jul 2017 16:33:59 -0400
4239 Status: R
4240
4241 capable of changing back.
4242
4243 From neverneverland Fri Jul 7 22:42:00 2017
4244 Subject: Bugstop: five miles out 3
4245 Reply-To: mister originator2 <mr2@originator>, bugstop@five.miles.out
4246 Content-Transfer-Encoding: 7bit
4247 From: mister originator <mr@originator>
4248 To: bugstop-commit@five.miles.out
4249 Cc: is@a.list
4250 Message-ID: <149945963975.28888.6950788126957753746.reportbug@five.miles.out>
4251 Date: Fri, 07 Jul 2017 16:33:59 -0400
4252 List-Post: <mailto:bugstop@five.miles.out>
4253 Status: R
4254
4255 are you ready, boots?
4256
4257 From neverneverland Sat Aug 19 23:15:00 2017
4258 Subject: Bugstop: five miles out 4
4259 Reply-To: mister originator2 <mr2@originator>, bugstop@five.miles.out
4260 Content-Transfer-Encoding: 7bit
4261 From: mister originator <mr@originator>
4262 To: bugstop@five.miles.out
4263 Cc: is@a.list
4264 Message-ID: <149945963975.28888.6950788126qtewrqwer.reportbug@five.miles.out>
4265 Date: Fri, 07 Jul 2017 16:33:59 -0400
4266 List-Post: <mailto:bugstop@five.miles.out>
4267 Status: R
4268
4269 are you ready, boots?
4270 _EOT
4271
4272 #
4273
4274 ${cat} <<-'_EOT' | ${MAILX} ${ARGS} -Sescape=! -Smta=./.tsendmail.sh \
4275 -Rf ./.tmbox >> "${MBOX}" 2>&1
4276 define r {
4277 wysh set m="This is text of \"reply ${1}."
4278 reply 1 2 3
4279 !I m
4280 1".
4281 !.
4282 !I m
4283 2".
4284 !.
4285 !I m
4286 3".
4287 !.
4288 echo -----After reply $1.1 - $1.3: $?/$^ERRNAME
4289 }
4290 define R {
4291 wysh set m="This is text of \"Reply ${1}."
4292 eval Reply $2
4293 !I m
4294 !I 2
4295 ".
4296 !.
4297 echo -----After Reply $1.$2: $?/$^ERRNAME
4298 }
4299 define _Lh {
4300 read protover
4301 echo '~I m'
4302 echo '~I n'
4303 echo '".'
4304 }
4305 define _Ls {
4306 wysh set m="This is text of \"Lreply ${1}." on-compose-splice=_Lh n=$2
4307 eval Lreply $2
4308 }
4309 define L {
4310 # We need two indirections for this test: one for the case that Lreply
4311 # fails because of missing recipients: we need to read EOF next, thus
4312 # place this in _Ls last; and second for the succeeding cases EOF is
4313 # not what these should read, so go over the backside and splice it in!
4314 call _Ls "$@"
4315 echo -----After Lreply $1.$2: $?/$^ERRNAME
4316 }
4317 define x {
4318 localopts call-fixate yes
4319 call r $1
4320 call R $1 1; call R $1 2; call R $1 3; call R $1 4
4321 call L $1 1; call L $1 2; call L $1 3
4322 }
4323 define tweak {
4324 echo;echo '===== CHANGING === '"$*"' =====';echo
4325 eval "$@"
4326 }
4327 #
4328 set from=laber@backe.eu
4329 mlist is@a.list
4330 call x 1
4331 call tweak set reply-to-honour
4332 call x 2
4333 call tweak set followup-to
4334 call x 3
4335 call tweak set followup-to-honour
4336 call x 4
4337 call tweak mlist bugstop@five.miles.out
4338 call x 5
4339 call tweak mlsubscribe bugstop@five.miles.out
4340 call x 6
4341 call tweak set recipients-in-cc
4342 call x 7
4343 _EOT
4344
4345 check behave:lreply_futh_rth_etc-1 0 "${MBOX}" '940818845 29373'
4346
4347 ##
4348
4349 ${cat} <<-_EOT > ./.tmbox
4350 From tom@i-i.example Thu Oct 26 03:15:55 2017
4351 Date: Wed, 25 Oct 2017 21:15:46 -0400
4352 From: tom <tom@i-i.example>
4353 To: Steffen Nurpmeso <steffen@sdaoden.eu>
4354 Cc: tom <tom@i-i.example>
4355 Subject: Re: xxxx yyyyyyyy configure does not really like a missing zzzzz
4356 Message-ID: <20171026011546.GA11643@i-i.example>
4357 Reply-To: tom@i-i.example
4358 References: <20171025214601.T2pNd%steffen@sdaoden.eu>
4359 In-Reply-To: <20171025214601.T2pNd%steffen@sdaoden.eu>
4360 Status: R
4361
4362 The report's useful :-)
4363 _EOT
4364
4365 printf 'reply 1\nthank you\n!.\n' |
4366 ${MAILX} ${ARGS} -Sescape=! -Smta=./.tsendmail.sh -Sreply-to-honour \
4367 -Rf ./.tmbox > "${MBOX}" 2>&1
4368 check behave:lreply_futh_rth_etc-2 0 "${MBOX}" '1045866991 331'
4369
4370 t_epilog
4371 }
4372
4373 t_behave_xxxheads_rfc2047() {
4374 t_prolog t_behave_xxxheads_rfc2047
4375 TRAP_EXIT_ADDONS="./.t*"
4376
4377 ${cat} <<-_EOT > ./.tsendmail.sh
4378 #!${SHELL} -
4379 (echo 'From GentianaLutea Mon Dec 04 17:15:29 2017' && ${cat} &&
4380 echo) >> "${MBOX}"
4381 _EOT
4382 chmod 0755 ./.tsendmail.sh
4383
4384 #
4385 ${rm} -f "${MBOX}"
4386 echo | ${MAILX} ${ARGS} ${ADDARG_UNI} \
4387 -s 'a̲b̲c̲d̲e̲f̲h̲i̲k̲l̲m̲n̲o̲r̲s̲t̲u̲v̲w̲x̲z̲a̲b̲c̲d̲e̲f̲h̲i̲k̲l̲m̲n̲o̲r̲s̲t̲u̲v̲w̲x̲z̲' \
4388 "${MBOX}"
4389 check behave:xxxheads_rfc2047-1 0 "${MBOX}" '3370931614 375'
4390
4391 # Single word (overlong line split -- bad standard! Requires injection of
4392 # artificial data!! But can be prevented by using RFC 2047 encoding)
4393 ${rm} -f "${MBOX}"
4394 i=`${awk} 'BEGIN{for(i=0; i<92; ++i) printf "0123456789_"}'`
4395 echo | ${MAILX} ${ARGS} -s "${i}" "${MBOX}"
4396 check behave:xxxheads_rfc2047-2 0 "${MBOX}" '489922370 1718'
4397
4398 # Combination of encoded words, space and tabs of varying sort
4399 ${rm} -f "${MBOX}"
4400 echo | ${MAILX} ${ARGS} ${ADDARG_UNI} \
4401 -s "1Abrä Kaspas1 2Abra Katä b_kaspas2 \
4402 3Abrä Kaspas3 4Abrä Kaspas4 5Abrä Kaspas5 \
4403 6Abra Kaspas6 7Abrä Kaspas7 8Abra Kaspas8 \
4404 9Abra Kaspastäb4-3 10Abra Kaspas1 _ 11Abra Katäb1 \
4405 12Abra Kadabrä1 After Tab after Täb this is NUTS" \
4406 "${MBOX}"
4407 check behave:xxxheads_rfc2047-3 0 "${MBOX}" '1676887734 591'
4408
4409 # Overlong multibyte sequence that must be forcefully split
4410 # todo This works even before v15.0, but only by accident
4411 ${rm} -f "${MBOX}"
4412 echo | ${MAILX} ${ARGS} ${ADDARG_UNI} \
4413 -s "✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄\
4414 ✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄\
4415 ✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄✄" \
4416 "${MBOX}"
4417 check behave:xxxheads_rfc2047-4 0 "${MBOX}" '3029301775 659'
4418
4419 # Trailing WS
4420 ${rm} -f "${MBOX}"
4421 echo | ${MAILX} ${ARGS} \
4422 -s "1-1 B2 B3 B4 B5 B6 B\
4423 1-2 B2 B3 B4 B5 B6 B\
4424 1-3 B2 B3 B4 B5 B6 B\
4425 1-4 B2 B3 B4 B5 B6 B\
4426 1-5 B2 B3 B4 B5 B6 B\
4427 1-6 B2 B3 B4 B5 B6 " \
4428 "${MBOX}"
4429 check behave:xxxheads_rfc2047-5 0 "${MBOX}" '4126167195 297'
4430
4431 # Leading and trailing WS
4432 ${rm} -f "${MBOX}"
4433 echo | ${MAILX} ${ARGS} \
4434 -s " 2-1 B2 B3 B4 B5 B6 B\
4435 1-2 B2 B3 B4 B5 B6 B\
4436 1-3 B2 B3 B4 B5 B6 B\
4437 1-4 B2 B3 B4 B5 B6 " \
4438 "${MBOX}"
4439 check behave:xxxheads_rfc2047-6 0 "${MBOX}" '3600624479 236'
4440
4441 # RFC 2047 in an address field! (Missing test caused v14.9.6!)
4442 ${rm} -f "${MBOX}"
4443 echo "Dat Früchtchen riecht häußlich" |
4444 ${MAILX} ${ARGS} ${ADDARG_UNI} -Sfullnames -Smta=./.tsendmail.sh \
4445 -s Hühöttchen \
4446 'Schnödes "Früchtchen" <do@du> (Hä!)'
4447 check behave:xxxheads_rfc2047-7 0 "${MBOX}" '800505986 368'
4448
4449 # RFC 2047 in an address field, and iconv involved
4450 if have_feat iconv; then
4451 ${rm} -f "${MBOX}"
4452 ${cat} > ./.trebox <<_EOT
4453 From zaza@exam.ple Fri Mar 2 21:31:56 2018
4454 Date: Fri, 2 Mar 2018 20:31:45 +0000
4455 From: z=?iso-8859-1?Q?=E1?=za <zaza@exam.ple>
4456 To: dude <dude@exam.ple>
4457 Subject: houston(...)
4458 Message-ID: <abra@1>
4459 MIME-Version: 1.0
4460 Content-Type: text/plain; charset=iso-8859-1
4461 Content-Disposition: inline
4462 Content-Transfer-Encoding: 8bit
4463
4464 _EOT
4465 echo reply | ${MAILX} ${ARGS} ${ADDARG_UNI} \
4466 -Sfullnames -Sreply-in-same-charset \
4467 -Smta=./.tsendmail.sh -Rf ./.trebox
4468 check behave:xxxheads_rfc2047-8 0 "${MBOX}" '2821484185 280'
4469 else
4470 echo 'behave:xxxheads_rfc2047-8: iconv unsupported, skipped'
4471 fi
4472
4473 t_epilog
4474 }
4475
4476 t_behave_rfc2231() {
4477 t_prolog t_behave_rfc2231
4478 TRAP_EXIT_ADDONS="./.t*"
4479
4480 (
4481 mkdir ./.ttt || exit 1
4482 cd ./.ttt || exit 2
4483 : > "ma'ger.txt"
4484 : > "mä'ger.txt"
4485 : > 'diet\ is \curd.txt'
4486 : > 'diet "is" curd.txt'
4487 : > höde-tröge.txt
4488 : > höde__tröge__müde__dätte__hätte__vülle__gülle__äse__äße__säuerliche__kräuter__österliche__grüße__mäh.txt
4489 : > höde__tröge__müde__dätte__hätte__vuelle__guelle__aese__aesse__sauerliche__kräuter__österliche__grüße__mäh.txt
4490 : > hööööööööööööööööö_nöööööööööööööööööööööö_düüüüüüüüüüüüüüüüüüü_bäääääääääääääääääääääääh.txt
4491 : > ✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆.txt
4492 )
4493 echo bla | ${MAILX} ${ARGS} ${ADDARG_UNI} \
4494 -a "./.ttt/ma'ger.txt" -a "./.ttt/mä'ger.txt" \
4495 -a './.ttt/diet\ is \curd.txt' -a './.ttt/diet "is" curd.txt' \
4496 -a ./.ttt/höde-tröge.txt \
4497 -a ./.ttt/höde__tröge__müde__dätte__hätte__vülle__gülle__äse__äße__säuerliche__kräuter__österliche__grüße__mäh.txt \
4498 -a ./.ttt/höde__tröge__müde__dätte__hätte__vuelle__guelle__aese__aesse__sauerliche__kräuter__österliche__grüße__mäh.txt \
4499 -a ./.ttt/hööööööööööööööööö_nöööööööööööööööööööööö_düüüüüüüüüüüüüüüüüüü_bäääääääääääääääääääääääh.txt \
4500 -a ./.ttt/✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆✆.txt \
4501 "${MBOX}"
4502 check behave:rfc2231-1 0 "${MBOX}" '684985954 3092'
4503
4504 # `resend' test, reusing $MBOX
4505 printf "Resend ./.t2\nx\n" | ${MAILX} ${ARGS} -Rf "${MBOX}"
4506 check behave:rfc2231-2 0 ./.t2 '684985954 3092'
4507
4508 printf "resend ./.t3\nx\n" | ${MAILX} ${ARGS} -Rf "${MBOX}"
4509 check behave:rfc2231-3 0 ./.t3 '3130352658 3148'
4510
4511 t_epilog
4512 }
4513
4514 t_behave_iconv_mbyte_base64() { # TODO uses sed(1) and special *headline*!!
4515 t_prolog t_behave_iconv_mbyte_base64
4516 TRAP_EXIT_ADDONS="./.t*"
4517
4518 if [ -n "${UTF8_LOCALE}" ] && have_feat iconv &&
4519 (</dev/null iconv -f ascii -t iso-2022-jp) >/dev/null 2>&1 ||
4520 (</dev/null iconv -f ascii -t euc-jp) >/dev/null 2>&1; then
4521 :
4522 else
4523 echo 'behave:iconv_mbyte_base64: unsupported, skipped'
4524 return
4525 fi
4526
4527 ${cat} <<-_EOT > ./.tsendmail.sh
4528 #!${SHELL} -
4529 (echo 'From DroseriaRotundifolia Thu Aug 03 17:26:25 2017' && ${cat} &&
4530 echo) >> "${MBOX}"
4531 _EOT
4532 chmod 0755 ./.tsendmail.sh
4533
4534 if (</dev/null iconv -f ascii -t iso-2022-jp) >/dev/null 2>&1; then
4535 ${cat} <<-'_EOT' | LC_ALL=${UTF8_LOCALE} ${MAILX} ${ARGS} \
4536 -Smta=./.tsendmail.sh \
4537 -Sescape=! -Smime-encoding=base64 2>./.terr
4538 set ttycharset=utf-8 sendcharsets=iso-2022-jp
4539 m t1@exam.ple
4540 !s Japanese from UTF-8 to ISO-2022-JP
4541 シジュウカラ科（シジュウカラか、学名 Paridae）は、鳥類スズメ目の科である。シジュウカラ（四十雀）と総称されるが、狭義にはこの1種をシジュウカラと呼ぶ。
4542
4543 カンムリガラ（学名Parus cristatus）は、スズメ目シジュウカラ科に分類される鳥類の一種。
4544
4545
4546 カンムリガラ（学名Parus cristatus）は、スズメ目シジュウカラ科に分類される鳥類の一種。
4547
4548 シジュウカラ科（シジュウカラか、学名 Paridae）は、鳥類スズメ目の科である。シジュウカラ（四十雀）と総称されるが、狭義にはこの1種をシジュウカラと呼ぶ。
4549 !.
4550
4551 set ttycharset=iso-2022-jp charset-7bit=iso-2022-jp sendcharsets=utf-8
4552 m t2@exam.ple
4553 !s Japanese from ISO-2022-JP to UTF-8, eh, no, also ISO-2022-JP
4554 \e$B%7%8%e%&%+%i2J!J%7%8%e%&%+%i$+!"3XL>\e(B Paridae\e$B!K$O!"D;N`%9%:%aL\$N2J$G$"$k!#%7%8%e%&%+%i!J;M==?}!K$HAm>N$5$l$k$,!"695A$K$O$3$N\e(B1\e$B<o$r%7%8%e%&%+%i$H8F$V!#\e(B
4555
4556 \e$B%+%s%`%j%,%i!J3XL>\e(BParus cristatus\e$B!K$O!"%9%:%aL\%7%8%e%&%+%i2J$KJ,N`$5$l$kD;N`$N0l<o!#\e(B
4557
4558
4559 \e$B%+%s%`%j%,%i!J3XL>\e(BParus cristatus\e$B!K$O!"%9%:%aL\%7%8%e%&%+%i2J$KJ,N`$5$l$kD;N`$N0l<o!#\e(B
4560
4561 \e$B%7%8%e%&%+%i2J!J%7%8%e%&%+%i$+!"3XL>\e(B Paridae\e$B!K$O!"D;N`%9%:%aL\$N2J$G$"$k!#%7%8%e%&%+%i!J;M==?}!K$HAm>N$5$l$k$,!"695A$K$O$3$N\e(B1\e$B<o$r%7%8%e%&%+%i$H8F$V!#\e(B
4562 !.
4563 _EOT
4564 # May not presume iconv output as long as roundtrip possible [489a7122]
4565 ex0_test behave:iconv_mbyte_base64-1-estat
4566 ${awk} 'BEGIN{h=1}/^$/{++h;next}{if(h % 2 == 1)print}' \
4567 < "${MBOX}" > ./.tcksum
4568 check behave:iconv_mbyte_base64-1 - ./.tcksum '2694609714 520'
4569 check behave:iconv_mbyte_base64-2 - ./.terr '4294967295 0'
4570
4571 printf 'eval f 1; eval write ./.twrite; eval type 1; eval type 2\n' |
4572 LC_ALL=${UTF8_LOCALE} ${MAILX} ${ARGS} \
4573 -S headline="%>%a%m %-18f %-16d %i%-s" \
4574 -Rf "${MBOX}" >./.tlog 2>&1
4575 check behave:iconv_mbyte_base64-3 0 ./.twrite '1259742080 686'
4576 #check behave:iconv_mbyte_base64-4 - ./.tlog '3214068822 2123'
4577 ${sed} -e '/^\[-- M/d' < ./.tlog > ./.txlog
4578 check behave:iconv_mbyte_base64-4 - ./.txlog '3659773472 2035'
4579 else
4580 echo 'behave:iconv_mbyte_base64: ISO-2022-JP unsupported, skipping 1-4'
4581 fi
4582
4583 if (</dev/null iconv -f ascii -t euc-jp) >/dev/null 2>&1; then
4584 rm -f "${MBOX}" ./.twrite
4585 ${cat} <<-'_EOT' | LC_ALL=${UTF8_LOCALE} ${MAILX} ${ARGS} \
4586 -Smta=./.tsendmail.sh \
4587 -Sescape=! -Smime-encoding=base64 2>./.terr
4588 set ttycharset=utf-8 sendcharsets=euc-jp
4589 m t1@exam.ple
4590 !s Japanese from UTF-8 to EUC-JP
4591 シジュウカラ科（シジュウカラか、学名 Paridae）は、鳥類スズメ目の科である。シジュウカラ（四十雀）と総称されるが、狭義にはこの1種をシジュウカラと呼ぶ。
4592
4593 カンムリガラ（学名Parus cristatus）は、スズメ目シジュウカラ科に分類される鳥類の一種。
4594
4595
4596 カンムリガラ（学名Parus cristatus）は、スズメ目シジュウカラ科に分類される鳥類の一種。
4597
4598 シジュウカラ科（シジュウカラか、学名 Paridae）は、鳥類スズメ目の科である。シジュウカラ（四十雀）と総称されるが、狭義にはこの1種をシジュウカラと呼ぶ。
4599 !.
4600
4601 set ttycharset=EUC-JP sendcharsets=utf-8
4602 m t2@exam.ple
4603 !s Japanese from EUC-JP to UTF-8
4604 ¥·¥¸¥å¥¦¥«¥é²Ê¡Ê¥·¥¸¥å¥¦¥«¥é¤«¡¢³Ø̾ Paridae¡Ë¤Ï¡¢Ä»Îॹ¥º¥áÌܤβʤǤ¢¤ë¡£¥·¥¸¥å¥¦¥«¥é¡Ê»Í½½¿ý¡Ë¤ÈÁí¾Î¤µ¤ì¤ë¤¬¡¢¶¹µÁ¤Ë¤Ï¤³¤Î1¼ï¤ò¥·¥¸¥å¥¦¥«¥é¤È¸Æ¤Ö¡£
4605
4606 ¥«¥ó¥à¥ê¥¬¥é¡Ê³Ø̾Parus cristatus¡Ë¤Ï¡¢¥¹¥º¥áÌÜ¥·¥¸¥å¥¦¥«¥é²Ê¤ËʬÎव¤ì¤ëÄ»Îà¤Î°ì¼ï¡£
4607
4608
4609 ¥«¥ó¥à¥ê¥¬¥é¡Ê³Ø̾Parus cristatus¡Ë¤Ï¡¢¥¹¥º¥áÌÜ¥·¥¸¥å¥¦¥«¥é²Ê¤ËʬÎव¤ì¤ëÄ»Îà¤Î°ì¼ï¡£
4610
4611 ¥·¥¸¥å¥¦¥«¥é²Ê¡Ê¥·¥¸¥å¥¦¥«¥é¤«¡¢³Ø̾ Paridae¡Ë¤Ï¡¢Ä»Îॹ¥º¥áÌܤβʤǤ¢¤ë¡£¥·¥¸¥å¥¦¥«¥é¡Ê»Í½½¿ý¡Ë¤ÈÁí¾Î¤µ¤ì¤ë¤¬¡¢¶¹µÁ¤Ë¤Ï¤³¤Î1¼ï¤ò¥·¥¸¥å¥¦¥«¥é¤È¸Æ¤Ö¡£
4612 !.
4613 _EOT
4614 ex0_test behave:iconv_mbyte_base64-5-estat
4615 ${awk} 'BEGIN{h=1}/^$/{++h;next}{if(h % 2 == 1)print}' \
4616 < "${MBOX}" > ./.tcksum
4617 check behave:iconv_mbyte_base64-5 - ./.tcksum '2870183985 473'
4618 check behave:iconv_mbyte_base64-6 - ./.terr '4294967295 0'
4619
4620 printf 'eval f 1; eval write ./.twrite; eval type 1; eval type 2\n' |
4621 LC_ALL=${UTF8_LOCALE} ${MAILX} ${ARGS} \
4622 -S headline="%>%a%m %-18f %-16d %i%-s" \
4623 -Rf "${MBOX}" >./.tlog 2>&1
4624 check behave:iconv_mbyte_base64-7 0 ./.twrite '1259742080 686'
4625 #check behave:iconv_mbyte_base64-8 - ./.tlog '2506063395 2075'
4626 ${sed} -e '/^\[-- M/d' < ./.tlog > ./.txlog
4627 check behave:iconv_mbyte_base64-8 - ./.txlog '2528199891 1988'
4628 else
4629 echo 'behave:iconv_mbyte_base64: EUC-JP unsupported, skipping 5-8'
4630 fi
4631
4632 t_epilog
4633 }
4634
4635 t_behave_iconv_mainbody() {
4636 t_prolog t_behave_iconv_mainbody
4637 TRAP_EXIT_ADDONS="./.t*"
4638
4639 if [ -n "${UTF8_LOCALE}" ] && have_feat iconv; then
4640 :
4641 else
4642 echo 'behave:iconv_mainbody: unsupported, skipped'
4643 return
4644 fi
4645
4646 ${cat} <<-_EOT > ./.tsendmail.sh
4647 #!${SHELL} -
4648 (echo 'From HamamelisVirginiana Fri Oct 20 16:23:21 2017' && ${cat} &&
4649 echo) >> "${MBOX}"
4650 _EOT
4651 chmod 0755 ./.tsendmail.sh
4652
4653 printf '–' | ${MAILX} ${ARGS} ${ADDARG_UNI} -Smta=./.tsendmail.sh \
4654 -S charset-7bit=us-ascii -S charset-8bit=utf-8 \
4655 -s '–' over-the@rain.bow 2>./.terr
4656 check behave:iconv_mainbody-1 0 "${MBOX}" '3634015017 251'
4657 check behave:iconv_mainbody-2 - ./.terr '4294967295 0'
4658
4659 printf '–' | ${MAILX} ${ARGS} ${ADDARG_UNI} -Smta=./.tsendmail.sh \
4660 -S charset-7bit=us-ascii -S charset-8bit=us-ascii \
4661 -s '–' over-the@rain.bow 2>./.terr
4662 exn0_test behave:iconv_mainbody-3
4663 check behave:iconv_mainbody-3 - "${MBOX}" '3634015017 251'
4664 check behave:iconv_mainbody-4 - ./.terr '2579894983 148'
4665
4666 # The different iconv(3) implementations use different replacement sequence
4667 # types (character-wise, byte-wise, and the character(s) used differ)
4668 i="${MAILX_ICONV_MODE}"
4669 if [ -n "${i}" ]; then
4670 printf 'p\nx\n' | ${MAILX} ${ARGS} -Rf "${MBOX}" >./.tout 2>./.terr
4671 j=${?}
4672 ex0_test behave:iconv_mainbody-5-0 ${j}
4673 check behave:iconv_mainbody-5-1 - ./.terr '4294967295 0'
4674 if [ ${i} -eq 13 ]; then
4675 check behave:iconv_mainbody-5-2 - ./.tout '189327996 283'
4676 elif [ ${i} -eq 12 ]; then
4677 check behave:iconv_mainbody-5-3 - ./.tout '1959197095 283'
4678 elif [ ${i} -eq 3 ]; then
4679 check behave:iconv_mainbody-5-4 - ./.tout '3196380198 279'
4680 else
4681 check behave:iconv_mainbody-5-5 - ./.tout '3760313827 279'
4682 fi
4683 else
4684 echo 'behave:iconv_mainbody-5: unsupported, skipped'
4685 fi
4686
4687 t_epilog
4688 }
4689
4690 t_behave_binary_mainbody() {
4691 t_prolog t_behave_binary_mainbody
4692 TRAP_EXIT_ADDONS="./.t*"
4693
4694 printf 'abra\0\nka\r\ndabra' |
4695 ${MAILX} ${ARGS} ${ADDARG_UNI} -s 'binary with carriage-return!' \
4696 "${MBOX}" 2>./.terr
4697 check behave:binary_mainbody-1 0 "${MBOX}" '2430168141 243'
4698 check behave:binary_mainbody-2 - ./.terr '4294967295 0'
4699
4700 printf 'p\necho\necho writing now\nwrite ./.twrite\n' |
4701 ${MAILX} ${ARGS} -Rf \
4702 -Spipe-application/octet-stream="@* ${cat} > ./.tcat" \
4703 "${MBOX}" >./.tall 2>&1
4704 check behave:binary_mainbody-3 0 ./.tall '1151843761 324'
4705 check behave:binary_mainbody-4 - ./.tcat '3817108933 15'
4706 check behave:binary_mainbody-5 - ./.twrite '3817108933 15'
4707
4708 t_epilog
4709 }
4710
4711 t_behave_q_t_etc_opts() {
4712 t_prolog t_behave_q_t_etc_opts
4713 TRAP_EXIT_ADDONS="./.t*"
4714
4715 # Three tests for MIME encoding and (a bit) content classification.
4716 # At the same time testing -q FILE, < FILE and -t FILE
4717 t__put_body > ./.tin
4718
4719 ${rm} -f "${MBOX}"
4720 < ./.tin ${MAILX} ${ARGS} ${ADDARG_UNI} \
4721 -a ./.tin -s "`t__put_subject`" "${MBOX}"
4722 check behave:q_t_etc_opts-1 0 "${MBOX}" '3570973309 6646'
4723
4724 ${rm} -f "${MBOX}"
4725 < /dev/null ${MAILX} ${ARGS} ${ADDARG_UNI} \
4726 -a ./.tin -s "`t__put_subject`" -q ./.tin "${MBOX}"
4727 check behave:q_t_etc_opts-2 0 "${MBOX}" '3570973309 6646'
4728
4729 ${rm} -f "${MBOX}"
4730 ( echo "To: ${MBOX}" && echo "Subject: `t__put_subject`" && echo &&
4731 ${cat} ./.tin
4732 ) | ${MAILX} ${ARGS} ${ADDARG_UNI} -Snodot -a ./.tin -t
4733 check behave:q_t_etc_opts-3 0 "${MBOX}" '3570973309 6646'
4734
4735 t_epilog
4736 }
4737
4738 t_behave_s_mime() {
4739 have_feat smime || {
4740 echo 'behave:s/mime: unsupported, skipped'
4741 return
4742 }
4743
4744 t_prolog t_behave_s_mime
4745 TRAP_EXIT_ADDONS="./.t.conf ./.tkey.pem ./.tcert.pem ./.tpair.pem"
4746 TRAP_EXIT_ADDONS="${TRAP_EXIT_ADDONS} ./.VERIFY ./.DECRYPT ./.ENCRYPT"
4747 TRAP_EXIT_ADDONS="${TRAP_EXIT_ADDONS} ./.tsendmail.sh"
4748
4749 printf 'behave:s/mime: .. generating test key and certificate ..\n'
4750 ${cat} <<-_EOT > ./.t.conf
4751 [ req ]
4752 default_bits = 1024
4753 default_keyfile = keyfile.pem
4754 distinguished_name = req_distinguished_name
4755 attributes = req_attributes
4756 prompt = no
4757 output_password =
4758
4759 [ req_distinguished_name ]
4760 C = GB
4761 ST = Over the
4762 L = rainbow
4763 O = S-nail
4764 OU = S-nail.smime
4765 CN = S-nail.test
4766 emailAddress = test@localhost
4767
4768 [ req_attributes ]
4769 challengePassword =
4770 _EOT
4771 openssl req -x509 -nodes -days 3650 -config ./.t.conf \
4772 -newkey rsa:1024 -keyout ./.tkey.pem -out ./.tcert.pem >/dev/null 2>&1
4773 ${cat} ./.tkey.pem ./.tcert.pem > ./.tpair.pem
4774
4775 # Sign/verify
4776 printf 'behave:s/mime:sign/verify: '
4777 echo bla | ${MAILX} ${ARGS} \
4778 -Ssmime-ca-file=./.tcert.pem -Ssmime-sign-cert=./.tpair.pem \
4779 -Ssmime-sign -Sfrom=test@localhost \
4780 -s 'S/MIME test' ./.VERIFY
4781 if [ $? -eq 0 ]; then
4782 printf 'ok\n'
4783 else
4784 printf 'failed\n'
4785 ESTAT=1
4786 t_epilog
4787 return
4788 fi
4789
4790 ${awk} '
4791 BEGIN{ skip=0 }
4792 /^Content-Description: /{ skip = 2; print; next }
4793 /^$/{ if(skip) --skip }
4794 { if(!skip) print }
4795 ' \
4796 < ./.VERIFY > "${MBOX}"
4797 check behave:s/mime:sign/verify:checksum - "${MBOX}" '2900817158 648'
4798
4799 printf 'behave:s/mime:sign/verify:verify '
4800 printf 'verify\nx\n' |
4801 ${MAILX} ${ARGS} \
4802 -Ssmime-ca-file=./.tcert.pem -Ssmime-sign-cert=./.tpair.pem \
4803 -Ssmime-sign -Sfrom=test@localhost \
4804 -Serrexit -R \
4805 -f ./.VERIFY >/dev/null 2>&1
4806 if [ $? -eq 0 ]; then
4807 printf 'ok\n'
4808 else
4809 printf 'failed\n'
4810 ESTAT=1
4811 t_epilog
4812 return
4813 fi
4814
4815 printf 'behave:s/mime:sign/verify:disproof-1 '
4816 if openssl smime -verify -CAfile ./.tcert.pem \
4817 -in ./.VERIFY >/dev/null 2>&1; then
4818 printf 'ok\n'
4819 else
4820 printf 'failed\n'
4821 ESTAT=1
4822 t_epilog
4823 return
4824 fi
4825
4826 # (signing +) encryption / decryption
4827 ${cat} <<-_EOT > ./.tsendmail.sh
4828 #!${SHELL} -
4829 (echo 'From Euphrasia Thu Apr 27 17:56:23 2017' && ${cat}) > ./.ENCRYPT
4830 _EOT
4831 chmod 0755 ./.tsendmail.sh
4832
4833 printf 'behave:s/mime:encrypt+sign: '
4834 echo bla |
4835 ${MAILX} ${ARGS} \
4836 -Ssmime-force-encryption \
4837 -Ssmime-encrypt-recei@ver.com=./.tpair.pem \
4838 -Smta=./.tsendmail.sh \
4839 -Ssmime-ca-file=./.tcert.pem -Ssmime-sign-cert=./.tpair.pem \
4840 -Ssmime-sign -Sfrom=test@localhost \
4841 -s 'S/MIME test' recei@ver.com
4842 if [ $? -eq 0 ]; then
4843 printf 'ok\n'
4844 else
4845 ESTAT=1
4846 printf 'error: encrypt+sign failed\n'
4847 fi
4848
4849 ${sed} -e '/^$/,$d' < ./.ENCRYPT > "${MBOX}"
4850 check behave:s/mime:encrypt+sign:checksum - "${MBOX}" '1937410597 327'
4851
4852 printf 'behave:s/mime:decrypt+verify: '
4853 printf 'decrypt ./.DECRYPT\nfi ./.DECRYPT\nverify\nx\n' |
4854 ${MAILX} ${ARGS} \
4855 -Ssmime-force-encryption \
4856 -Ssmime-encrypt-recei@ver.com=./.tpair.pem \
4857 -Smta=./.tsendmail.sh \
4858 -Ssmime-ca-file=./.tcert.pem -Ssmime-sign-cert=./.tpair.pem \
4859 -Ssmime-sign -Sfrom=test@localhost \
4860 -Serrexit -R \
4861 -f ./.ENCRYPT >/dev/null 2>&1
4862 if [ $? -eq 0 ]; then
4863 printf 'ok\n'
4864 else
4865 ESTAT=1
4866 printf 'failed\n'
4867 fi
4868
4869 ${awk} '
4870 BEGIN{ skip=0 }
4871 /^Content-Description: /{ skip = 2; print; next }
4872 /^$/{ if(skip) --skip }
4873 { if(!skip) print }
4874 ' \
4875 < ./.DECRYPT > "${MBOX}"
4876 check behave:s/mime:decrypt+verify:checksum - "${MBOX}" '1720739247 931'
4877
4878 printf 'behave:s/mime:decrypt+verify:disproof-1: '
4879 if (openssl smime -decrypt -inkey ./.tkey.pem -in ./.ENCRYPT |
4880 openssl smime -verify -CAfile ./.tcert.pem) >/dev/null 2>&1; then
4881 printf 'ok\n'
4882 else
4883 printf 'failed\n'
4884 ESTAT=1
4885 fi
4886
4887 printf "behave:s/mime:encrypt: "
4888 echo bla | ${MAILX} ${ARGS} \
4889 -Ssmime-force-encryption \
4890 -Ssmime-encrypt-recei@ver.com=./.tpair.pem \
4891 -Smta=./.tsendmail.sh \
4892 -Ssmime-ca-file=./.tcert.pem -Ssmime-sign-cert=./.tpair.pem \
4893 -Sfrom=test@localhost \
4894 -s 'S/MIME test' recei@ver.com
4895 if [ $? -eq 0 ]; then
4896 printf 'ok\n'
4897 else
4898 ESTAT=1
4899 printf 'failed\n'
4900 fi
4901
4902 # Same as behave:s/mime:encrypt+sign:checksum above
4903 ${sed} -e '/^$/,$d' < ./.ENCRYPT > "${MBOX}"
4904 check behave:s/mime:encrypt:checksum - "${MBOX}" '1937410597 327'
4905
4906 ${rm} -f ./.DECRYPT
4907 printf 'decrypt ./.DECRYPT\nx\n' | ${MAILX} ${ARGS} \
4908 -Ssmime-force-encryption \
4909 -Ssmime-encrypt-recei@ver.com=./.tpair.pem \
4910 -Smta=./.tsendmail.sh \
4911 -Ssmime-ca-file=./.tcert.pem -Ssmime-sign-cert=./.tpair.pem \
4912 -Sfrom=test@localhost \
4913 -Serrexit -R \
4914 -f ./.ENCRYPT >/dev/null 2>&1
4915 check behave:s/mime:decrypt 0 "./.DECRYPT" '2624716890 422'
4916
4917 printf 'behave:s/mime:decrypt:disproof-1: '
4918 if openssl smime -decrypt -inkey ./.tkey.pem \
4919 -in ./.ENCRYPT >/dev/null 2>&1; then
4920 printf 'ok\n'
4921 else
4922 printf 'failed\n'
4923 ESTAT=1
4924 fi
4925
4926 t_epilog
4927 }
4928
4929 # t_content()
4930 # Some basic tests regarding correct sending of mails, via STDIN / -t / -q,
4931 # including basic MIME Content-Transfer-Encoding correctness (quoted-printable)
4932 # Note we unfortunately need to place some statements without proper
4933 # indentation because of continuation problems
4934 # xxx Note: t_content() was the first test (series) written. Today many
4935 # xxx aspects are (better) covered by other tests above, some are not.
4936 # xxx At some future date and time, convert the last remains not covered
4937 # xxx elsewhere to a real t_behave_* test and drop t_content()
4938 t_content() {
4939 t_prolog t_content
4940
4941 # Test for [260e19d] (Juergen Daubert)
4942 ${rm} -f "${MBOX}"
4943 echo body | ${MAILX} ${ARGS} "${MBOX}"
4944 check content:004 0 "${MBOX}" '2917662811 98'
4945
4946 # "Test for" [d6f316a] (Gavin Troy)
4947 ${rm} -f "${MBOX}"
4948 printf "m ${MBOX}\n~s subject1\nEmail body\n~.\nfi ${MBOX}\np\nx\n" |
4949 ${MAILX} ${ARGS} ${ADDARG_UNI} -Spipe-text/plain="@* ${cat}" > "${BODY}"
4950 check content:006 0 "${MBOX}" '2099098650 122'
4951 check content:006-1 - "${BODY}" '794542938 174'
4952
4953 # "Test for" [c299c45] (Peter Hofmann) TODO shouldn't end up QP-encoded?
4954 ${rm} -f "${MBOX}"
4955 ${awk} 'BEGIN{
4956 for(i = 0; i < 10000; ++i)
4957 printf "\xC3\xBC"
4958 #printf "\xF0\x90\x87\x90"
4959 }' | ${MAILX} ${ARGS} ${ADDARG_UNI} -s TestSubject "${MBOX}"
4960 check content:007 0 "${MBOX}" '534262374 61816'
4961
4962 t_epilog
4963 }
4964
4965 t__put_subject() {
4966 # MIME encoding (QP) stress message subject
4967 printf 'Äbrä Kä?dä=brö Fü?di=bus? '\
4968 'adadaddsssssssddddddddddddddddddddd'\
4969 'ddddddddddddddddddddddddddddddddddd'\
4970 'ddddddddddddddddddddddddddddddddddd'\
4971 'dddddddddddddddddddd Hallelulja? Od'\
4972 'er?? eeeeeeeeeeeeeeeeeeeeeeeeeeeeee'\
4973 'eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee'\
4974 'eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee f'\
4975 'fffffffffffffffffffffffffffffffffff'\
4976 'fffffffffffffffffffff ggggggggggggg'\
4977 'ggggggggggggggggggggggggggggggggggg'\
4978 'ggggggggggggggggggggggggggggggggggg'\
4979 'ggggggggggggggggggggggggggggggggggg'\
4980 'gggggggggggggggg'
4981 }
4982
4983 t__put_body() {
4984 # MIME encoding (QP) stress message body
4985 printf \
4986 'Ich bin eine DÖS-Datäi mit sehr langen Zeilen und auch '\
4987 'sonst bin ich ganz schön am Schleudern, da kannste denke '\
4988 "wasde willst, gelle, gelle, gelle, gelle, gelle.\r\n"\
4989 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst \r\n"\
4990 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 1\r\n"\
4991 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 12\r\n"\
4992 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 123\r\n"\
4993 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 1234\r\n"\
4994 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 12345\r\n"\
4995 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 123456\r\n"\
4996 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 1234567\r\n"\
4997 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 12345678\r\n"\
4998 "Ich bin eine DÖS-Datäi mit langen Zeilen und auch sonst 123456789\r\n"\
4999 "Unn ausserdem habe ich trailing SP/HT/SP/HT whitespace \r\n"\
5000 "Unn ausserdem habe ich trailing HT/SP/HT/SP whitespace \r\n"\
5001 "auf den zeilen vorher.\r\n"\
5002 "From am Zeilenbeginn und From der Mitte gibt es auch.\r\n"\
5003 ".\r\n"\
5004 "Die letzte Zeile war nur ein Punkt.\r\n"\
5005 "..\r\n"\
5006 "Das waren deren zwei.\r\n"\
5007 " \r\n"\
5008 "Die letzte Zeile war ein Leerschritt.\n"\
5009 "=VIER = EQUAL SIGNS=ON A LINE=\r\n"\
5010 "Prösterchen.\r\n"\
5011 ".\n"\
5012 "Die letzte Zeile war nur ein Punkt, mit Unix Zeilenende.\n"\
5013 "..\n"\
5014 "Das waren deren zwei. ditto.\n"\
5015 "Prösterchen.\n"\
5016 "Unn ausseerdem habe ich trailing SP/HT/SP/HT whitespace \n"\
5017 "Unn ausseerdem habe ich trailing HT/SP/HT/SP whitespace \n"\
5018 "auf den zeilen vorher.\n"\
5019 "ditto.\n"\
5020 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.\n"\
5021 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.1"\
5022 "\n"\
5023 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
5024 "\n"\
5025 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
5026 "3\n"\
5027 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
5028 "34\n"\
5029 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
5030 "345\n"\
5031 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende.12"\
5032 "3456\n"\
5033 "QP am Zeilenende über soft-nl hinweg\n"\
5034 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende."\
5035 "ö123\n"\
5036 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende."\
5037 "1ö23\n"\
5038 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende."\
5039 "12ö3\n"\
5040 "Ich bin eine ziemlich lange, steile, scharfe Zeile mit Unix Zeilenende."\
5041 "123ö\n"\
5042 "=VIER = EQUAL SIGNS=ON A LINE=\n"\
5043 " \n"\
5044 "Die letzte Zeile war ein Leerschritt.\n"\
5045 ' '
5046 }
5047
5048 t_all() {
5049 # if have_feat devel; then
5050 # ARGS="${ARGS} -Smemdebug"
5051 # export ARGS
5052 # fi
5053
5054 if [ -n "${UTF8_LOCALE}" ]; then
5055 printf 'Using Unicode locale %s\n' "${UTF8_LOCALE}"
5056 else
5057 printf 'No Unicode locale found, disabling Unicode tests\n'
5058 fi
5059
5060 t_behave
5061 t_content
5062 }
5063
5064 if [ -z "${CHECK_ONLY}${MAE_TEST}" ]; then
5065 cc_all_configs
5066 elif [ -z "${MAE_TEST}" ] || [ ${#} -eq 0 ]; then
5067 t_all
5068 else
5069 while [ ${#} -gt 0 ]; do
5070 ${1}
5071 shift
5072 done
5073 fi
5074
5075 [ ${ESTAT} -eq 0 ] && echo Ok || echo >&2 'Errors occurred'
5076
5077 exit ${ESTAT}
5078 # s-sh-mode
A mail processing system intended to provide the functionality of the POSIX mailx(1) command