1pkg <- "RcppEigen"
2
3# load this package
4require( pkg, character.only = TRUE )
5
6#load RUnit
7runit <- "RUnit" ; require( runit, character.only = TRUE )
8if( file.exists( "unitTests-results" ) ){ unlink("unitTests-results", recursive = TRUE ) }
9dir.create( "unitTests-results" )
10
11path <- system.file("unitTests", package = pkg)
12testSuite <- defineTestSuite(name=paste(pkg, "unit testing"), dirs = path)
13tests <- runTestSuite(testSuite)
14printHTMLProtocol(tests, fileName= sprintf( "unitTests-results/%s-unitTests.html" , pkg ) )
15printTextProtocol(tests, fileName= sprintf( "unitTests-results/%s-unitTests.txt"  , pkg ) )
16if( file.exists( "/tmp" ) ){
17	file.copy( sprintf( "unitTests-results/%s-unitTests.txt" , pkg ) , "/tmp", overwrite = TRUE )
18	file.copy( sprintf( "unitTests-results/%s-unitTests.html", pkg ) , "/tmp", overwrite = TRUE )
19}
20
21