From 88b807bbf26b2335db8929b1b5202f9cce83704a Mon Sep 17 00:00:00 2001
From: Brian Drummond <brian@shapes.demon.co.uk>
Date: Sun, 29 Dec 2013 23:26:52 +0000
Subject: Fix bug in get_entities, add STOP <time> to testsuite script

---
 testsuite/vests/testsuite.sh | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)
 mode change 100755 => 100644 testsuite/vests/testsuite.sh

(limited to 'testsuite/vests')

diff --git a/testsuite/vests/testsuite.sh b/testsuite/vests/testsuite.sh
old mode 100755
new mode 100644
index c5abd5225..4cd6e97a4
--- a/testsuite/vests/testsuite.sh
+++ b/testsuite/vests/testsuite.sh
@@ -42,6 +42,7 @@ handle_test ()
   file=$1
   shift
   args="$common_args"
+  stop=""
   entity=""
   # handle options.
   for arg; do
@@ -56,6 +57,9 @@ handle_test ()
     OUTPUT=*)
          output=$arg;
          ;;
+    STOP=*)
+         stop=`echo $arg | sed -e s/STOP=/--stop-time=/`;
+         ;;
     ENTITY=*)
          entity=`echo $arg | sed -e s/ENTITY=//`
 	 ;;
@@ -82,7 +86,7 @@ handle_test ()
          if [ "x$entity" = "x" ]; then
            echo "Cannot elaborate or run : no top level entity";
          else
-           cmd="$GHDL --elab-run $entity --assert-level=error";
+           cmd="$GHDL --elab-run $entity $stop --assert-level=error";
            echo "$cmd";
            eval $cmd;
          fi
@@ -107,7 +111,7 @@ handle_test ()
            cmd="$GHDL -e $entity";
            echo "$cmd";
            eval $cmd;
-           cmd="$GHDL -r $entity --expect-failure --assert-level=error";
+           cmd="$GHDL -r $entity $stop --expect-failure --assert-level=error";
            echo "$cmd";
            eval $cmd;
          fi
-- 
cgit v1.2.3