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.20 1999/03/06 04:13:13 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.21 1999/03/06 06:32:10 hubbe 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:123:    }       tests=tmp/"\n....\n";    tmp=0;    tests=tests[0..sizeof(tests)-2];       werror("Doing tests in %s (%d tests)\n",argv[f],sizeof(tests));       for(e=start;e<sizeof(tests);e++)    { +  werror("%6d\r",e+1); +     string test,condition;    int type;    object o;    mixed a,b;       if(check) _verify_internals();       test=tests[e];    if(sscanf(test,"COND %s\n%s",condition,test)==2)    {
pike.git/bin/test_pike.pike:163:    if(verbose)    {    werror("Doing test %d (%d total)%s\n",e+1,successes+errors+1,extra_info);    if(verbose>1)    werror(test+"\n");    }       if(check > 1) _verify_internals();       shift++; +  shift%=3;    string fname = argv[f] + ": Test " + (e + 1) +    " (shift " + shift + ")";       string widener = ([ 0:"",    1:"\nint \x30c6\x30b9\x30c8=0;\n",    2:"\nint \x10001=0;\n" ])[shift%3];       switch(type)    {    case "COMPILE":
pike.git/bin/test_pike.pike:221:    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;    }
pike.git/bin/test_pike.pike:304:       if(check > 2) _verify_internals();       if(fail && errors)    exit(1);       if(!--end) exit(0);       a=b=0;    } +  werror(" \r");    }    if(mem)    {    int total;    tests=0;    gc();    mapping tmp=_memory_usage();    write(sprintf("%-10s: %6s %10s\n","Category","num","bytes"));    foreach(sort(indices(tmp)),string foo)    {