587 example

#587
tomjaguarpaw · Jan 26, 2024 · a9e6fe2 · a9e6fe2
1 parent 2947b9c
commit a9e6fe2
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/Test/Test.hs b/Test/Test.hs
@@ -632,6 +632,15 @@ testStringArrayAggregateOrderedDistinct = it "" $ q `selectShouldReturnSorted` e
                    ]
         sortedData = L.sortBy (Ord.comparing snd) table7data
 
+testStringArrayAggregateOrderedDistinct2 :: Test
+testStringArrayAggregateOrderedDistinct2 = it "" $ q `selectShouldReturnSorted` expected
+  where q = O.aggregateOrdered
+              (O.asc snd)
+              (O.distinctAggregator (PP.p2 (O.groupBy, O.arrayAgg_)))
+              table7Q
+        expected :: [(String, [String])]
+        expected = [("bar",["a"]),("baz",["b"]),("foo",["c"])]
+
 -- See
 --
 --     https://github.com/tomjaguarpaw/haskell-opaleye/pull/578#issuecomment-1782638274
@@ -1574,6 +1583,7 @@ main = do
         testMultipleAggregateOrdered
         testStringArrayAggregateOrdered
         testStringArrayAggregateOrderedDistinct
+        testStringArrayAggregateOrderedDistinct2
         testStringArrayAggregateOrderedDistinctDuplicateFields
         testDistinctAndAggregate
         testDoubleAggregate