Prevent number for beiing escaped as string when generating the csv filemain

1 files changed, 13 insertions, 0 deletions

diff --git a/tests/importCSV_test.ml b/tests/importCSV_test.ml
index 748c58b..c5d017a 100644
--- a/tests/importCSV_test.ml
+++ b/tests/importCSV_test.ml
@@ -11,6 +11,18 @@ let float_repr =
   in
   ()
 
+let significant_zero =
+  "leading 0" >:: fun () ->
+  Alcotest.(check string)
+    "00123" "=\"00123\""
+    ImportDataTypes.Value.(to_string "C" (Content "00123"));
+  Alcotest.(check string)
+    "0.0123" "0.0123"
+    ImportDataTypes.Value.(to_string "C" (Content "0.0123"));
+  Alcotest.(check string)
+    "00123 A" "00123 A"
+    ImportDataTypes.Value.(to_string "C" (Content "00123 A"))
+
 let test_suit =
   [
     ( "Column A" >:: fun () ->
@@ -30,6 +42,7 @@ let test_suit =
       in
       () );
     float_repr;
+    significant_zero;
   ]
 
 let tests = "importCSV_test" >::: test_suit