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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
(* $Id: test.ml,v 1.2 2006/02/23 15:24:25 rich Exp $ *)
open Printf
open Csv
let do_testcsv filename expected =
let csv = load filename in
if csv <> expected then (
printf "input file: %s\n" filename;
printf "Csv library produced:\n";
print csv;
printf "Expected:\n";
print expected;
failwith "failed"
)
else ()
let () =
do_testcsv
"testcsv1.csv"
[ [ "This is a test\nwith commas,,,,,\n\nand carriage returns." ] ]
let () =
do_testcsv
"testcsv2.csv"
[ [ "Normal field"; "Quoted field"; "Quoted field with \"\" quotes" ] ]
let () =
do_testcsv
"testcsv3.csv"
[ [ "" ];
[ ""; "" ];
[ ""; ""; "" ];
[ ""; ""; ""; "" ];
[ ""; ""; ""; ""; "" ] ]
let () =
do_testcsv
"testcsv4.csv"
[]
let () =
do_testcsv
"testcsv5.csv"
[ [ "This is a test\nwith commas,,,,,\n\nand carriage returns.";
"a second field"; "a third field" ];
[ "a fourth field on a new line" ] ]
let () =
do_testcsv
"testcsv6.csv"
[ [ "This is a test\nwith commas,,,,,\n\nand carriage returns\nand \000";
"a second field"; "a third field" ];
[ "a fourth field on a new line" ] ]
let () =
let csv1 = [ [ "a"; "b"; "c"; ""; "" ];
[ "f"; "g"; "h"; "i"; "" ];
[ "" ];
[ ] ] in
let csv2 = trim ~top:false ~left:false ~right:true ~bottom:true csv1 in
assert (compare csv1 csv2 = 0)
let () =
let csv1 = [ [ "a"; "b"; "c"; ""; "" ];
[ "f"; "g"; "h"; "i"; "" ];
[ "" ];
[ ] ] in
let csv2 = [ [ "a"; "b"; "c"; "d"; "" ];
[ "f"; "g"; "h"; "i"; "" ];
[ "" ];
[ ] ] in
assert (compare csv1 csv2 < 0)
;;
print_endline "All tests succeeded."
|
