blob: 135544557d7b2695c8490f725c91932df274cc44 (
plain)
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
38
39
40
41
42
43
44
|
{-# OPTIONS -fno-warn-orphans #-}
module Data.Torrent.MagnetSpec (spec) where
import Control.Applicative
import Data.Maybe
import Data.Monoid
import Test.Hspec
import Test.QuickCheck
import Test.QuickCheck.Instances ()
import Network.URI
import Data.Torrent.Magnet
import Data.Torrent.InfoHashSpec ()
instance Arbitrary URIAuth where
arbitrary = URIAuth <$> arbitrary <*> arbitrary <*> arbitrary
instance Arbitrary URI where
arbitrary
= pure $ fromJust $ parseURI "http://ietf.org/1737.txt?a=1&b=h#123"
instance Arbitrary Magnet where
arbitrary = Magnet <$> arbitrary <*> arbitrary
<*> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary
<*> arbitrary <*> arbitrary <*> pure mempty
magnetEncoding :: Magnet -> IO ()
magnetEncoding m = parseMagnet (renderMagnet m) `shouldBe` Just m
spec :: Spec
spec = do
describe "Magnet" $ do
it "properly encoded" $ property $ magnetEncoding
it "parse base32" $ do
let magnet = "magnet:?xt=urn:btih:CT76LXJDDCH5LS2TUHKH6EUJ3NYKX4Y6"
let ih = "CT76LXJDDCH5LS2TUHKH6EUJ3NYKX4Y6"
parseMagnet magnet `shouldBe` Just (nullMagnet ih)
it "parse base16" $ do
let magnet = "magnet:?xt=urn:btih:0123456789abcdef0123456789abcdef01234567"
let ih = "0123456789abcdef0123456789abcdef01234567"
parseMagnet magnet `shouldBe` Just (nullMagnet ih)
|
