From 7a8d35a8a27f4492fbb021e583f30f9a96f10a25 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Fri, 6 Feb 2026 19:04:27 +0100
Subject: Corrected a bug when mixing plain and group filters

---
 tests/sql_db.ml | 31 ++++++++++++++++++++++++++++++-
 1 file changed, 30 insertions(+), 1 deletion(-)

(limited to 'tests/sql_db.ml')

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
@@ -318,6 +318,34 @@ filters = [
     "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 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.
@@ -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
-- 
cgit v1.2.3