]> git.draconx.ca Git - cdecl99.git/blobdiff - tests/general.at
libcdecl: Fix memory leak when parsing e.g., int () int.
[cdecl99.git] / tests / general.at
index 5141902a0db9a017d939a88416dfd50fe059a5f9..bc22e44e5e00cb6e58f6c77d5b597cc7abaca718 100644 (file)
@@ -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 3<input
+set x; shift
+while read line <&3; do
+  set x "$@" "--execute=$line"; shift;
+done
+AT_CHECK([LC_ALL=C cdecl99 "$@" || exit 42], [42], [], [stderr])
+AT_CHECK([$AWK -v progname="$progname" -f check.awk stderr])
+
 AT_CLEANUP
 
 AT_SETUP([cdecl99 invalid character error messages])
 
-$AWK -f- >test.dat </dev/null <<'EOF'
+$AWK -f - >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 <test.dat], [0], [stdout], [ignore])
+
+# If built with readline support, then the input commands (including their
+# trailing newlines) will be captured by AT_CHECK.  Otherwise, they are not:
+# the output just directly follows the prompt, and the final prompt will
+# not end with a newline.  Attempt to paper over these differences.
+AT_DATA([check.sed],
+[[/> [eq]/d
+:loop
+s/^> //
+t loop
+/^$/d
+]])
+
+AT_CHECK([echo >>stdout; sed -f check.sed stdout], [0],
+[declare x as int
+])
+
+AT_CLEANUP