Be a little more lenient in interval checking

lizmat · lizmat · commit bbb789b83d60 · 2014-09-18T10:28:45.000+02:00
diff --git a/S17-scheduler/every.t b/S17-scheduler/every.t
@@ -24,9 +24,9 @@ my $name = $*SCHEDULER.^name;
     $*SCHEDULER.cue({ cas $a, {.succ}; die }, :every(0.1), :catch({ cas $b, {.succ} }));
     sleep 1;
     diag "seen $a runs" if !
-      ok 5 < $a < 15, "Cue with :every/:catch schedules repeatedly (1)";
+      ok 3 < $a < 15, "Cue with :every/:catch schedules repeatedly (1)";
     diag "seen $b deaths" if !
-      ok 5 < $b < 15, "Cue with :every/:catch schedules repeatedly (2)";
+      ok 3 < $b < 15, "Cue with :every/:catch schedules repeatedly (2)";
 }
 
 {

Original file line number	Diff line number	Diff line change
`@@ -24,9 +24,9 @@ my $name = $*SCHEDULER.^name;`
`24`	`24`	`$*SCHEDULER.cue({ cas $a, {.succ}; die }, :every(0.1), :catch({ cas $b, {.succ} }));`
`25`	`25`	`sleep 1;`
`26`	`26`	`diag "seen $a runs" if !`
`27`		`- ok 5 < $a < 15, "Cue with :every/:catch schedules repeatedly (1)";`
	`27`	`+ ok 3 < $a < 15, "Cue with :every/:catch schedules repeatedly (1)";`
`28`	`28`	`diag "seen $b deaths" if !`
`29`		`- ok 5 < $b < 15, "Cue with :every/:catch schedules repeatedly (2)";`
	`29`	`+ ok 3 < $b < 15, "Cue with :every/:catch schedules repeatedly (2)";`
`30`	`30`	`}`
`31`	`31`
`32`	`32`	`{`