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.23 1999/04/08 22:19:01 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.24 1999/05/12 04:38:05 hubbe Exp $ */      import Stdio;      #if !efun(_verify_internals)   #define _verify_internals()   #endif      int foo(string opt)   {    if(opt=="" || !opt) return 1;
pike.git/bin/test_pike.pike:235:    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"); +  bzot(test);    if (arrayp(err) && sizeof(err) && stringp(err[0])) {    werror("Error: " + err[0]);    } -  +  if (objectp(err)) { +  werror("Error: " + err[0]); +  }    errors++;    break;    }       switch(type)    {    case "FALSE":    if(a)    {    werror(fname + " failed.\n");