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.19 1999/03/01 05:32:08 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.20 1999/03/06 04:13:13 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:210:    successes++;    }else{    werror(fname + " failed.\n");    werror(test+"\n");    errors++;    }    master()->set_inhibit_compile_errors(0);    break;       default: +  mixed err; +  if (err = catch{    o=clone(compile_string(test + widener,fname));       if(check > 1) _verify_internals();       a=b=0;    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(); -  +  }) { +  werror(fname + " failed.\n"); +  werror(test + "\n"); +  if (arrayp(err) && sizeof(err) && stringp(err[0])) { +  werror("Error: " + err[0]); +  } +  errors++; +  break; +  }       switch(type)    {    case "FALSE":    if(a)    {    werror(fname + " failed.\n");    werror(test+"\n");    werror(sprintf("o->a(): %O\n",a));    errors++;