diff --git a/tests/testthat/test-modelSelection-enum.R b/tests/testthat/test-modelSelection-enum.R index 801cd0b..0062da8 100644 --- a/tests/testthat/test-modelSelection-enum.R +++ b/tests/testthat/test-modelSelection-enum.R @@ -79,7 +79,7 @@ patrick::with_parameters_test_that( pprobs <- postProb(fit) expect_true(any(pprobs$modelid[1:5] == "3,4,6,7")) }, - test_name=c("uniform", "binomial", "betabinomial", "complex"), + .test_name=c("uniform", "binomial", "betabinomial", "complex"), pDelta=c(modelunifprior(), modelbinomprior(p=0.5), modelbbprior(alpha.p=1, beta.p=1), modelcomplexprior(c=1)) ) diff --git a/tests/testthat/test-msfit-methods.R b/tests/testthat/test-msfit-methods.R index f1c68b3..027d005 100644 --- a/tests/testthat/test-msfit-methods.R +++ b/tests/testthat/test-msfit-methods.R @@ -41,5 +41,5 @@ patrick::with_parameters_test_that( expect_equal(pprobs[1:5,3], pprobs_cut[,3], tolerance=tolerance) }, method=c("norm", "exact"), - test_name=method + .test_name=method ) diff --git a/tests/testthat/test-mspriorspec.R b/tests/testthat/test-mspriorspec.R index cca1955..83ad0e4 100644 --- a/tests/testthat/test-mspriorspec.R +++ b/tests/testthat/test-mspriorspec.R @@ -12,6 +12,6 @@ patrick::with_parameters_test_that( expect_equal(as.double(pr_taustd@priorPars['taustd']), 2) expect_equal(as.double(pr_tau@priorPars['tau']), .3) }, - test_name=c("momprior", "zellnerprior", "normalidprior", "groupmomprior", "groupzellnerprior"), + .test_name=c("momprior", "zellnerprior", "normalidprior", "groupmomprior", "groupzellnerprior"), priorfun=c(momprior, zellnerprior, normalidprior, groupmomprior, groupzellnerprior) ) diff --git a/tests/testthat/test-nlpMarginal-groups.R b/tests/testthat/test-nlpMarginal-groups.R index cd02ad9..9cabcc2 100644 --- a/tests/testthat/test-nlpMarginal-groups.R +++ b/tests/testthat/test-nlpMarginal-groups.R @@ -47,7 +47,7 @@ patrick::with_parameters_test_that( expect_equal(ans_max, ans_max_group) expect_equal(ans_all, ans_all_group) }, - test_name=c("mom", "imom", "emom", "zellner", "normalid"), + .test_name=c("mom", "imom", "emom", "zellner", "normalid"), pCoef=c(momprior(tau=0.35), imomprior(tau=0.35), emomprior(tau=0.35), zellnerprior(tau=0.35), normalidprior(tau=0.35)) )