diff options
| -rw-r--r-- | testsuite/gna/issue830/r.vhdl | 2 | ||||
| -rwxr-xr-x | testsuite/gna/issue830/testsuite.sh | 12 | ||||
| -rw-r--r-- | testsuite/testenv.sh | 4 |
3 files changed, 16 insertions, 2 deletions
diff --git a/testsuite/gna/issue830/r.vhdl b/testsuite/gna/issue830/r.vhdl new file mode 100644 index 000000000..1911976d8 --- /dev/null +++ b/testsuite/gna/issue830/r.vhdl @@ -0,0 +1,2 @@ +entity r is +end; diff --git a/testsuite/gna/issue830/testsuite.sh b/testsuite/gna/issue830/testsuite.sh new file mode 100755 index 000000000..5d047e136 --- /dev/null +++ b/testsuite/gna/issue830/testsuite.sh @@ -0,0 +1,12 @@ +#! /bin/sh + +. ../../testenv.sh + +if analyze --std=08 "" r.vhdl; then + echo "error expected" + exit 1; +fi + +clean + +echo "Test successful" diff --git a/testsuite/testenv.sh b/testsuite/testenv.sh index eec062d78..409346f58 100644 --- a/testsuite/testenv.sh +++ b/testsuite/testenv.sh @@ -38,7 +38,7 @@ fi analyze () { echo "analyze $@" - "$GHDL" -a $GHDL_STD_FLAGS $GHDL_FLAGS $@ + "$GHDL" -a $GHDL_STD_FLAGS $GHDL_FLAGS "$@" } # Analyze files (failure expected) @@ -46,7 +46,7 @@ analyze_failure () { echo "try to analyze $@" # for arg in $@; do echo "arg: $arg"; done - if ! "$GHDL" -a --expect-failure $GHDL_STD_FLAGS $GHDL_FLAGS $@ ; then + if ! "$GHDL" -a --expect-failure $GHDL_STD_FLAGS $GHDL_FLAGS "$@" ; then echo "Failure expected" return 1 fi |