-- HUnit Tests
+test_octet_from_int1 :: Test
test_octet_from_int1 =
TestCase $ assertEqual "octet_from_int 128 should parse as 10000000" oct1 (octet_from_int 128)
where
oct1 = Octet One Zero Zero Zero Zero Zero Zero Zero
+octet_tests :: [Test]
octet_tests = [ test_octet_from_int1 ]