Branch: Tag:

2000-04-15

2000-04-15 05:03:41 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

new feature: check ever N tests

Rev: bin/test_pike.pike:1.47

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;   
355:    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();