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

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Thu Sep 6 11:44:41 CEST 2012


Author: horbenko
Date: 2012-09-06 11:44:41 +0200 (Thu, 06 Sep 2012)
New Revision: 505

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


Modified: branches/robast-0.9/pkg/RobExtremes/tests/TestSuite.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/tests/TestSuite.R	2012-09-06 08:09:12 UTC (rev 504)
+++ branches/robast-0.9/pkg/RobExtremes/tests/TestSuite.R	2012-09-06 09:44:41 UTC (rev 505)
@@ -1,3 +1,15 @@
+##########################################
+##                                      ## 
+## TestSuite for RobExtremes Package    ##
+##                                      ##
+##########################################
+
+##load RobExtremes package
+require(RobExtremes)
+
+##load RUnit package
+require(RUnit)
+
 #Options: if the exceptions are shown as errors
 ## Not run:
 ## quiet log output
@@ -8,8 +20,8 @@
 ## End(Not run)
 
 ## run test suite
-myTestSuite <- defineTestSuite("RUnit Example",dirs="./tests",
-testFileRegexp = "^test.+\\R$",testFuncRegexp = "^test.+")
+myTestSuite <- defineTestSuite("RUnit Tests for RobExtremes",dirs="./TestSuite",
+testFileRegexp = "^Test.+\\R$",testFuncRegexp = "^test.+")
 testResult <- runTestSuite(myTestSuite)
 
 ## is test suite valid?



More information about the Robast-commits mailing list