more tolerance on messages

jet · Oct 25, 2018 · 452b2e4 · 452b2e4
1 parent 2854c14
commit 452b2e4
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/tests/CallPolly.Tests/RulesTests.fs b/tests/CallPolly.Tests/RulesTests.fs
@@ -513,8 +513,10 @@ type Cutoff(output : Xunit.Abstractions.ITestOutputHelper) =
             | x -> failwithf "Unexpected event %A" x
         let breached,wouldBeCancelled = evnts |> Seq.map breachedOrCanceled |> Choice.partition
         // even the zero delay ones could in extreme circumstances end up with wierd timing effects
-        test <@ between 0 4 <| Array.length breached // should be = 2, but we'll settle for this weaker assertion
-                && between 1 4 <| Array.length wouldBeCancelled @> } // should be = 2, but we'll settle for this weaker assertion
+        test <@ let breached,wouldBeCancelled = Array.length breached, Array.length wouldBeCancelled
+                between 0 4 <| breached // should be = 2, but we'll settle for this weaker assertion
+                && between 1 5 <| wouldBeCancelled
+                && between 6 6 <| breached + wouldBeCancelled @> }
 
     let [<Fact>] ``when active, cooperatively cancels requests exceeding the cutoff duration`` () = async {
         let pol = Parser.parse(defs).CreatePolicy log