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.45 2000/04/01 02:08:38 hubbe Exp $ */ + /* $Id: test_pike.pike,v 1.46 2000/04/05 20:33:16 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:360:    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()); +  mixed err; +  if (err = catch { +  tmp=!!(compile_string("mixed c() { return "+condition+"; }", +  "Cond "+(e+1))()->c()); +  }) { +  werror(sprintf("\nConditional %d failed:\n" +  "%s\n", +  e+1, describe_backtrace(err))); +  errors++; +  tmp = -1; +  }    if(!tmp) tmp=-1;    cond_cache[condition]=tmp;    }       if(tmp==-1)    {    if(verbose)    werror("Not doing test "+(e+1)+"\n");    successes++;    skipped++;