vegowotenks/hon
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix[test]: quickcheck-instances panics when creating empty arrays

Browse source
This commit is contained in:
vegowotenks 2025-08-22 10:54:10 +02:00
parent c78d261a1b
commit 786ded3e43
3 changed files with 26 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/Language/Json.hs
View file

@ -28,8 +28,7 @@ import GHC.Generics ( Generic, Generically(..) )
import Pretty.Serialize (PrettySerialize)
import Test.QuickCheck (Arbitrary (arbitrary), Gen, UnicodeString (getUnicodeString), PrintableString (getPrintableString))
import qualified Test.QuickCheck.Gen as Gen
import Test.QuickCheck.Instances.Array ()
import Test.QuickCheck.Instances.Natural ()
import Data.Array.Arbitrary (ArbitraryArray(getArbitraryArray))
data Value
@ -50,7 +49,7 @@ instance Arbitrary Value where
, String . Text.pack . getUnicodeString <$> arbitrary
, Boolean <$> arbitrary
, Number <$> arbitrary
, Array <$> Gen.scale (`div` 2) arbitrary
, Array . getArbitraryArray <$> Gen.scale (`div` 2) arbitrary
, Object . Map.mapKeys (Text.pack . getUnicodeString) <$> Gen.scale (`div` 2) arbitrary
]
@ -64,7 +63,7 @@ instance Arbitrary PrintableValue where
, String . Text.pack . getPrintableString <$> arbitrary
, Boolean <$> arbitrary
, Number <$> arbitrary
, Array <$> Gen.scale (`div` 2) arbitrary
, Array . getArbitraryArray <$> Gen.scale (`div` 2) arbitrary
, Object . Map.mapKeys (Text.pack . getPrintableString) <$> Gen.scale (`div` 2) arbitrary
]