pike.git/ bin/ test_pike.pike

1999-02-20

1999-02-20 20:22:30 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 2583b4dd94e4a2131879cfba01480c6456e64393 (14 lines) (+12/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

Improved FALSE test output.

Rev: bin/test_pike.pike:1.16

1:   #!/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:    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)