Skip to content

Commit

Permalink
fixing test v3
Browse files Browse the repository at this point in the history
  • Loading branch information
philipdelff committed Dec 23, 2023
1 parent a77f581 commit ce1abc2
Show file tree
Hide file tree
Showing 2 changed files with 24 additions and 1 deletion.
Binary file modified tests/testthat/testReference/NMdataConf_01.rds
Binary file not shown.
25 changes: 24 additions & 1 deletion tests/testthat/test_NMdataConf.R
Original file line number Diff line number Diff line change
@@ -1,5 +1,7 @@
context("NMdataConf")

NMdataConf(reset=TRUE)

test_that("defaults",{

fileRef <- "testReference/NMdataConf_01.rds"
Expand All @@ -8,6 +10,9 @@ test_that("defaults",{
defaults <- NMdataConf()
defaults$as.fun <- NULL
defaults$file.mod <- NULL
defaults$file.cov <- NULL
defaults$file.ext <- NULL
defaults$file.phi <- NULL
defaults$modelname <- NULL

expect_equal_to_reference(defaults,fileRef)
Expand All @@ -22,9 +27,15 @@ test_that("reset",{

defaults$as.fun <- NULL
defaults$file.mod <- NULL
defaults$file.cov <- NULL
defaults$file.ext <- NULL
defaults$file.phi <- NULL
defaults$modelname <- NULL
defaults2$as.fun <- NULL
defaults2$file.mod <- NULL
defaults2$file.cov <- NULL
defaults2$file.ext <- NULL
defaults2$file.phi <- NULL
defaults2$modelname <- NULL


Expand Down Expand Up @@ -71,9 +82,15 @@ test_that("change fun in globalenv does not affect NMdataConf()",{

defaults$as.fun <- NULL
defaults$file.mod <- NULL
defaults$file.cov <- NULL
defaults$file.ext <- NULL
defaults$file.phi <- NULL
defaults$modelname <- NULL
defaults2$as.fun <- NULL
defaults2$file.mod <- NULL
defaults2$file.cov <- NULL
defaults2$file.ext <- NULL
defaults2$file.phi <- NULL
defaults2$modelname <- NULL


Expand Down Expand Up @@ -108,12 +125,18 @@ test_that("change fun in globalenv does not affect NMdataConf()",{

defaults$as.fun <- NULL
defaults$file.mod <- NULL
defaults$file.cov <- NULL
defaults$file.ext <- NULL
defaults$file.phi <- NULL
defaults$modelname <- NULL

defaults2$as.fun <- NULL
defaults2$file.mod <- NULL
defaults2$file.cov <- NULL
defaults2$file.ext <- NULL
defaults2$file.phi <- NULL
defaults2$modelname <- NULL


expect_equal(defaults,defaults2)
})

Expand Down

0 comments on commit ce1abc2

Please sign in to comment.