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
   arbitrary = BlockIx <$> arbitrary <*> arbitrary <*> arbitrary
 
 spec :: Spec
-spec = return ()
\ No newline at end of file
+spec = do
+  describe "bucket" $ do
+    it "render to piece when it is full" $ property $ \ bkt ->
+      if full bkt then isJust (toPiece bkt)
\ No newline at end of file