Add test that fails when trying to print None (i.e. null) hedgehogqa#381

TysonMN · Nov 19, 2021 · 812903d · 812903d
1 parent 44bfe70
commit 812903d
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/Hedgehog.Tests/PropertyTests.fs b/tests/Hedgehog.Tests/PropertyTests.fs
@@ -51,4 +51,13 @@ let propertyTests = testList "Property tests" [
 #else
         Expect.stringContains report guid "Missing counterexample text"
 #endif
+
+    testCase "Report containing None renders without throwing an exception" <| fun () ->
+        property {
+            let! opt = Gen.constant () |> Gen.option
+            return opt.IsSome
+        }
+        |> Property.report
+        |> Report.render
+        |> ignore
 ]