From 48aa732ada10d1a2b555dacec65065f9787504c3 Mon Sep 17 00:00:00 2001 From: karl Date: Tue, 16 Jun 2015 16:28:13 +0200 Subject: [PATCH] changed the testthat_results data frame column "skipped" from numeric to logical --- R/test-results.r | 2 +- tests/testthat/test-test_dir.r | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/R/test-results.r b/R/test-results.r index e839b73a1..485d901bf 100644 --- a/R/test-results.r +++ b/R/test-results.r @@ -31,7 +31,7 @@ sumarize_one_test_results <- function(test) { context <- if (length(test$context) > 0) test$context else '' res <- data.frame(file = test$file, context = context, test = test$test, - nb = nb_tests, failed = nb_failed, skipped = nb_skipped, error = error, + nb = nb_tests, failed = nb_failed, skipped = as.logical(nb_skipped), error = error, user = test$user, system = test$system, real = test$real, stringsAsFactors = FALSE) diff --git a/tests/testthat/test-test_dir.r b/tests/testthat/test-test_dir.r index 214ad62c4..031e4074b 100644 --- a/tests/testthat/test-test_dir.r +++ b/tests/testthat/test-test_dir.r @@ -23,7 +23,8 @@ test_that('test_dir()', { "no failure", "helper test"), nb = c(2L, 2L, 2L, 0L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 1L, 1L, 2L, 2L, 1L), failed = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 0L), - skipped = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), + skipped = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, + FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), error = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE), stringsAsFactors = FALSE)