From 009b49f3f163d0dd205496ac834b29d40c24b110 Mon Sep 17 00:00:00 2001 From: homer Date: Wed, 13 Oct 2010 17:44:16 -0700 Subject: [PATCH] change tests to reflect new ddply behavior for empty data frames. --- inst/tests/test-empty.r | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) 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 +})