1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Author: Andreas Tille <tille@debian.org>
Last-Update: Thu, 30 Sep 2021 08:17:28 +0200
Description: Do not try to write to usr/lib/R/site-library/oligoClasses/unitTests/reportSummary.txt
--- a/tests/doRUnit.R
+++ b/tests/doRUnit.R
@@ -37,13 +37,6 @@ 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="" ) )
-
- printHTMLProtocol( tests, fileName=paste( pathReport, ".html", sep="" ) )
-
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=""))
|
