newer-deps 1.37 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13
--- a/hackage-security.cabal
+++ b/hackage-security.cabal
@@ -234,11 +234,11 @@
                        zlib
 
   -- dependencies exclusive to test-suite
-  build-depends:       tasty            == 1.0.*,
-                       tasty-hunit      == 0.10.*,
-                       tasty-quickcheck == 0.10.*,
-                       QuickCheck       == 2.9.*,
-                       temporary        == 1.2.*
+  build-depends:       tasty            >= 1.0,
+                       tasty-hunit      >= 0.10,
14
+                       tasty-quickcheck >= 0.9,
15 16 17 18 19
+                       QuickCheck       >= 2.9,
+                       temporary        >= 1.2
 
   hs-source-dirs:      tests
   default-language:    Haskell2010
20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
--- a/tests/TestSuite/JSON.hs
+++ b/tests/TestSuite/JSON.hs
@@ -46,12 +46,13 @@
       [ (1, pure JSNull)
       , (1, JSBool   <$> arbitrary)
       , (2, JSNum    <$> arbitrary)
-      , (2, JSString <$> arbitrary)
+      , (2, JSString . getASCIIString <$> arbitrary)
       , (3, JSArray                <$> resize (sz `div` 2) arbitrary)
-      , (3, JSObject . noDupFields <$> resize (sz `div` 2) arbitrary)
+      , (3, JSObject . noDupFields . asciify <$> resize (sz `div` 2) arbitrary)
       ]
     where
       noDupFields = nubBy (\(x,_) (y,_) -> x==y)
+      asciify = map (\(x,y) -> (getASCIIString x, y))
 
   shrink JSNull        = []
   shrink (JSBool    _) = []