diff options
Diffstat (limited to 'tests/sql_db.ml')
| -rw-r--r-- | tests/sql_db.ml | 31 |
1 files changed, 30 insertions, 1 deletions
diff --git a/tests/sql_db.ml b/tests/sql_db.ml index 34f5b12..3c6a749 100644 --- a/tests/sql_db.ml +++ b/tests/sql_db.ml @@ -328,6 +328,34 @@ filters = [ ] ~expected:(Ok [ [| ImportDataTypes.Value.Integer 1 |] ]) +let filter_group_expression_and_group = + run_test "filter group and expression then group" + ~configuration: + {|[source] +name = "source_name" +file = "source_file" + +[sheet] +columns = [ + ":A", +] + +filters = [ + "max(:B, [], [:B]) <> :B", + ":B", + "max(:B, [], [:B]) <> :B", +] + +|} + ~input: + ImportDataTypes.Value. + [ + [ (0, Integer 1); (1, Integer 100) ]; + [ (0, Integer 2); (1, Integer 150) ]; + [ (0, Integer 3); (1, Integer 200) ]; + ] + ~expected:(Ok [ [| ImportDataTypes.Value.Integer 1 |] ]) + let test_suit = [ simple_extraction; @@ -340,6 +368,7 @@ let test_suit = filter_expression_and_group; filter_group_and_expression; filter_group_and_group; + filter_group_expression_and_group; ] -let tests = "sql_db" >::: test_suit +let tests = __FILE__ >::: test_suit |