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