Skipping some tests on CRAN to avoid problems when R is compiled with…

… --disable-long-double. [ci skip]
wviechtb · Jun 22, 2017 · 5e3ef0d · 5e3ef0d
1 parent 643c5c4
commit 5e3ef0d
Show file tree

Hide file tree

Showing 5 changed files with 14 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: metafor
 Version: 2.0-0
-Date: 2017-06-21
+Date: 2017-06-22
 Title: Meta-Analysis Package for R
 Authors@R: person("Wolfgang", "Viechtbauer", email = "[email protected]", role = c("aut","cre"))
 Depends: R (>= 3.2.0), methods, Matrix

diff --git a/NEWS b/NEWS
@@ -1,4 +1,4 @@
-Changes in Version 2.0-0 (2017-06-21)
+Changes in Version 2.0-0 (2017-06-22)
 =====================================
 
    o added simulate() method for 'rma' objects; added MASS to 'Suggests'
@@ -79,7 +79,8 @@ Changes in Version 2.0-0 (2017-06-21)
 
    o improved output formatting
 
-   o added more tests
+   o added more tests (but disabled a few tests on CRAN to avoid some issues
+     when R is compiled with --disable-long-double)
 
    o some general code cleanup
 

diff --git a/tests/testthat/test_analysis_example_dersimonian2007.r b/tests/testthat/test_analysis_example_dersimonian2007.r
@@ -12,6 +12,8 @@ ci  <- c(  8,  17,   9,   94,  11,  352)
 
 test_that("results are correct for the CLASP example.", {
 
+   skip_on_cran()
+
    ### calculate log(OR)s and corresponding sampling variances
    dat <- escalc(measure="OR", ai=ai, n1i=n1i, ci=ci, n2i=n2i)
 

diff --git a/tests/testthat/test_analysis_example_jackson2014.r b/tests/testthat/test_analysis_example_jackson2014.r
@@ -4,6 +4,8 @@ context("Checking analysis example: jackson2014")
 
 test_that("confint() gives correct results for example 1 in Jackson et al. (2014).", {
 
+   skip_on_cran()
+
    ### example 1 ###
 
    yi <- c(0.0267, 0.8242, 0.3930, 2.4405, 2.1401, 1.2528, 2.4849, 0.3087,
@@ -42,6 +44,8 @@ test_that("confint() gives correct results for example 1 in Jackson et al. (2014
 
 test_that("confint() gives correct results for example 2 in Jackson et al. (2014).", {
 
+   skip_on_cran()
+
    ### example 2 ###
 
    yi <- c(0.54, 0.4, 0.64, 0.365, 0.835, 0.02, 0.12, 0.085, 1.18, 0.08, 0.18,

diff --git a/tests/testthat/test_analysis_example_law2016.r b/tests/testthat/test_analysis_example_law2016.r
@@ -17,6 +17,8 @@ contrmat <- function(trt1, trt2, ref) {
 
 test_that("results are correct for example 1.", {
 
+   skip_on_cran()
+
    ### example 1
 
    EG1 <- read.table(header=TRUE, as.is=TRUE, text="
@@ -88,6 +90,8 @@ test_that("results are correct for example 1.", {
 
 test_that("results are correct for example 2.", {
 
+   skip_on_cran()
+
    ### example 2
 
    EG2 <- read.table(header=TRUE, as.is=TRUE, text="