diff options
Diffstat (limited to 'tests/importCSV_test.ml')
| -rw-r--r-- | tests/importCSV_test.ml | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/tests/importCSV_test.ml b/tests/importCSV_test.ml index fc6d545..8d83688 100644 --- a/tests/importCSV_test.ml +++ b/tests/importCSV_test.ml @@ -3,11 +3,20 @@ open Test_migration let assert_equal = Alcotest.(check int "") +let float_repr = + "float_repr" >:: fun () -> + let () = + Alcotest.(check string) + "Float repr" "3873921.620000" + ImportCSV.DataType.(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 name" >:: fun _ -> + ("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 @@ -17,6 +26,7 @@ let test_suit = done in () ); + float_repr; ] let tests = "importCSV_test" >::: test_suit |