From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 14 Apr 2017 03:59:57 +0000 (-0400)
Subject: Rename the "octet_from_int" test; that function is gone.
X-Git-Tag: 0.4.0~17
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=3e3f98ade03919d30e1dca739d14eec96a6bb990;p=hath.git

Rename the "octet_from_int" test; that function is gone.
---

diff --git a/src/Octet.hs b/src/Octet.hs
index 248b339..34f9d4f 100644
--- a/src/Octet.hs
+++ b/src/Octet.hs
@@ -154,7 +154,7 @@ instance Read Octet where
 octet_tests :: TestTree
 octet_tests =
   testGroup "Octet Tests" [
-    test_octet_from_int1,
+    test_octet_to_enum1,
     test_octet_mask1,
     test_octet_mask2 ]
 
@@ -190,11 +190,11 @@ prop_read_show_inverses =
 
 
 -- HUnit Tests
-test_octet_from_int1 :: TestTree
-test_octet_from_int1 =
+test_octet_to_enum1 :: TestTree
+test_octet_to_enum1 =
   testCase desc $ actual @?= expected
   where
-    desc = "octet_from_int 128 should parse as 10000000"
+    desc = "toEnum 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 :: Octet