tests/importCSV_test.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

open ImportCSV
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 () ->
      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

          assert_equal i column_index
        done
      in
      () );
    float_repr;
  ]

let tests = "importCSV_test" >::: test_suit