3 ###--------------------------------------------------------------------------
11 rm -f
test.out
test.err
test.rc
16 echo >&2 "Running $prog $*"
17 $prog "$@" >test.out
2>test.err
19 for i
in out err rc
; do
31 case $
(cat test.
$1) in
33 *) lose
"!!! expected $1 to match \`$2'." ;;
39 insist err
"*$progbase: $1"
47 ###--------------------------------------------------------------------------
50 tree_a
="((a)b((c)d(e)))"
51 tree_b
="((((a)b(c))d)e)"
52 tree_c
="((((a)c(b))d)e)"
54 tree_x
="(((a)b((c)d(e)))f((((g)h(i))j(k))l(m)))"
55 tree_y
="(((a)b((c)d(e(f))))g(((h)i((j)k(l)))m))"
56 tree_z
="(((a)b((c)d(e)))f((((g)h)j(k))l(m)))"
59 insist_fail
"bad args"
62 insist_fail
"bad args"
68 insist_fail
"missing )"
70 run
"((a)b((c)d(e)))z"
71 insist_fail
"trailing junk"
91 ###--------------------------------------------------------------------------
97 ###----- That's all, folks --------------------------------------------------