X-Git-Url: https://git.draconx.ca/gitweb/cdecl99.git/blobdiff_plain/4dd9ed36e29f68507bd1038752314165587a94dd..032fe50c0297846a8d03eda505c9726f60a46501:/tests/general.at?ds=sidebyside
diff --git a/tests/general.at b/tests/general.at
index b5a623d..498028e 100644
--- a/tests/general.at
+++ b/tests/general.at
@@ -83,3 +83,88 @@ int x()
]])
AT_CLEANUP
+
+AT_SETUP([cdecl99 --file error message])
+
+AT_CHECK([cdecl99 --file nonexistent || exit 42], [42], [], [stderr])
+AT_CHECK([grep -v nonexistent stderr || true])
+
+AT_CLEANUP
+
+AT_SETUP([cdecl99 command error messages])
+
+# Extract progname from --help usage message
+# This will only get the start of progname if it includes spaces;
+# so we won't worry too hard about the exact format later.
+AT_CHECK([LC_ALL=C cdecl99 --help], [0], [stdout])
+progname=`$AWK 'NR == 1 { print $2; }' stdout`dnl'
+
+# every line is erroneous
+AT_DATA([input],
+[[explain int a b c
+simplify int a b c
+declare a as b c
+bad command
+]])
+
+AT_DATA([check.awk],
+[[BEGIN { status=0; }
+$1 == progname || $1 == (progname ":") { next; }
+{ status=1; print "unprefixed message on line", NR ":", $0; }
+END { exit(status); }
+]])
+
+AT_CHECK([LC_ALL=C cdecl99 --file=input || exit 42], [42], [], [stderr])
+AT_CHECK([$AWK -v progname="$progname" -f check.awk stderr])
+
+exec 3test.dat <<'EOF'
+BEGIN {
+ print "explain \1";
+ print "explain \377";
+ print "explain \a";
+ print "explain \b";
+ print "explain ?";
+}
+EOF
+
+AT_CHECK([LC_ALL=C cdecl99 -f test.dat || exit 42], [42], [], [stderr])
+AT_CHECK([$AWK '{ print $NF; }' stderr], [0],
+[['\001'
+'\377'
+'\a'
+'\b'
+'?'
+]])
+
+AT_CLEANUP
+
+AT_SETUP([cdecl99 interactive mode])
+
+AT_DATA([test.dat],
+[[explain int x;
+quit
+]])
+
+AT_CHECK([cdecl99 --quiet --interactive >stdout; sed '/> [[eq]]/d; s/^> //; /^$/d' stdout], [0],
+[declare x as int
+])
+
+AT_CLEANUP