diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-13 06:02:22 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-13 06:02:22 +0400 |
| commit | 085d3368ad94a4e1a413a305876b829ffdcefbcf (patch) | |
| tree | da07d8e6772d2a44329120a8dd6d6f1c084753a3 | |
| parent | 61cb316ff3eeceaaaf65da3a0c902537219fe146 (diff) | |
Add a test for block bucket
| -rw-r--r-- | tests/Network/BitTorrent/Exchange/BlockSpec.hs | 5 |
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 | ||
| 15 | spec :: Spec | 15 | spec :: Spec |
| 16 | spec = return () \ No newline at end of file | 16 | spec = 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 | ||