script for running test programs in interpreter.

tweak test/literal.go to give more information.

R=austin
DELTA=45  (43 added, 0 deleted, 2 changed)
OCL=34381
CL=34398

diff --git a/test/literal.go b/test/literal.go
index 673a53c7df7f94c932b363c0d87872814eed1df6..00b7b734266da9b6182dc40713b5306fc851ce6b 100644 (file)
--- a/test/literal.go
+++ b/test/literal.go
@@ -6,10 +6,15 @@
 
 package main
 
+var nbad int
+
 func assert(cond bool, msg string) {
        if !cond {
-               print("assertion fail: ", msg, "\n");
-               panic(1);
+               if nbad == 0 {
+                       print("BUG");
+               }
+               nbad++;
+               print(" ", msg);
        }
 }
 
@@ -210,4 +215,8 @@ func main() {
        assert(sj0 == sj1, "sj1");
        assert(sj0 == sj2, "sj2");
        assert(sj0 == sj3, "sj3");
+
+       if nbad > 0 {
+               println()
+       }
 }

diff --git a/usr/austin/eval/test.bash b/usr/austin/eval/test.bash
new file mode 100755 (executable)
index 0000000..81f4c3d
--- /dev/null
+++ b/usr/austin/eval/test.bash
@@ -0,0 +1,34 @@
+#!/bin/bash
+# Copyright 2009 The Go Authors.  All rights reserved.
+# Use of this source code is governed by a BSD-style
+# license that can be found in the LICENSE file.
+
+# Run the interpreter against all the Go test programs
+# that begin with the magic
+#      // $G $D/$F.go && $L $F.$A && ./$A.out
+# line and do not contain imports.
+
+set -e
+make
+6g main.go && 6l main.6
+(
+for i in $(egrep -l '// \$G (\$D/)?\$F\.go \&\& \$L \$F\.\$A && \./\$A\.out' $GOROOT/test/*.go $GOROOT/test/*/*.go)
+do
+       if grep '^import' $i >/dev/null 2>&1
+       then
+               true
+       else
+               if $GOROOT/usr/austin/eval/6.out -f $i >/tmp/out 2>&1 && ! test -s /tmp/out
+               then
+                       echo PASS $i
+               else
+                       echo FAIL $i
+                       (
+                               echo '>>> ' $i
+                               cat /tmp/out
+                               echo
+                       ) 1>&3
+               fi
+       fi
+done | (tee /dev/fd/2 | awk '{print $1}' | sort | uniq -c) 2>&1
+) 3>test.log