From 2583b4dd94e4a2131879cfba01480c6456e64393 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Sat, 20 Feb 1999 21:22:30 +0100
Subject: [PATCH] Improved FALSE test output.
Rev: bin/test_pike.pike:1.16
---
bin/test_pike.pike | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/bin/test_pike.pike b/bin/test_pike.pike
index f4456edf48..fd047b757e 100755
--- a/bin/test_pike.pike
+++ b/bin/test_pike.pike
@@ -1,6 +1,6 @@
#!/usr/local/bin/pike
-/* $Id: test_pike.pike,v 1.15 1999/01/21 09:11:42 hubbe Exp $ */
+/* $Id: test_pike.pike,v 1.16 1999/02/20 20:22:30 grubba Exp $ */
#include <simulate.h>
@@ -227,7 +227,16 @@ int main(int argc, string *argv)
switch(type)
{
case "FALSE":
- a=!a;
+ if(a)
+ {
+ werror(fname + " failed.\n");
+ werror(test+"\n");
+ werror(sprintf("o->a(): %O\n",a));
+ errors++;
+ }else{
+ successes++;
+ }
+ break;
case "TRUE":
if(!a)
--
GitLab