diff --git a/inst/tests/test-empty.r b/inst/tests/test-empty.r index 6442eeb8..487f3b2d 100644 --- 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")) -}) \ No newline at end of file +})