From d9f20c7c779d65761ca16528135c30ec6957cd53 Mon Sep 17 00:00:00 2001 From: ntthung Date: Tue, 21 Apr 2020 10:58:52 +0800 Subject: [PATCH] Test everything for now. --- tests/testthat.R | 6 +++--- tests/testthat/test-non-standard-calls.R | 8 ++------ 2 files changed, 5 insertions(+), 9 deletions(-) diff --git a/tests/testthat.R b/tests/testthat.R index bd2ad0e..ee6f5b8 100644 --- a/tests/testthat.R +++ b/tests/testthat.R @@ -3,7 +3,7 @@ library(ldsr) # # force tests to be executed if in dev release which we define as ## having a sub-release, eg 0.9.15.5 is one whereas 0.9.16 is not -if (length(strsplit(packageDescription("ldsr")$Version, "\\.")[[1]]) > 3) { - Sys.setenv("RunAllTests" = "yes") -} +# if (length(strsplit(packageDescription("ldsr")$Version, "\\.")[[1]]) > 3) { +# Sys.setenv("RunAllTests" = "yes") +# } test_check("ldsr") diff --git a/tests/testthat/test-non-standard-calls.R b/tests/testthat/test-non-standard-calls.R index 0527323..7ed6cba 100644 --- a/tests/testthat/test-non-standard-calls.R +++ b/tests/testthat/test-non-standard-calls.R @@ -2,10 +2,6 @@ context('non-standard EM') u <- v <- t(NPpc[601:813]) -.runThisTest <- Sys.getenv("RunAllTests") == "yes" - -if (.runThisTest) { - test_that('Return-raw = TRUE works', { +test_that('Return-raw = TRUE works', { expect_is(LDS_reconstruction(NPannual, u, v, start.year = 1800, num.restarts = 2, return.raw = TRUE), "list") - }) -} +})