diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-06-06 21:48:30 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-06-06 21:48:30 +0400 |
| commit | 99e771564a1433029ce8a8ce4db8282fc217a1c4 (patch) | |
| tree | 2b6c80c6bec1f46841b7b881e929cfd0119f95d6 /tests/Encoding.hs | |
| parent | 638ffee180b444c6c8d769fa8c95d151a44b7962 (diff) | |
+ Add some tests.
Diffstat (limited to 'tests/Encoding.hs')
| -rw-r--r-- | tests/Encoding.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Encoding.hs b/tests/Encoding.hs index 0b678a25..8afd3625 100644 --- a/tests/Encoding.hs +++ b/tests/Encoding.hs | |||
| @@ -35,7 +35,7 @@ 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 <$> positive <*> arbitrary | 38 | arbitrary = mkBitfield <$> (succ <$> positive) <*> arbitrary |
| 39 | 39 | ||
| 40 | instance Arbitrary PortNumber where | 40 | instance Arbitrary PortNumber where |
| 41 | arbitrary = fromIntegral <$> (arbitrary :: Gen Word16) | 41 | arbitrary = fromIntegral <$> (arbitrary :: Gen Word16) |