X-Git-Url: http://git.draconx.ca/gitweb/cdecl99.git/blobdiff_plain/9a50128ac12ab834fd97699c7ca543fc040ea8f1..21bc2db0ec83b235caec38d42f4d0812f473d766:/tests/general.at?ds=sidebyside
diff --git a/tests/general.at b/tests/general.at
index 5141902..bc22e44 100644
--- a/tests/general.at
+++ b/tests/general.at
@@ -104,6 +104,7 @@ AT_DATA([input],
[[explain int a b c
simplify int a b c
declare a as b c
+bad command
]])
AT_DATA([check.awk],
@@ -116,11 +117,19 @@ 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 test.dat <<'EOF'
BEGIN {
print "explain \1";
print "explain \377";
@@ -140,3 +149,31 @@ AT_CHECK([$AWK '{ print $NF; }' stderr], [0],
]])
AT_CLEANUP
+
+AT_SETUP([cdecl99 interactive mode])
+
+AT_DATA([test.dat],
+[[explain int () int
+explain int x;
+quit
+]])
+
+AT_CHECK([cdecl99 --quiet --interactive [eq]/d
+:loop
+s/^> //
+t loop
+/^$/d
+]])
+
+AT_CHECK([echo >>stdout; sed -f check.sed stdout], [0],
+[declare x as int
+])
+
+AT_CLEANUP