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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
module Expression = ImportExpression.T
module Path = ImportDataTypes.Path
open Test_migration
let nested_group () =
let expected =
Error
"in field \"sheet\":\n\
\ in field \"columns\":\n\
\ while decoding a list:\n\
\ element 0:\n\
\ A group function cannot contains another group function, but got\n\
\ \"max(:A, [counter([:A], [:A])], [])\" \n"
and result =
ConfLoader.load'
{|[source]
name = "source_name"
file = "source_file"
[sheet]
columns = [
"max(:A, [counter([:A], [:A])], [])",
]|}
in
Alcotest.(check (result Test_migration.syntax string))
"duplicate" expected result
let test_suit =
[
( "parse_extern" >:: fun _ ->
let toml = Otoml.Parser.from_file "configuration/simple.toml" in
let toml = ImportConf.t_of_toml toml in
match toml with
| Error s -> raise (Failure s)
| Ok result ->
let expected =
ImportConf.Syntax.Extern.
{
target = { file = ""; tab = 1; name = "target" };
extern_key = Literal "_B";
intern_key =
Function
( "concat",
[
Path { alias = None; column = 1 };
Path { alias = None; column = 2 };
] );
match_rule = None;
allow_missing = true;
}
in
ignore
@@ Alcotest.check
(Alcotest.list Test_migration.extern_testable)
"" [ expected ] result.externals );
( "parse_columns" >:: fun _ ->
let toml = Otoml.Parser.from_file "configuration/simple.toml" in
let toml = ImportConf.t_of_toml toml in
match toml with
| Error s -> raise (Failure s)
| Ok result ->
let open Path in
let open Expression in
let expected =
[
Function
( "if",
[
Path { alias = Some "target"; column = 1 };
Path { alias = None; column = 2 };
Literal "free' text";
] );
Window
( Counter,
[ Path { alias = Some "target"; column = 1 } ],
[ Path { alias = Some "target"; column = 1 } ] );
]
in
Alcotest.check
(Alcotest.list Test_migration.expression_testable)
"" expected result.columns );
( "parse_csv" >:: fun _ ->
let toml = Otoml.Parser.from_file "configuration/example_csv.toml" in
let toml = ImportConf.t_of_toml toml in
ignore toml );
("nested group", `Quick, nested_group);
]
let tests = "configuration_toml" >::: test_suit
|
