made test in previous commit pass by handling exception in function g…

…iven to Property.bindGen #327
hedgehogqa · Sep 9, 2021 · c5fd137 · c5fd137
1 parent 0019961
commit c5fd137
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Hedgehog/Property.fs b/src/Hedgehog/Property.fs
@@ -78,8 +78,11 @@ module Property =
             | Success x ->
                 GenTuple.mapFst (Journal.append journal) (k x))
 
+    let private handle (e : exn) =
+        Gen.constant (Journal.singletonMessage (string e), Failure) |> ofGen
+
     let bind (k : 'a -> Property<'b>) (m : Property<'a>) : Property<'b> =
-        bindGen (toGen << k) (toGen m) |> ofGen
+        bindGen (fun a -> (try k a with e -> handle e) |> toGen) (toGen m) |> ofGen
 
     let private printValue (value) : string =
         // sprintf "%A" is not prepared for printing ResizeArray<_> (C# List<T>) so we prepare the value instead