Add Gen.bigint

hedgehogqa · Jul 25, 2023 · 7c87d83 · 7c87d83
1 parent f4a4b00
commit 7c87d83
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/Hedgehog/Gen.fs b/src/Hedgehog/Gen.fs
@@ -474,6 +474,10 @@ module Gen =
     let decimal (range : Range<decimal>) : Gen<decimal> =
         double (Range.map ExtraTopLevelOperators.double range) |> map decimal
 
+    /// Generates a random big integer.
+    let bigint (range : Range<bigint>) : Gen<bigint> =
+        integral range
+
     //
     // Combinators - Constructed
     //

diff --git a/tests/Hedgehog.Tests/GenTests.fs b/tests/Hedgehog.Tests/GenTests.fs
@@ -137,6 +137,14 @@ let genTests = testList "Gen tests" [
         |> Property.falseToFailure
         |> Property.check
 
+    fableIgnore "bigint can create linear bounded integer" <| fun _ ->
+        property {
+            let! _ = Gen.bigint (Range.linear 0I 100I)
+            return true
+        }
+        |> Property.falseToFailure
+        |> Property.check
+
     testCase "apply is chainable" <| fun _ ->
         let _ : Gen<int> =
             Gen.constant (+)