1 # Copyright © 2012, 2020-2021, 2023 Nick Bowler
3 # This program is free software: you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation, either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <https://www.gnu.org/licenses/>.
16 m4_define([LIBTOOL_VARS],
17 [eval `sed -n[]m4_foreach([var], m4_cdr($@), [ -e '/^var='/p]) <$1`])
19 dnl Verify that all symbols in the static library are properly prefixed.
20 AT_SETUP([libcdecl static symbol prefixes])
22 AT_CHECK([{ $LIBTOOL --config || exit 99; } >libtool.cfg])
23 LIBTOOL_VARS([libtool.cfg], [objdir], [build_old_libs])
24 AT_SKIP_IF([test x"$build_old_libs" = x"no"])
26 LIBTOOL_VARS([$builddir/libcdecl.la], [old_library])
27 archive="$builddir/$objdir/$old_library"
28 AT_CHECK([$SHELL "$builddir/exported.sh" "$archive" || exit 99], [0], [stdout])
29 AT_CHECK([sed '/^cdecl_/d' stdout])
33 dnl Verify that empty commands do nothing.
34 AT_SETUP([cdecl99 empty command])
36 AT_DATA([input], [[explain int x[42];
38 declare x as array 42 of int
44 AT_CHECK([cdecl99 -f input], [0], [[declare x as array 42 of int
51 dnl Verify that commands are not executed after "quit"
52 AT_SETUP([cdecl99 quit command])
54 AT_DATA([input], [[explain int;
56 explain this is a syntax error
59 AT_CHECK([cdecl99 -f input], [0], [type int
64 AT_SETUP([cdecl99 help command])
66 AT_DATA([input], [[help
70 AT_CHECK([cdecl99 -f input], [0], [stdout])
71 AT_CHECK([sed -n '$p' stdout], [0], [type int
76 AT_SETUP([cdecl99 --execute option])
78 AT_CHECK([cdecl99 --execute 'explain int' --execute='declare x as int' \
79 --execute='simplify int (x)()'], [0],
87 AT_SETUP([cdecl99 --file error message])
89 AT_CHECK([cdecl99 --file nonexistent || exit 42], [42], [], [stderr])
90 AT_CHECK([grep -v nonexistent stderr || true])
94 AT_SETUP([cdecl99 command error messages])
96 # Extract progname from --help usage message
97 # This will only get the start of progname if it includes spaces;
98 # so we won't worry too hard about the exact format later.
99 AT_CHECK([LC_ALL=C cdecl99 --help], [0], [stdout])
100 progname=`$AWK 'NR == 1 { print $2; }' stdout`dnl'
102 # every line is erroneous
111 [[BEGIN { status=0; }
112 $1 == progname || $1 == (progname ":") { next; }
113 { status=1; print "unprefixed message on line", NR ":", $0; }
114 END { exit(status); }
117 AT_CHECK([LC_ALL=C cdecl99 --file=input || exit 42], [42], [], [stderr])
118 AT_CHECK([$AWK -v progname="$progname" -f check.awk stderr])
122 while read line <&3; do
123 set x "$@" "--execute=$line"; shift;
125 AT_CHECK([LC_ALL=C cdecl99 "$@" || exit 42], [42], [], [stderr])
126 AT_CHECK([$AWK -v progname="$progname" -f check.awk stderr])
130 AT_SETUP([cdecl99 invalid character error messages])
132 $AWK -f - >test.dat <<'EOF'
135 print "explain \377";
142 AT_CHECK([LC_ALL=C cdecl99 -f test.dat || exit 42], [42], [], [stderr])
143 AT_CHECK([$AWK '{ print $NF; }' stderr], [0],
153 AT_SETUP([cdecl99 interactive mode])
160 AT_CHECK([cdecl99 --quiet --interactive <test.dat], [0], [stdout])
161 AT_CHECK([sed '/^>/d' stdout], [0], [declare x as int