speed up tests

Author: rubenarslan

.travis.yml

@@ -13,4 +13,4 @@ r_github_packages:
   - rubenarslan/formr
 
 after_success:
-  - travis_wait 20 Rscript -e 'library(covr); codecov()'
+  - Rscript -e 'library(covr); codecov()'

tests/testthat/test_codebook.R

@@ -23,27 +23,6 @@ test_that("codebook generation", {
 })
 
 
-test_that("codebook generation via helper fun", {
-  data("bfi", package = 'codebook')
-  library(dplyr)
-  bfi <- bfi %>% select(-starts_with("BFIK_extra"),
-                       -starts_with("BFIK_agree"),
-                       -starts_with("BFIK_open"))
-  bfi$age <- 1:nrow(bfi)
-  wd <- getwd()
-  dir <- tempdir()
-  setwd(dir)
-  on.exit(setwd(wd))
-  saveRDS(bfi, "bfi.rds")
-  expect_message(md <- load_data_and_render_codebook("bfi.rds",
-"
-```{r}
-codebook(codebook_data)
-```
-"))
-})
-
-
 test_that("codebook generation without formr", {
   data("bfi", package = 'codebook')
   library(dplyr)
@@ -72,9 +51,11 @@ test_that("Codebook with retest reliabilities can be computed", {
   library(dplyr)
   bfi <- bfi %>% select(-starts_with("BFIK_extra"),
                        -starts_with("BFIK_agree"),
-                       -starts_with("BFIK_open"))
+                       -starts_with("BFIK_open"),
+                       -starts_with("BFIK_consc"))
   expect_warning(bfi2 <- bind_rows(bfi, bfi %>%
-                         mutate(created = created + lubridate::years(1))))
+                         mutate(created = created + lubridate::years(1),
+                                ended = ended + lubridate::years(1))))
 
 
 
@@ -87,9 +68,8 @@ test_that("Codebook with retest reliabilities can be computed", {
   on.exit(setwd(wd))
   expect_silent(md <- codebook(bfi2))
   figs <- list.files(paste0(dir, "/figure"))
-  expect_equal(length(figs), 8)
+  expect_equal(length(figs), 6)
   expect_match(md, "Scale: BFIK_neuro")
-  expect_match(md, "Scale: BFIK_consc")
   expect_match(md, "Missings per variable")
   expect_match(md, "56 completed rows")
 
@@ -108,11 +88,16 @@ test_that("Codebook with multilevel reliability", {
   bfi$age <- 1:nrow(bfi)
   fuzz <- function(x) { x + rnorm(length(x)) }
   expect_warning(bfi3 <- bind_rows(bfi,
-                 bfi %>% mutate(created = created + lubridate::days(1)),
-                 bfi %>% mutate(created = created + lubridate::days(2)),
-                 bfi %>% mutate(created = created + lubridate::days(3)),
-                 bfi %>% mutate(created = created + lubridate::days(4)),
-                 bfi %>% mutate(created = created + lubridate::days(5))
+                 bfi %>% mutate(created = created + lubridate::days(1),
+                                ended = ended + lubridate::days(1)),
+                 bfi %>% mutate(created = created + lubridate::days(2),
+                                ended = ended + lubridate::days(2)),
+                 bfi %>% mutate(created = created + lubridate::days(3),
+                                ended = ended + lubridate::days(3)),
+                 bfi %>% mutate(created = created + lubridate::days(4),
+                                ended = ended + lubridate::days(4)),
+                 bfi %>% mutate(created = created + lubridate::days(5),
+                                ended = ended + lubridate::days(5))
   ) %>% mutate_at(vars(matches("_\\d")), fuzz))
   bfi3 <- rescue_attributes(bfi3, bfi)
 
@@ -122,10 +107,32 @@ test_that("Codebook with multilevel reliability", {
   on.exit(setwd(wd))
   expect_warning(md <- codebook(bfi3))
   figs <- list.files(paste0(dir, "/figure"))
-  expect_equal(length(figs), 8)
+  expect_equal(length(figs), 7)
   expect_match(md, "Scale: BFIK_neuro")
   expect_match(md, "Missings per variable")
   expect_match(md, "168 completed rows")
 
   unlink(paste0(dir, "/figure"), recursive = TRUE)
 })
+
+
+
+test_that("codebook generation via helper fun", {
+  data("bfi", package = 'codebook')
+  library(dplyr)
+  bfi <- bfi %>% select(-starts_with("BFIK_extra"),
+                        -starts_with("BFIK_agree"),
+                        -starts_with("BFIK_open"))
+  bfi$age <- 1:nrow(bfi)
+  wd <- getwd()
+  dir <- tempdir()
+  setwd(dir)
+  on.exit(setwd(wd))
+  saveRDS(bfi, "bfi.rds")
+  expect_message(md <- load_data_and_render_codebook("bfi.rds",
+                                                     "
+```{r}
+codebook(codebook_data)
+```
+"))
+})