tests/doRUnit.R

In benilton/oligo-release: Preprocessing tools for oligonucleotide arrays.

## from xmapcore package
if( require( "RUnit", quietly=TRUE ) ) {
	pkg <- "oligo"
        path <- ifelse(Sys.getenv( "RCMDCHECK" ) == "FALSE",
                       file.path( getwd(), "..", "inst", "unitTests" ),
                       system.file( package=pkg, "unitTests" ))
        
	cat( "\nRunning unit tests\n" )
	print( list( pkg=pkg, getwd=getwd(), pathToUnitTests=path ) )
	library( package=pkg, character.only=TRUE )

	##Fail on warnings
	##options( warn=2 )
	options(warn=0)

	## Get the pattern (if there is one?)
	patt <- Sys.getenv( "RUNITFILEPATTERN" )
        testSuite <- defineTestSuite(name=paste( pkg, "unit testing" ),
                                     dirs=path,
                                     testFileRegexp=paste( "^test.+", patt, "\\.[rR]$", sep="" ))
	tests <- runTestSuite( testSuite )

	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=""))
	}
} else {
	warning( "cannot run unit tests -- package RUnit is not available" )
}