Force the locale before printing a result

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