1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
--- 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,
+ tasty-quickcheck >= 0.9,
+ QuickCheck >= 2.9,
+ temporary >= 1.2
hs-source-dirs: tests
default-language: Haskell2010
--- 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 _) = []
|
