[Robast-commits] r982 - branches/robast-1.1/pkg/RobExtremes/tests

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

Author: ruckdeschel
Date: 2018-07-19 00:26:59 +0200 (Thu, 19 Jul 2018)
New Revision: 982

Modified:
   branches/robast-1.1/pkg/RobExtremes/tests/doRUnit.R
Log:
[RobExtremes] branch 1.1 fixed unit test suite for zero length

Modified: branches/robast-1.1/pkg/RobExtremes/tests/doRUnit.R
===================================================================
--- branches/robast-1.1/pkg/RobExtremes/tests/doRUnit.R	2018-07-18 22:26:09 UTC (rev 981)
+++ branches/robast-1.1/pkg/RobExtremes/tests/doRUnit.R	2018-07-18 22:26:59 UTC (rev 982)
@@ -27,7 +27,7 @@
   ## or simply call PKG:::myPrivateFunction() in tests
  
   ## --- Testing ---
- 
+  if(length(dir(path))){
   ## Define tests
   testSuite <- defineTestSuite(name=paste(pkg, "unit testing"),
                                           dirs=path)
@@ -56,6 +56,6 @@
     stop(paste("\n\nunit testing failed (#test failures: ", tmp$nFail,
                ", #R errors: ",  tmp$nErr, ")\n\n", sep=""))
   }
-} else {
+}} else {
   warning("cannot run unit tests -- package RUnit is not available")
 }