summaryrefslogtreecommitdiff
path: root/tests/Network/BitTorrent/Exchange
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Network/BitTorrent/Exchange')
-rw-r--r--tests/Network/BitTorrent/Exchange/BlockSpec.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/Exchange/BlockSpec.hs b/tests/Network/BitTorrent/Exchange/BlockSpec.hs
index 0712a21d..158a30b4 100644
--- a/tests/Network/BitTorrent/Exchange/BlockSpec.hs
+++ b/tests/Network/BitTorrent/Exchange/BlockSpec.hs
@@ -13,4 +13,7 @@ instance Arbitrary BlockIx where
13 arbitrary = BlockIx <$> arbitrary <*> arbitrary <*> arbitrary 13 arbitrary = BlockIx <$> arbitrary <*> arbitrary <*> arbitrary
14 14
15spec :: Spec 15spec :: Spec
16spec = return () \ No newline at end of file 16spec = do
17 describe "bucket" $ do
18 it "render to piece when it is full" $ property $ \ bkt ->
19 if full bkt then isJust (toPiece bkt) \ No newline at end of file