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.10 1998/04/09 21:10:19 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.11 1998/04/11 11:53:35 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:110:       if(verbose)    {    werror("Doing test "+(e+1)+"\n");    if(verbose>1)    werror(test+"\n");    }       if(check > 1) _verify_internals();    +  string fname = argv[f] + ": Test " + (e + 1); +     switch(type)    {    case "COMPILE": -  if(catch(compile_string(test,"Test "+(e+1)))) +  if(catch(compile_string(test, fname)))    { -  werror("Test "+(e+1)+" failed.\n"); +  werror(fname + " failed.\n");    werror(test+"\n");    errors++;    }else{    successes++;    }    break;       case "COMPILE_ERROR":    master()->set_inhibit_compile_errors(1); -  if(catch(compile_string(test,"Test "+(e+1)))) +  if(catch(compile_string(test, fname)))    {    successes++;    }else{ -  werror("Test "+(e+1)+" failed.\n"); +  werror(fname + " failed.\n");    werror(test+"\n");    errors++;    }    master()->set_inhibit_compile_errors(0);    break;       case "EVAL_ERROR":    master()->set_inhibit_compile_errors(1); -  if(catch(clone(compile_string(test,"Test "+(e+1)))->a())) +  if(catch(clone(compile_string(test, fname))->a()))    {    successes++;    }else{ -  werror("Test "+(e+1)+" failed.\n"); +  werror(fname + " failed.\n");    werror(test+"\n");    errors++;    }    master()->set_inhibit_compile_errors(0);    break;       default: -  o=clone(compile_string(test,"Test "+(e+1))); +  o=clone(compile_string(test,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();       switch(type)    {    case "FALSE":    a=!a;       case "TRUE":    if(!a)    { -  werror("Test "+(e+1)+" failed.\n"); +  werror(fname + " failed.\n");    werror(test+"\n");    werror(sprintf("o->a(): %O\n",a));    errors++;    }else{    successes++;    }    break;       case "RUN":    successes++;    break;       case "EQ":    if(a!=b)    { -  werror("Test "+(e+1)+" failed.\n"); +  werror(fname + " failed.\n");    werror(test+"\n");    werror(sprintf("o->a(): %O\n",a));    werror(sprintf("o->b(): %O\n",b));    errors++;    }else{    successes++;    }    break;       case "EQUAL":    if(!equal(a,b))    { -  werror("Test "+(e+1)+" failed.\n"); +  werror(fname + " failed.\n");    werror(test+"\n");    werror(sprintf("o->a(): %O\n",a));    werror(sprintf("o->b(): %O\n",b));    errors++;    }else{    successes++;    }    break;       default: -  werror(sprintf("Unknown test type (%O).\n",type)); +  werror(sprintf("%s: Unknown test type (%O).\n", fname, type));    errors++;    }    }       if(check > 2) _verify_internals();       if(fail && errors)    exit(1);       if(!--end) exit(0);