diff options
Diffstat (limited to 'tests/Main.hs')
-rw-r--r-- | tests/Main.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/tests/Main.hs b/tests/Main.hs index a968c487..fb69565d 100644 --- a/tests/Main.hs +++ b/tests/Main.hs | |||
@@ -52,11 +52,6 @@ prop_properBEncode _ expected = actual == Right expected | |||
52 | where | 52 | where |
53 | actual = decoded $ Lazy.toStrict $ encoded expected | 53 | actual = decoded $ Lazy.toStrict $ encoded expected |
54 | 54 | ||
55 | prop_properJSON :: (FromJSON a, ToJSON a) => Eq a => T a -> a -> Bool | ||
56 | prop_properJSON _ expected = actual == Just expected | ||
57 | where | ||
58 | actual = JSON.decode $ JSON.encode expected | ||
59 | |||
60 | instance Arbitrary URI where | 55 | instance Arbitrary URI where |
61 | arbitrary = pure $ fromJust | 56 | arbitrary = pure $ fromJust |
62 | $ parseURI "http://exsample.com:80/123365_asd" | 57 | $ parseURI "http://exsample.com:80/123365_asd" |