Running ‘runTests.R’ [1s/2s]
Running the tests in ‘tests/runTests.R’ failed.
Complete output:
  > # taken from: R-package 'minval'
  > 
  > ## unit tests will not be done if RUnit is not available
  > if(require("RUnit", quietly=TRUE)) {
  + 
  +     ## --- Setup ---
  + 
  +     pkg <- "hypergea" # <-- Change to package name!
  +     if(Sys.getenv("RCMDCHECK") == "FALSE") {
  +         ## Path to unit tests for standalone running under Makefile (not R CMD check)
  +         ## PKG/tests/../inst/unitTests
  +         path <- file.path(getwd(), "..", "inst", "tests")
  +     } else {
  +         ## Path to unit tests for R CMD check
  +         ## PKG.Rcheck/tests/../PKG/unitTests
  +         path <- system.file(package=pkg, "tests")
  +     }
  +     cat("\nRunning unit tests\n")
  +     print(list(pkg=pkg, getwd=getwd(), pathToUnitTests=path))
  + 
  +     library(package=pkg, character.only=TRUE)
  + 
  +     ## If desired, load the name space to allow testing of private functions
  +     ## if (is.element(pkg, loadedNamespaces()))
  +     ##     attach(loadNamespace(pkg), name=paste("namespace", pkg, sep=":"), pos=3)
  +     ##
  +     ## or simply call PKG:::myPrivateFunction() in tests
  + 
  +     ## --- Testing ---
  + 
  +     ## Define tests
  +     testSuite <- defineTestSuite(name=paste(pkg, "unit testing"),
  +     dirs=path, testFileRegexp="^test_+.*\\.R", testFuncRegexp="^test_+")
  +     ## Run
  +     tests <- runTestSuite(testSuite)
  + 
  +     ## Default report name
  +     pathReport <- file.path(path, "report")
  + 
  +     ## Report to stdout and text files
  +     cat("------------------- UNIT TEST SUMMARY ---------------------\n\n")
  +     printTextProtocol(tests, showDetails=FALSE)
  +     printTextProtocol(tests, showDetails=FALSE,
  +     fileName=paste(pathReport, "Summary.txt", sep=""))
  +     printTextProtocol(tests, showDetails=TRUE,
  +     fileName=paste(pathReport, ".txt", sep=""))
  + 
  +     ## Report to HTML file
  +     printHTMLProtocol(tests, fileName=paste(pathReport, ".html", sep=""))
  + 
  +     ## 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 {
  +     warning("cannot run unit tests -- package 'RUnit' is not available")
  + }
  
  Running unit tests
  $pkg
  [1] "hypergea"
  
  $getwd
  [1] "/home/hornik/tmp/R.check/r-devel-gcc/Work/PKGS/hypergea.Rcheck/tests"
  
  $pathToUnitTests
  [1] "/tmp/RtmpXenwH3/RLIBS_12b46120e90e/hypergea/tests"
  
  hypergea 1.3.3 loaded
  
  
  
  Executing test function test_hypergeom.test  ... 
   NO GAIN OF SPEED ( 0.011 )
   NO GAIN OF SPEED ( 0.025 )
   NO GAIN OF SPEED ( 0.018 )
  2 iterations: deviation 0 
  Changed 'alternative' to valid value.
  Changed 'alternative' to valid value.
  1 iterations: deviation 0 
  agresti1992exact_Table2 greater compare to 'fisher.test' NO GAIN OF SPEED ( 0.004 )
   done successfully.
  
  ------------------- UNIT TEST SUMMARY ---------------------
  
  RUNIT TEST PROTOCOL -- Fri Jan 19 18:43:55 2018 
  *********************************************** 
  Number of test functions: 1 
  Number of errors: 0 
  Number of failures: 0 
  
   
  1 Test Suite : 
  hypergea unit testing - 1 test function, 0 errors, 0 failures
  Error in file(file, ifelse(append, "a", "w")) : 
    cannot open the connection
  Calls: printTextProtocol -> cat -> file
  In addition: Warning message:
  In file(file, ifelse(append, "a", "w")) :
    cannot open file '/tmp/RtmpXenwH3/RLIBS_12b46120e90e/hypergea/tests/reportSummary.txt': Read-only file system
  Execution halted