Renaming and annotating of test files

tests/testthat/testAIC.R

@@ -1,5 +1,4 @@
-context("testAIC")
-test_that("Testof the impact of the three information criteria", {
+test_that("Test of the impact of the three information criteria", {
   skip_on_cran()
 
   ### test on microarray data ######################

tests/testthat/test_bmdcalc.R → tests/testthat/test_windows_bmdcalc.R

@@ -1,4 +1,3 @@
-context("bmdcalc_BMD")
 test_that("bmdcalc works as expected on the BMD results",
   {
     skip_on_cran()

tests/testthat/test_drcfit.R → tests/testthat/test_windows_drcfit.R

@@ -1,4 +1,3 @@
-context("drcfit_model")
 test_that("drcfit works as expected on the model results",
   {
     skip_on_cran()

tests/testthat/test_itemselect.R → tests/testthat/test_windows_itemselect.R

@@ -1,4 +1,3 @@
-context("itemselect_count")
 test_that("itemselect works as expected on the number of selected probes",
   {
     skip_on_cran()

tests/testthat/testbmdcalc.R

@@ -1,5 +1,4 @@
-context("testbmdcalc")
-test_that("testbmdcalc", {
+test_that("test the impact of ratio2switchinlog and minBMD", {
   skip_on_cran()
 
   # Impact of ratio2switchinlog and minBMD on a toy example  
@@ -31,7 +30,7 @@ test_that("testbmdcalc", {
   r$minBMD
 
   # bootstrap after forcing minBMD to a high value
-  # without anay interest, but just to test bmdboot
+  # without any interest, but just to test bmdboot
   (r <- bmdcalc(f, minBMD = 0.3))
   (b <- bmdboot(r, niter = 100)) # with a non reasonable value for niter 
   b$res

tests/testthat/testbmdplotwithgradient.R

@@ -1,5 +1,4 @@
-context("testbmdplotwithgradient")
-test_that("testbmdplotwithgradient", {
+test_that("test the bmdplotwithgradient function", {
   skip_on_cran()
 
   # (1) Plot of BMD values with color dose-response gradient

tests/testthat/testplotfit.R

@@ -1,5 +1,4 @@
-context("testbmdplotfit")
-test_that("testbmdplotfit", {
+test_that("test function to plot the fits and the BMD values on those fits", {
   skip_on_cran()
 
   niterboot <- 25

tests/testthat/testresidualtests.R

@@ -1,5 +1,4 @@
-context("testresidualtests")
-test_that("testresidualtests", {
+test_that("test the comportment of tests on residuals", {
   skip_on_cran()
 
   IC <- "AICc"

tests/testthat/testscaling.R

@@ -1,5 +1,4 @@
-context("testresidualtests")
-test_that("test scaling on curvesplot and bmdplotwithgradient", {
+test_that("test the impact of the scaling on curvesplot and bmdplotwithgradient", {
   skip_on_cran()
 
   # A toy example on a very small subsample of a microarray data set) 

tests/testthat/test_selectgroups.R → tests/testthat/testselectgroups.R

@@ -1,5 +1,4 @@
-context("select_groups")
-test_that("select_groups",{
+test_that("test the use of selectgroups() before a sensitivity plot",{
   skip_on_cran()
 
   # (1) An example from data published by Larras et al. 2020

tests/testthat/testsensitivityplot.R

@@ -1,5 +1,4 @@
-context("sensitivityplot")
-test_that("sensitivityplot", {
+test_that("test sensitivityplot()", {
   skip_on_cran()
 
   # (1) An example from data published by Larras et al. 2020

tests/testthat/examplewithNAvalues.R → tests/testthat/testwithNAvalues.R

@@ -1,4 +1,3 @@
-context("examplewithNAvalues")
 test_that("Test DRomics on datasets with NA values, possible especially for apical data", {
   skip_on_cran()
 

tests/testthat/examplewithRNAseq.R → tests/testthat/testwithRNAseq.R

@@ -1,5 +1,4 @@
-context("examplewithRNAseq")
-test_that("examplewithRNAseq", {
+test_that("Test DRomics on RNAseq data", {
   skip_on_cran()
 
   # importation and check of RNAseq data and normalization

tests/testthat/examplewithanchoringdata.R → tests/testthat/testwithanchoringdata.R

@@ -1,5 +1,4 @@
-context("examplewithanchoringdata")
-test_that("examplewithanchoringdata", {
+test_that("Test DRomics on anchoring data", {
   skip_on_cran()
 
   # importation and check of apical anchoring data

tests/testthat/examplewithinsitudata.R → tests/testthat/testwithinsitudata.R

@@ -1,5 +1,4 @@
-context("examplewithinsitudata")
-test_that("Test DRomics on datasets without replicates and without control data", {
+test_that("Test DRomics on in situ data", {
   skip_on_cran()
 
   niterboot <- 25

tests/testthat/examplewithmetabolomic.R → tests/testthat/testwithmetabolomic.R

@@ -1,5 +1,4 @@
-context("examplewithametabolomicdata")
-test_that("examplewithametabolomicdata", {
+test_that("Test DRomics on metabolomic data", {
   skip_on_cran()
 
   # importation and check of metabolomic data

tests/testthat/examplewithmicroarray.R → tests/testthat/testwithmicroarray.R

@@ -1,5 +1,4 @@
-context("examplewithametabolomicdata")
-test_that("examplewithametabolomicdata", {
+test_that("Test DRomics on microarray data", {
   skip_on_cran()
 
   # importation and check of data and normalization if needed

tests/testthat/examplewithnoreplicate.R → tests/testthat/testwithnoreplicate.R

@@ -1,4 +1,3 @@
-context("examplewithnoreplicate")
 test_that("Test DRomics on datasets without replicates and without control data", {
   skip_on_cran()