diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Network/BitTorrent/Core/NodeSpec.hs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/Network/BitTorrent/Core/NodeSpec.hs b/tests/Network/BitTorrent/Core/NodeSpec.hs new file mode 100644 index 00000000..b3bdf134 --- /dev/null +++ b/tests/Network/BitTorrent/Core/NodeSpec.hs | |||
@@ -0,0 +1,19 @@ | |||
1 | module Network.BitTorrent.Core.NodeSpec (spec) where | ||
2 | import Control.Applicative | ||
3 | import Test.Hspec | ||
4 | import Test.QuickCheck | ||
5 | |||
6 | import Network.BitTorrent.Core.Node | ||
7 | import Network.BitTorrent.Core.PeerAddrSpec () | ||
8 | |||
9 | instance Arbitrary NodeId where | ||
10 | arbitrary = undefined | ||
11 | |||
12 | instance Arbitrary a => Arbitrary (NodeAddr a) where | ||
13 | arbitrary = NodeAddr <$> arbitrary <*> arbitrary | ||
14 | |||
15 | instance Arbitrary a => Arbitrary (NodeInfo a) where | ||
16 | arbitrary = NodeInfo <$> arbitrary <*> arbitrary | ||
17 | |||
18 | spec :: Spec | ||
19 | spec = return () \ No newline at end of file | ||