X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FOctet.hs;h=fa004c5085df4849a4b2ff44033106d10fd90193;hb=13b975060857b8acd64b7231074dc4a0c0a2915a;hp=55f075e8a5810247dc9d7df2342b741ea6f82d30;hpb=eee156f562f9c1c1194a67cef12f146304d88ce9;p=hath.git diff --git a/src/Octet.hs b/src/Octet.hs index 55f075e..fa004c5 100644 --- a/src/Octet.hs +++ b/src/Octet.hs @@ -4,11 +4,11 @@ module Octet ( octet_tests ) where -import Test.QuickCheck ( Gen ) -- Not re-exported by tasty import Test.Tasty ( TestTree, testGroup ) import Test.Tasty.HUnit ( (@?=), testCase ) import Test.Tasty.QuickCheck ( Arbitrary(..), + Gen, Property, (==>), testProperty ) @@ -195,7 +195,7 @@ test_octet_from_int1 = where desc = "octet_from_int 128 should parse as 10000000" expected = Octet B.One B.Zero B.Zero B.Zero B.Zero B.Zero B.Zero B.Zero - actual = toEnum 128 + actual = toEnum 128 :: Octet test_octet_mask1 :: TestTree @@ -204,7 +204,7 @@ test_octet_mask1 = where desc = "The network bits of 255/4 should equal 240" expected = toEnum 240 :: Octet - actual = apply_mask (toEnum 255) Four B.Zero + actual = apply_mask (toEnum 255) Four B.Zero :: Octet test_octet_mask2 :: TestTree @@ -213,4 +213,4 @@ test_octet_mask2 = where desc = "The network bits of 255/1 should equal 128" expected = toEnum 128 :: Octet - actual = apply_mask (toEnum 255) Maskbits.One B.Zero + actual = apply_mask (toEnum 255) Maskbits.One B.Zero :: Octet