R version 4.1.3 (2022-03-10) -- "One Push-Up"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: i386-w64-mingw32/i386 (32-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # Adapted from: http://rwiki.sciviews.org/doku.php?id=developers:runit
> 
> if( identical( .Platform$OS.type, "windows" ) && 
+     identical( .Platform$r_arch, "x64" ) ){
+   print( "unit tests not run on windows 64 (workaround alert)" )
+ } else {
+   if(require("RUnit", quietly = TRUE)) {
+     pkg <- "rqt"
+     if(Sys.getenv("RCMDCHECK") == "FALSE") {
+       path <- file.path(getwd(), "..", "inst", "unitTests")
+     } else {
+       path <- system.file(package=pkg, "unitTests")
+     }
+ 
+     cat("\nRunning unit tests:\n")
+     print(list(pkg=pkg, getwd=getwd(), pathToUnitTests=path))
+     
+     library(package=pkg, character.only=TRUE)
+     
+     # Define tests
+     testSuite <- defineTestSuite(name=paste(pkg, "unit testing"), 
+                                  dirs=path, 
+                                  testFuncRegexp = "^test_+", 
+                                  testFileRegexp = "^test_+")
+     
+     # Run
+     tests <- runTestSuite(testSuite)
+     
+     # Default report name
+     pathReport <- file.path(path, "report")
+     
+     # Report to stdout
+     printTextProtocol(tests, showDetails=FALSE)
+     
+     # Return stop() to cause R CMD check stop in case of
+     #  - failures i.e. FALSE to unit tests or
+     #  - errors i.e. R errors
+     tmp <- getErrors(tests)
+     if(tmp$nFail > 0 | tmp$nErr > 0) {
+       stop(paste("\n\nUnit testing failed (#test failures: ", tmp$nFail, ", 
+                  #R errors: ",  tmp$nErr, ")\n\n", sep=""))
+     }
+     
+   } else {
+     print( "package RUnit not available, cannot run unit tests" )
+   }       
+ }

Running unit tests:
$pkg
[1] "rqt"

$getwd
[1] "C:/Users/biocbuild/bbs-3.14-bioc/meat/rqt.Rcheck/tests_i386"

$pathToUnitTests
[1] "C:/Users/biocbuild/bbs-3.14-bioc/R/library/rqt/unitTests"

Loading required package: SummarizedExperiment
Loading required package: MatrixGenerics
Loading required package: matrixStats

Attaching package: 'MatrixGenerics'

The following objects are masked from 'package:matrixStats':

    colAlls, colAnyNAs, colAnys, colAvgsPerRowSet, colCollapse,
    colCounts, colCummaxs, colCummins, colCumprods, colCumsums,
    colDiffs, colIQRDiffs, colIQRs, colLogSumExps, colMadDiffs,
    colMads, colMaxs, colMeans2, colMedians, colMins, colOrderStats,
    colProds, colQuantiles, colRanges, colRanks, colSdDiffs, colSds,
    colSums2, colTabulates, colVarDiffs, colVars, colWeightedMads,
    colWeightedMeans, colWeightedMedians, colWeightedSds,
    colWeightedVars, rowAlls, rowAnyNAs, rowAnys, rowAvgsPerColSet,
    rowCollapse, rowCounts, rowCummaxs, rowCummins, rowCumprods,
    rowCumsums, rowDiffs, rowIQRDiffs, rowIQRs, rowLogSumExps,
    rowMadDiffs, rowMads, rowMaxs, rowMeans2, rowMedians, rowMins,
    rowOrderStats, rowProds, rowQuantiles, rowRanges, rowRanks,
    rowSdDiffs, rowSds, rowSums2, rowTabulates, rowVarDiffs, rowVars,
    rowWeightedMads, rowWeightedMeans, rowWeightedMedians,
    rowWeightedSds, rowWeightedVars

Loading required package: GenomicRanges
Loading required package: stats4
Loading required package: BiocGenerics

Attaching package: 'BiocGenerics'

The following objects are masked from 'package:stats':

    IQR, mad, sd, var, xtabs

The following objects are masked from 'package:base':

    Filter, Find, Map, Position, Reduce, anyDuplicated, append,
    as.data.frame, basename, cbind, colnames, dirname, do.call,
    duplicated, eval, evalq, get, grep, grepl, intersect, is.unsorted,
    lapply, mapply, match, mget, order, paste, pmax, pmax.int, pmin,
    pmin.int, rank, rbind, rownames, sapply, setdiff, sort, table,
    tapply, union, unique, unsplit, which.max, which.min

Loading required package: S4Vectors

Attaching package: 'S4Vectors'

The following objects are masked from 'package:base':

    I, expand.grid, unname

Loading required package: IRanges

Attaching package: 'IRanges'

The following object is masked from 'package:grDevices':

    windows

Loading required package: GenomeInfoDb
Loading required package: Biobase
Welcome to Bioconductor

    Vignettes contain introductory material; view with
    'browseVignettes()'. To cite Bioconductor, see
    'citation("Biobase")', and for packages 'citation("pkgname")'.


Attaching package: 'Biobase'

The following object is masked from 'package:MatrixGenerics':

    rowMedians

The following objects are masked from 'package:matrixStats':

    anyMissing, rowMedians



Executing test function test_geneTest  ...  done successfully.



Executing test function test_geneTestMeta  ...  done successfully.

RUNIT TEST PROTOCOL -- Wed Apr 13 02:03:35 2022 
*********************************************** 
Number of test functions: 2 
Number of errors: 0 
Number of failures: 0 

 
1 Test Suite : 
rqt unit testing - 2 test functions, 0 errors, 0 failures
Warning messages:
1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: Marsaglia-Multicarry has poor statistical properties
2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
3: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: Marsaglia-Multicarry has poor statistical properties
4: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
> 
> proc.time()
   user  system elapsed 
   7.28    0.76    8.01 

R version 4.1.3 (2022-03-10) -- "One Push-Up"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # Adapted from: http://rwiki.sciviews.org/doku.php?id=developers:runit
> 
> if( identical( .Platform$OS.type, "windows" ) && 
+     identical( .Platform$r_arch, "x64" ) ){
+   print( "unit tests not run on windows 64 (workaround alert)" )
+ } else {
+   if(require("RUnit", quietly = TRUE)) {
+     pkg <- "rqt"
+     if(Sys.getenv("RCMDCHECK") == "FALSE") {
+       path <- file.path(getwd(), "..", "inst", "unitTests")
+     } else {
+       path <- system.file(package=pkg, "unitTests")
+     }
+ 
+     cat("\nRunning unit tests:\n")
+     print(list(pkg=pkg, getwd=getwd(), pathToUnitTests=path))
+     
+     library(package=pkg, character.only=TRUE)
+     
+     # Define tests
+     testSuite <- defineTestSuite(name=paste(pkg, "unit testing"), 
+                                  dirs=path, 
+                                  testFuncRegexp = "^test_+", 
+                                  testFileRegexp = "^test_+")
+     
+     # Run
+     tests <- runTestSuite(testSuite)
+     
+     # Default report name
+     pathReport <- file.path(path, "report")
+     
+     # Report to stdout
+     printTextProtocol(tests, showDetails=FALSE)
+     
+     # Return stop() to cause R CMD check stop in case of
+     #  - failures i.e. FALSE to unit tests or
+     #  - errors i.e. R errors
+     tmp <- getErrors(tests)
+     if(tmp$nFail > 0 | tmp$nErr > 0) {
+       stop(paste("\n\nUnit testing failed (#test failures: ", tmp$nFail, ", 
+                  #R errors: ",  tmp$nErr, ")\n\n", sep=""))
+     }
+     
+   } else {
+     print( "package RUnit not available, cannot run unit tests" )
+   }       
+ }
[1] "unit tests not run on windows 64 (workaround alert)"
> 
> proc.time()
   user  system elapsed 
   0.29    0.04    0.32