From f9906020ef838af0bb6683a3a078e23eac555e54 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 9 Mar 2025 22:08:51 +0100 Subject: test: Make GMM inputs a little bit smaller --- test/Main.hs | 6 +++--- 1 file 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) -- cgit v1.2.3-70-g09d2