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.25 1999/06/19 19:49:46 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.26 1999/08/25 05:03:06 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:50:    ret+=({ combine_path(dir||"",file) });    }    }    }    return ret;   }      int main(int argc, string *argv)   {    int e, verbose, successes, errors, t, check; +  int skipped;    string *tests,tmp;    program testprogram;    int start, fail, mem;    int loop=1;    int end=0x7fffffff;    string extra_info="";    int shift;      #if constant(signal) && constant(signum)    if(signum("SIGQUIT")>=0)
pike.git/bin/test_pike.pike:188:    tmp=!!(clone(compile_string("mixed c() { return "+condition+"; }","Cond "+(e+1)))->c());    if(!tmp) tmp=-1;    cond_cache[condition]=tmp;    }       if(tmp==-1)    {    if(verbose)    werror("Not doing test "+(e+1)+"\n");    successes++; +  skipped++;    continue;    }    }       sscanf(test,"%s\n%s",type,test);    sscanf(type,"%*s expected result: %s",type);       if(verbose)    {    werror("Doing test %d (%d total)%s\n",e+1,successes+errors+1,extra_info);
pike.git/bin/test_pike.pike:379:    "Total",    "",    total));    }    }    if(errors || verbose)    {    werror("Failed tests: "+errors+".\n");    }    -  werror("Total tests: %d\n",successes+errors); +  werror("Total tests: %d (%d tests skipped)\n",successes+errors,skipped);       return errors;   }