Author: Andreas Tille <tille@debian.org>
Last-Update: Tue, 07 Sep 2021 14:40:48 +0200
Origin: https://lists.debian.org/debian-r/2021/09/msg00040.html
Description: Prevent RUnit from writing to /usr

--- a/tests/doRUnit.R
+++ b/tests/doRUnit.R
@@ -22,12 +22,12 @@ if( require( "RUnit", quietly=TRUE ) ) {
 
 	pathReport <- file.path( path, "report" )
 
-	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="" ) )
+	#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="" ) )
 
-	printHTMLProtocol( tests, fileName=paste( pathReport, ".html", sep="" ) )
+	#printHTMLProtocol( tests, fileName=paste( pathReport, ".html", sep="" ) )
 
 	tmp <- getErrors( tests )
 	if( tmp$nFail > 0 | tmp$nErr > 0 ){