From 8e012f4804ecf1665819e761283120a3c0e73643 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 17 Jan 2025 20:48:43 +0100 Subject: Switched from OUnit to alcotest --- tests/importCSV_test.ml | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) (limited to 'tests/importCSV_test.ml') diff --git a/tests/importCSV_test.ml b/tests/importCSV_test.ml index bc21992..fc6d545 100644 --- a/tests/importCSV_test.ml +++ b/tests/importCSV_test.ml @@ -1,26 +1,19 @@ -open OUnit2 open ImportCSV +open Test_migration + +let assert_equal = Alcotest.(check int "") let test_suit = [ - ( "Column A" >:: fun _ -> - assert_equal - ~printer:(fun i -> Printf.sprintf "%d (%s)" i (Csv.column_to_string i)) - 1 (Csv.column_of_string "A") ); - ( "Column a" >:: fun _ -> - assert_equal - ~printer:(fun i -> Printf.sprintf "%d (%s)" i (Csv.column_to_string i)) - 1 (Csv.column_of_string "a") ); + ("Column A" >:: fun _ -> assert_equal 1 (Csv.column_of_string "A")); + ("Column a" >:: fun _ -> assert_equal 1 (Csv.column_of_string "a")); ( "Column name" >:: fun _ -> let () = for i = 1 to 1_000 do let column_name = Csv.column_to_string i in let column_index = Csv.column_of_string column_name in - assert_equal - ~printer:(fun i -> - Printf.sprintf "%d (%s)" i (Csv.column_to_string i)) - i column_index + assert_equal i column_index done in () ); -- cgit v1.2.3