Merge pull request #3 from mattdowle/master

tolerance: expect_identical => expect_equal
gdemin · Jan 2, 2019 · bb1e232 · bb1e232
2 parents 67e16d9 + 3fa9a82
commit bb1e232
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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)