[Robast-commits] r503 - branches/robast-0.9/pkg/RobExtremes/tests

[noreply at r-forge.r-project.org]

Author: horbenko
Date: 2012-09-06 10:03:14 +0200 (Thu, 06 Sep 2012)
New Revision: 503

Added:
   branches/robast-0.9/pkg/RobExtremes/tests/TestSuite.R
Log:


Added: branches/robast-0.9/pkg/RobExtremes/tests/TestSuite.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/tests/TestSuite.R	                        (rev 0)
+++ branches/robast-0.9/pkg/RobExtremes/tests/TestSuite.R	2012-09-06 08:03:14 UTC (rev 503)
@@ -0,0 +1,25 @@
+#Options: if the exceptions are shown as errors
+## Not run:
+## quiet log output
+ro <- getOption("RUnit")
+ro$silent <- TRUE
+ro$verbose <- 0L
+options("RUnit"=ro)
+## End(Not run)
+
+## run test suite
+myTestSuite <- defineTestSuite("RUnit Example",dirs="./tests",
+testFileRegexp = "^test.+\\R$",testFuncRegexp = "^test.+")
+testResult <- runTestSuite(myTestSuite)
+
+## is test suite valid?
+isValidTestSuite(myTestSuite)
+
+## get all the errors
+#getErrors(myTestSuite)
+
+## prints detailed text protocol
+## to standard out:
+printTextProtocol(testResult, "testResult.txt",showDetails = TRUE)
+printHTMLProtocol(testResult, "testResult.html")
+