diff --git a/tests/testthat/test_verbs.R b/tests/testthat/test_verbs.R index e053baa..6b04807 100644 --- a/tests/testthat/test_verbs.R +++ b/tests/testthat/test_verbs.R @@ -79,8 +79,8 @@ mt_dt = as.data.table(mtcars) res = dt_summarize(mtcars, (new_var1) := eval(expr1), (new_var2) := eval(expr2), by = am) res2 = dt_summarize(mt_dt, (new_var1) := eval(expr1), (new_var2) := eval(expr2), by = am) res3 = mt_dt[, list(agg = mean(mpg), agg2 = mean(hp)), by = am] -expect_identical(res3, res) -expect_identical(res3, res2) +expect_equal(res3, res) +expect_equal(res3, res2) diff --git a/tests/testthat/tests.R b/tests/testthat/tests.R index 65410ad..df6db8b 100644 --- a/tests/testthat/tests.R +++ b/tests/testthat/tests.R @@ -166,5 +166,5 @@ new_var2 = "agg2" res = take(mtcars, (new_var) := eval(expr1), (new_var2) := eval(expr2), by = am) res2 = take(mt_dt, (new_var) := eval(expr1), (new_var2) := eval(expr2), by = am) res3 = mt_dt[, list(agg = mean(mpg), agg2 = mean(hp)), by = am] -expect_identical(res3, res) -expect_identical(res3, res2) +expect_equal(res3, res) +expect_equal(res3, res2)