diff options
| author | Tom Smeding <t.j.smeding@uu.nl> | 2025-03-09 22:08:51 +0100 |
|---|---|---|
| committer | Tom Smeding <t.j.smeding@uu.nl> | 2025-03-09 22:08:51 +0100 |
| commit | f9906020ef838af0bb6683a3a078e23eac555e54 (patch) | |
| tree | 8c241664fc424385fb5442d91ae7f92f3a70f008 | |
| parent | 0527b33280fd8e59bfc0c7b2f031cd5acf4b18e2 (diff) | |
test: Make GMM inputs a little bit smaller
| -rw-r--r-- | test/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/Main.hs b/test/Main.hs index d488ce5..2b7e7d8 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -353,9 +353,9 @@ tests = testGroup "AD" genGMM = do -- The input ranges here are completely arbitrary. let tR = STScal STF64 - kN <- Gen.integral (Range.linear 1 10) - kD <- Gen.integral (Range.linear 1 10) - kK <- Gen.integral (Range.linear 1 10) + kN <- Gen.integral (Range.linear 1 8) + kD <- Gen.integral (Range.linear 1 8) + kK <- Gen.integral (Range.linear 1 8) let i2i64 = fromIntegral @Int @Int64 valpha <- genArray tR (ShNil `ShCons` kK) vM <- genArray tR (ShNil `ShCons` kK `ShCons` kD) |