cc-test.sh

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