change tests to reflect new ddply behavior for empty data frames.

hadley · Oct 14, 2010 · 009b49f · 009b49f
1 parent 0d84bd5
commit 009b49f
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/inst/tests/test-empty.r b/inst/tests/test-empty.r
@@ -20,9 +20,8 @@ test_that("empty lists return an empty object", {
 
 test_that("empty data frames returns empty object", {
   df <- data.frame(x = numeric(0), a = numeric(0))
-  expect_that(ddply(df, "a", identity), equals(data.frame()))
-  expect_that(dlply(df, "a", identity), equals(list()))
-  expect_that(daply(df, "a", identity), equals(logical()))
+  expect_that(length(names(ddply(df, "a", identity))) > 0, is_true())
+  expect_that(nrow(ddply(df, "a", identity)), equals(0))
 })
 
 test_that("empty data frame results returns empty object", {
@@ -37,4 +36,4 @@ test_that("empty data frame results returns empty object", {
     daply(df, "a", function(x) NULL),
     throws_error("must have one or more dimensions"))
 
-})
+})