From 043439298fd884953acb61cc0622faf8bd6e9e95 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 4 Jun 2019 04:14:56 +0200
Subject: Add testcase for #830; adjust harness.

---
 testsuite/gna/issue830/r.vhdl       |  2 ++
 testsuite/gna/issue830/testsuite.sh | 12 ++++++++++++
 testsuite/testenv.sh                |  4 ++--
 3 files changed, 16 insertions(+), 2 deletions(-)
 create mode 100644 testsuite/gna/issue830/r.vhdl
 create mode 100755 testsuite/gna/issue830/testsuite.sh

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
-- 
cgit v1.2.3