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.46 2000/04/05 20:33:16 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.47 2000/04/15 05:03:41 hubbe 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:348:    for(e=start;e<sizeof(tests);e++)    {    signal_watchdog();       int skip=0;    string test,condition;    string|int type;    object o;    mixed a,b;    -  if(check) _verify_internals(); +  if(check) +  { +  if(check < 0) +  { +  if(!(e % -check)) +  _verify_internals(); +  }else{ +  _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]))