diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-28 14:57:08 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-28 14:57:08 +0400 |
| commit | fc3b090ac8dceefd315e6ca16f12d32dca11f580 (patch) | |
| tree | 765e4c63cfa20dc63786d7393b3213f737354fa3 /tests/Data/Torrent/MagnetSpec.hs | |
| parent | d086d80f2344e3bd6a955b5990b3b9d60db36d69 (diff) | |
Add QueryLike and Convertible instances to Magnet
Diffstat (limited to 'tests/Data/Torrent/MagnetSpec.hs')
| -rw-r--r-- | tests/Data/Torrent/MagnetSpec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Data/Torrent/MagnetSpec.hs b/tests/Data/Torrent/MagnetSpec.hs index 048a1870..13554455 100644 --- a/tests/Data/Torrent/MagnetSpec.hs +++ b/tests/Data/Torrent/MagnetSpec.hs | |||
| @@ -25,8 +25,8 @@ instance Arbitrary Magnet where | |||
| 25 | <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary | 25 | <*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary |
| 26 | <*> arbitrary <*> arbitrary <*> pure mempty | 26 | <*> arbitrary <*> arbitrary <*> pure mempty |
| 27 | 27 | ||
| 28 | magnetEncoding :: Magnet -> Bool | 28 | magnetEncoding :: Magnet -> IO () |
| 29 | magnetEncoding m = parseMagnet (renderMagnet m) == Just m | 29 | magnetEncoding m = parseMagnet (renderMagnet m) `shouldBe` Just m |
| 30 | 30 | ||
| 31 | spec :: Spec | 31 | spec :: Spec |
| 32 | spec = do | 32 | spec = do |