pike.git / bin / test_pike.pike

version» Context lines:

pike.git/bin/test_pike.pike: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>      #if !efun(_verify_internals)   #define _verify_internals()   #endif      int foo(string opt)   {    if(opt=="" || !opt) return 1;
pike.git/bin/test_pike.pike:220:    if(t) trace(t);    if(functionp(o->a)) a=o->a();    if(functionp(o->b)) b=o->b();    if(t) trace(0);       if(check > 1) _verify_internals();       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)    {    werror(fname + " failed.\n");    werror(test+"\n");    werror(sprintf("o->a(): %O\n",a));    errors++;    }else{    successes++;