Add hack that prevents generation of small polygons

See Haskell-Things#449
sorki · Oct 31, 2023 · 5c062d2 · 5c062d2
1 parent be1ee7a
commit 5c062d2
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/Graphics/Implicit/Test/Instances.hs b/tests/Graphics/Implicit/Test/Instances.hs
@@ -136,7 +136,8 @@ instance Arbitrary SymbolicObj2 where
         , square  <$> arbitrary <*> arbitrary
         , polygon <$> do
             n <- choose (3, 10)
-            vectorOf n arbitrary
+            -- TODO(srk): this is a hack until #449 is solved
+            vectorOf n ((*100) <$> (V2 <$> arbitraryPos <*> arbitraryPos))
         , pure fullSpace
         , pure emptySpace
         ]