X-Git-Url: http://git.draconx.ca/gitweb/cdecl99.git/blobdiff_plain/9a50128ac12ab834fd97699c7ca543fc040ea8f1..7516ec539764125f657a144cce32ce96df05bcf4:/tests/general.at diff --git a/tests/general.at b/tests/general.at index 5141902..21261ed 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,66 @@ AT_CHECK([$AWK '{ print $NF; }' stderr], [0], ]]) AT_CLEANUP + +dnl Ensure that parse error messages for misplaced keywords correctly +dnl include the keyword itself. +AT_SETUP([cdecl99 unexpected keyword error messages]) + +# We use the English syntax to reliably force a syntax error where we want +# it, as the "declare" form takes an identifier and not any other token, +AT_DATA([test.dat], +[[declare signed as int +declare typedef as int +declare volatile as int +declare inline as int +]]) + +AT_DATA([test.awk], +[[{ + for (i = 1; i <= $NF; i++) { + if ($i == "unexpected") { + sub(/,$/, "", $(i+1)); + print $(i+1); + break; + } + } +} +]]) + +AT_CHECK([LC_ALL=C cdecl99 -f test.dat || exit 42], [42], [], [stderr]) +AT_CHECK([$AWK -f test.awk stderr], [0], +[[signed +typedef +volatile +inline +]]) + +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