Add Property.failOnFalse

hedgehogqa · Nov 16, 2021 · a23e78e · a23e78e
1 parent b6dbc98
commit a23e78e
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,7 @@
+## Version 0.12.0
+
+- Add Property.failOnFalse ([#380][380], [@TysonMN][TysonMN])
+
 ## Version 0.11.0 (2021-09-22)
 
 - Improved integral shrink trees to match behavior of binary search ([#239][239], [@TysonMN][TysonMN])
@@ -171,6 +175,8 @@
 [porges]:
   https://github.com/porges
 
+[380]:
+  https://github.com/hedgehogqa/fsharp-hedgehog/pull/380
 [363]:
   https://github.com/hedgehogqa/fsharp-hedgehog/pull/363
 [362]:

diff --git a/src/Hedgehog/Property.fs b/src/Hedgehog/Property.fs
@@ -100,6 +100,9 @@ module Property =
         |> bindGen kTry
         |> ofGen
 
+    let failOnFalse p =
+        p |> bind ofBool
+
     let private printValue (value) : string =
         // sprintf "%A" is not prepared for printing ResizeArray<_> (C# List<T>) so we prepare the value instead
         let prepareForPrinting (value: obj) : obj =