Running ‘doRUnit.R’ [6s/8s]
Running the tests in ‘tests/doRUnit.R’ failed.
Complete output:
  > ## unit tests will not be done if RUnit is not available
  > if(require("RUnit", quietly=TRUE)) {
  + 	
  + 	## --- Setup ---
  + 	
  + 	pkg <- "CompGLM"
  + 	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", "unitTests")
  + 	} else {
  + 		## Path to unit tests for R CMD check
  + 		## PKG.Rcheck/tests/../PKG/unitTests
  + 		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)
  + 	
  + 	## 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)
  + 	## 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] "CompGLM"
  
  $getwd
  [1] "/home/hornik/tmp/R.check/r-patched-gcc/Work/PKGS/CompGLM.Rcheck/tests"
  
  $pathToUnitTests
  [1] "/tmp/RtmprKb5kn/RLIBS_22584a634da/CompGLM/unitTests"
  
  
  
  Executing test function test.dcomp  ...  done successfully.
  
  
  
  Executing test function test.glm.comp  ...  done successfully.
  
  
  
  Executing test function test.pcomp  ...  done successfully.
  
  ------------------- UNIT TEST SUMMARY ---------------------
  
  RUNIT TEST PROTOCOL -- Fri Apr 20 16:55:30 2018 
  *********************************************** 
  Number of test functions: 3 
  Number of errors: 0 
  Number of failures: 0 
  
   
  1 Test Suite : 
  CompGLM unit testing - 3 test functions, 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/RtmprKb5kn/RLIBS_22584a634da/CompGLM/unitTests/reportSummary.txt': Read-only file system
  Execution halted