Add Gen.bigint

hedgehogqa · Jul 30, 2023 · 1f32e0a · 1f32e0a
1 parent 09bdbd2
commit 1f32e0a
Show file tree

Hide file tree

Showing 2 changed files with 11 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
@@ -154,6 +154,13 @@ 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 ()
+        }
+        |> Property.check
+
     testCase "apply is chainable" <| fun _ ->
         let _ : Gen<int> =
             Gen.constant (+)