Fix test

duckdb · Sep 6, 2023 · 6be4b2c · 6be4b2c
1 parent 53ed05c
commit 6be4b2c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/testthat/test_relational.R b/tests/testthat/test_relational.R
@@ -479,7 +479,8 @@ test_that("rel aggregate with no groups but a sum over a column, sums the column
 test_that("rel aggregate with groups and aggregate function works", {
   rel_a <- rel_from_df(con, data.frame(a = c(1, 2, 5, 5), b = c(3, 3, 4, 4)))
   aggrs <- list(sum = expr_function("sum", list(expr_reference("a"))))
-  res <- rel_aggregate(rel_a, list(expr_reference("b")), aggrs)
+  rel_b <- rel_aggregate(rel_a, list(expr_reference("b")), aggrs)
+  res <- rel_order(rel_b, list(expr_reference("b")))
   rel_df <- rel_to_altrep(res)
   expected_result <- data.frame(b = c(3, 4), sum = c(3, 10))
   expect_equal(rel_df, expected_result)