From a57170f5fc39a964e68bb73ada33d6e2dac3d2f9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 14 Apr 2000 22:03:41 -0700
Subject: [PATCH] new feature: check ever N tests
Rev: bin/test_pike.pike:1.47
---
bin/test_pike.pike | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/bin/test_pike.pike b/bin/test_pike.pike
index 235b2f1b28..20d27dc50c 100755
--- a/bin/test_pike.pike
+++ b/bin/test_pike.pike
@@ -1,6 +1,6 @@
#!/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();
--
GitLab