Corrected a bug when mixing plain and group filtersmain

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