+ Add tests for bitfield.

1 files changed, 5 insertions, 0 deletions

diff --git a/src/Data/Bitfield.hs b/src/Data/Bitfield.hs
index 3424a0c6..a1033ff2 100644
--- a/src/Data/Bitfield.hs
+++ b/src/Data/Bitfield.hs
@@ -19,6 +19,7 @@ module Data.Bitfield
        , haveAll, haveNone, have
 
          -- * Query
+       , Data.Bitfield.null
        , haveCount, totalCount, completeness
        , findMin, findMax
 
@@ -100,6 +101,10 @@ have ix Bitfield {..}
     Query
 -----------------------------------------------------------------------}
 
+-- | Test if bitifield have no one index: peer do not have anything.
+null :: Bitfield -> Bool
+null Bitfield {..} = S.null bfSet
+
 -- | Count of peer have pieces.
 haveCount :: Bitfield -> PieceCount
 haveCount = S.size . bfSet