From 37556ab070abcbf87a1a822c95aeccf19dade687 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Wed, 22 Jan 2025 13:43:50 +0100 Subject: Force the locale before printing a result --- tests/importCSV_test.ml | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'tests/importCSV_test.ml') 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 -- cgit v1.2.3