diff options
Diffstat (limited to 'tests/importCSV_test.ml')
| -rw-r--r-- | tests/importCSV_test.ml | 15 |
1 files changed, 9 insertions, 6 deletions
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 |