new feature: check ever N tests

Rev: bin/test_pike.pike:1.47

bin/test_pike.pike

 #!/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,7 +355,16 @@ int main(int argc, array(string) argv)
 	  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();