summaryrefslogtreecommitdiff
path: root/tests/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Main.hs')
-rw-r--r--tests/Main.hs5
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
55prop_properJSON :: (FromJSON a, ToJSON a) => Eq a => T a -> a -> Bool
56prop_properJSON _ expected = actual == Just expected
57 where
58 actual = JSON.decode $ JSON.encode expected
59
60instance Arbitrary URI where 55instance 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"