diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-06-04 04:14:56 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-06-04 04:14:56 +0200 |
commit | 043439298fd884953acb61cc0622faf8bd6e9e95 (patch) | |
tree | 0a98be7232f9b42e0788ac0f04e7112f1ed6ba75 /testsuite | |
parent | e53cf90579703fb92d460abc12201925290b38e1 (diff) | |
download | ghdl-043439298fd884953acb61cc0622faf8bd6e9e95.tar.gz ghdl-043439298fd884953acb61cc0622faf8bd6e9e95.tar.bz2 ghdl-043439298fd884953acb61cc0622faf8bd6e9e95.zip |
Add testcase for #830; adjust harness.
Diffstat (limited to 'testsuite')
-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 |