From 06c3153964b77b58966563dbff22fed66a9be386 Mon Sep 17 00:00:00 2001
From: Steve Chamberlain <sac@cygnus>
Date: Tue, 1 Aug 1995 02:45:00 +0000
Subject: [PATCH] 	new file.

---
 gas/testsuite/gasp/gasp.exp | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 gas/testsuite/gasp/gasp.exp

diff --git a/gas/testsuite/gasp/gasp.exp b/gas/testsuite/gasp/gasp.exp
new file mode 100644
index 0000000..ec0672e
--- /dev/null
+++ b/gas/testsuite/gasp/gasp.exp
@@ -0,0 +1,35 @@
+
+
+proc gasp_test { testname }  {
+    global GASP
+    global srcdir
+    
+    send_log "$srcdir/lib/run $GASP -s $testname.asm -o gasp.out \n"
+    catch "exec $srcdir/lib/run $GASP -I$srcdir/gasp -s $testname.asm -o gasp.out" errs
+    catch "exec diff gasp.out $testname.out" diffs
+    if ![string match "" $diffs] {
+	send_log "$diffs\n"
+	verbose $diffs
+	fail $testname
+	send_log "exec cat gasp.out"
+	return 0
+    } else {
+	pass $testname
+    }
+
+}
+
+set testname "GASP"
+
+foreach src [ lsort [ glob $srcdir/gasp/*.asm ] ] {
+    regsub -all ".asm" $src "" t
+    gasp_test $t
+}
+
+
+# FIXME: this is here cause of a bug in DejaGnu 1.1.1. When it is no longer
+#        in use, then this can be removed.
+if [info exists errorInfo] then {
+    unset errorInfo
+}
+
-- 
2.7.4