diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-06-07 00:54:09 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-06-07 00:54:09 +0400 |
| commit | 65282d73004fb45b502a5e9bf50359159f6179de (patch) | |
| tree | 5ac07d389d1280ea86b2d97540b7841ea1385c88 /tests/Encoding.hs | |
| parent | 50454e4cc0af670a3ad68efd828aa505811ed28a (diff) | |
+ Add tests for bitfield.
Diffstat (limited to 'tests/Encoding.hs')
| -rw-r--r-- | tests/Encoding.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/Encoding.hs b/tests/Encoding.hs index 8afd3625..a599cd39 100644 --- a/tests/Encoding.hs +++ b/tests/Encoding.hs | |||
| @@ -35,7 +35,8 @@ instance Arbitrary Block where | |||
| 35 | arbitrary = Block <$> positive <*> positive <*> arbitrary | 35 | arbitrary = Block <$> positive <*> positive <*> arbitrary |
| 36 | 36 | ||
| 37 | instance Arbitrary Bitfield where | 37 | instance Arbitrary Bitfield where |
| 38 | arbitrary = mkBitfield <$> (succ <$> positive) <*> arbitrary | 38 | arbitrary = mkBitfield <$> (succ . min 1000 <$> positive) |
| 39 | <*> arbitrary | ||
| 39 | 40 | ||
| 40 | instance Arbitrary PortNumber where | 41 | instance Arbitrary PortNumber where |
| 41 | arbitrary = fromIntegral <$> (arbitrary :: Gen Word16) | 42 | arbitrary = fromIntegral <$> (arbitrary :: Gen Word16) |