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
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