more tests

Rev: bin/mktestsuite:1.9
Rev: bin/test_pike.pike:1.9

bin/mktestsuite

@@ -149,5 +149,5 @@ test_equal(max($2,$1,$3), $3)
 EOF
 
 cat $1
-) | (shift ; $M4 $@ )
+) | (shift ; $M4 "$@" )
 

bin/test_pike.pike

 #!/usr/local/bin/pike
 
-/* $Id: test_pike.pike,v 1.8 1998/04/06 03:19:37 hubbe Exp $ */
+/* $Id: test_pike.pike,v 1.9 1998/04/08 22:05:36 hubbe Exp $ */
 
 #include <simulate.h>
 
@@ -164,6 +164,7 @@ int main(int argc, string *argv)
 		{
 		  werror("Test "+(e+1)+" failed.\n");
 		  werror(test+"\n");
+		  werror(sprintf("o->a(): %O\n",a));
 		  errors++;
 		}else{
 		  successes++;