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.51 2000/07/28 00:35:50 nilsson Exp $ */ + /* $Id: test_pike.pike,v 1.52 2000/10/08 18:21:31 grubba Exp $ */      import Stdio;      #if !constant(_verify_internals)   #define _verify_internals()   #endif      #if !constant(_dmalloc_set_name)   void _dmalloc_set_name(mixed ... args) {}   #endif
pike.git/bin/test_pike.pike:330:    }       while(loop--)    {    successes=errors=0;    for(int f=1;f<sizeof(argv);f++)    {    tmp=read_bytes(argv[f]);    if(!tmp)    { -  werror("Failed to read test file, errno="+errno()+".\n"); +  werror("Failed to read test file %O, errno=%d.\n", +  argv[f], errno());    exit(1);    }       tests=tmp/"\n....\n";    tmp=0;    tests=tests[0..sizeof(tests)-2];       werror("Doing tests in %s (%d tests)\n",argv[f],sizeof(tests));    int qmade, qskipped, qmadep, qskipp;   
pike.git/bin/test_pike.pike:486:    string linetester="int __cpp_line=__LINE__; int __rtl_line=[int]backtrace()[-1][1];\n";       string to_compile = test + linetester + widener;       if((shift/3)&1)    {    fname+=" (CRNL)";    to_compile=replace(to_compile,"\n","\r\n");    }    +  // _optimizer_debug(5); +     if(verbose>9) bzot(to_compile);    switch(type)    {    mixed at,bt;    mixed err;    case "COMPILE":    _dmalloc_set_name(fname,0);    if(catch(compile_string(to_compile, fname)))    {    _dmalloc_set_name();
pike.git/bin/test_pike.pike:558:    o=clone(compile_string(to_compile,fname));    _dmalloc_set_name();       if(check > 1) _verify_internals();       a=b=0;    if(t) trace(t);    _dmalloc_set_name(fname,1);    if(functionp(o->a))    { +  // trace(10);    at = gauge { a=o->a(); }; -  +  // trace(0);    }       if(functionp(o->b))    {    bt = gauge { b=o->b(); };    }       _dmalloc_set_name();       if(t) trace(0);    if(check > 1) _verify_internals();       }) { -  +  // trace(0);    werror(fname + " failed.\n");    bzot(test);    if (arrayp(err) && sizeof(err) && stringp(err[0])) {    werror("Error: " + master()->describe_backtrace(err));    }    if (objectp(err)) {    werror("Error: " + master()->describe_backtrace(err));    }    errors++;    break;