secp256k1

commit 581dd31fde3b38a6f0c360b377d3bff0dc9e0d9e
parent 061b9eb17ef843266483f2a4c2af6f3058262e53
Author: Jared Tobin <jared@jtobin.io>
Date:   Wed,  9 Oct 2024 15:45:44 +0400

test: s/parse/parse_point

Diffstat:
M
test/Main.hs
 | 
24
++++++++++++------------

1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/test/Main.hs b/test/Main.hs
@@ -12,34 +12,34 @@ main = defaultMain units
 
 units :: TestTree
 units = testGroup "unit tests" [
-    parse_tests
+    parse_point_tests
   , add_tests
   , dub_tests
   ]
 
-parse_tests :: TestTree
-parse_tests = testGroup "parse tests" [
-    parse_test_p
-  , parse_test_q
-  , parse_test_r
+parse_point_tests :: TestTree
+parse_point_tests = testGroup "parse_point tests" [
+    parse_point_test_p
+  , parse_point_test_q
+  , parse_point_test_r
   ]
 
 render :: Show a => a -> String
 render = filter (`notElem` ("\"" :: String)) . show
 
 -- XX replace these with something non-stupid
-parse_test_p :: TestTree
-parse_test_p = testCase (render p_hex) $ case parse p_hex of
+parse_point_test_p :: TestTree
+parse_point_test_p = testCase (render p_hex) $ case parse_point p_hex of
   Nothing -> assertFailure "bad parse"
   Just p  -> assertEqual mempty p_pro p
 
-parse_test_q :: TestTree
-parse_test_q = testCase (render q_hex) $ case parse q_hex of
+parse_point_test_q :: TestTree
+parse_point_test_q = testCase (render q_hex) $ case parse_point q_hex of
   Nothing -> assertFailure "bad parse"
   Just q  -> assertEqual mempty q_pro q
 
-parse_test_r :: TestTree
-parse_test_r = testCase (render r_hex) $ case parse r_hex of
+parse_point_test_r :: TestTree
+parse_point_test_r = testCase (render r_hex) $ case parse_point r_hex of
   Nothing -> assertFailure "bad parse"
   Just r  -> assertEqual mempty r_pro r