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