From 8b8b730d3ba98d6c9e4e6274844641043b5fefbb Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 17 Mar 2025 09:11:25 +0100 Subject: Moved the syntax module in its own library --- tests/importCSV_test.ml | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'tests/importCSV_test.ml') diff --git a/tests/importCSV_test.ml b/tests/importCSV_test.ml index 8d83688..748c58b 100644 --- a/tests/importCSV_test.ml +++ b/tests/importCSV_test.ml @@ -1,4 +1,3 @@ -open ImportCSV open Test_migration let assert_equal = Alcotest.(check int "") @@ -8,19 +7,23 @@ let float_repr = let () = Alcotest.(check string) "Float repr" "3873921.620000" - ImportCSV.DataType.(to_string "C" (Float 3873921.62)) + ImportDataTypes.Value.(to_string "C" (Float 3873921.62)) in () let test_suit = [ - ("Column A" >:: fun () -> assert_equal 1 (Csv.column_of_string "A")); - ("Column a" >:: fun () -> assert_equal 1 (Csv.column_of_string "a")); + ( "Column A" >:: fun () -> + assert_equal 1 (ImportDataTypes.Path.column_of_string "A") ); + ( "Column a" >:: fun () -> + assert_equal 1 (ImportDataTypes.Path.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 + let column_name = ImportDataTypes.Path.column_to_string i in + let column_index = + ImportDataTypes.Path.column_of_string column_name + in assert_equal i column_index done -- cgit v1.2.3