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.27 1999/08/30 06:21:17 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.28 1999/10/21 21:19:12 grubba 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:172:    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(); +  if(check>3) { +  gc(); +  _verify_internals(); +  }       test=tests[e];    if(sscanf(test,"COND %s\n%s",condition,test)==2)    {    int tmp;    if(!(tmp=cond_cache[condition]))    {    tmp=!!(clone(compile_string("mixed c() { return "+condition+"; }","Cond "+(e+1)))->c());    if(!tmp) tmp=-1;    cond_cache[condition]=tmp;