From 4f86c7d4b92d4821b11396c4ff7c9fa5b818c6a7 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 21 May 2015 07:01:07 +0200
Subject: Add testcases for ticket 77

---
 testsuite/gna/ticket77/bug1.vhdl    | 12 ++++++++++++
 testsuite/gna/ticket77/bug2.vhdl    | 12 ++++++++++++
 testsuite/gna/ticket77/bug3.vhdl    | 12 ++++++++++++
 testsuite/gna/ticket77/bug4.vhdl    | 12 ++++++++++++
 testsuite/gna/ticket77/testsuite.sh | 30 ++++++++++++++++++++++++++++++
 5 files changed, 78 insertions(+)
 create mode 100644 testsuite/gna/ticket77/bug1.vhdl
 create mode 100644 testsuite/gna/ticket77/bug2.vhdl
 create mode 100644 testsuite/gna/ticket77/bug3.vhdl
 create mode 100644 testsuite/gna/ticket77/bug4.vhdl
 create mode 100755 testsuite/gna/ticket77/testsuite.sh

(limited to 'testsuite/gna/ticket77')

diff --git a/testsuite/gna/ticket77/bug1.vhdl b/testsuite/gna/ticket77/bug1.vhdl
new file mode 100644
index 000000000..444230cf4
--- /dev/null
+++ b/testsuite/gna/ticket77/bug1.vhdl
@@ -0,0 +1,12 @@
+entity ent1 is
+end entity;
+
+architecture a of ent1 is
+begin
+  main : process
+  begin
+    wait for 0 ns; -- Comment and it exits with code 1
+    std.env.stop(1);
+    wait;
+  end process;
+end architecture;
diff --git a/testsuite/gna/ticket77/bug2.vhdl b/testsuite/gna/ticket77/bug2.vhdl
new file mode 100644
index 000000000..b666d5e63
--- /dev/null
+++ b/testsuite/gna/ticket77/bug2.vhdl
@@ -0,0 +1,12 @@
+entity ent2 is
+end entity;
+
+architecture a of ent2 is
+begin
+  main : process
+  begin
+--    wait for 0 ns; -- Comment and it exits with code 1
+    std.env.stop(1);
+    wait;
+  end process;
+end architecture;
diff --git a/testsuite/gna/ticket77/bug3.vhdl b/testsuite/gna/ticket77/bug3.vhdl
new file mode 100644
index 000000000..429ccd35f
--- /dev/null
+++ b/testsuite/gna/ticket77/bug3.vhdl
@@ -0,0 +1,12 @@
+entity ent3 is
+end entity;
+
+architecture a of ent3 is
+begin
+  main : process
+  begin
+--    wait for 0 ns; -- Comment and it exits with code 1
+    std.env.stop(7);
+    wait;
+  end process;
+end architecture;
diff --git a/testsuite/gna/ticket77/bug4.vhdl b/testsuite/gna/ticket77/bug4.vhdl
new file mode 100644
index 000000000..a1f927d80
--- /dev/null
+++ b/testsuite/gna/ticket77/bug4.vhdl
@@ -0,0 +1,12 @@
+entity ent4 is
+end entity;
+
+architecture a of ent4 is
+begin
+  main : process
+  begin
+--    wait for 0 ns; -- Comment and it exits with code 1
+    std.env.stop(0);
+    wait;
+  end process;
+end architecture;
diff --git a/testsuite/gna/ticket77/testsuite.sh b/testsuite/gna/ticket77/testsuite.sh
new file mode 100755
index 000000000..cc5d75451
--- /dev/null
+++ b/testsuite/gna/ticket77/testsuite.sh
@@ -0,0 +1,30 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze_elab_simulate_status()
+{
+  file=$1
+  ent=$2
+  status=$3
+
+  analyze $file
+  set +e
+  echo "elaborate and simulate $ent"
+  $GHDL --elab-run $GHDL_STD_FLAGS $ent
+  if [ $? -ne $status ]; then
+    echo "Exit status $status expected"
+    exit 1
+  fi
+  set -e
+}
+
+GHDL_STD_FLAGS=--std=08
+analyze_elab_simulate_status bug1.vhdl ent1 1
+analyze_elab_simulate_status bug2.vhdl ent2 1
+analyze_elab_simulate_status bug3.vhdl ent3 7
+analyze_elab_simulate_status bug4.vhdl ent4 0
+
+clean
+
+echo "Test successful"
-- 
cgit v1.2.3