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