fully qualify three functions from RUnit inside test()

[ even though we're inside if (require(RUnit)) { ...} ]

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,7 @@
+2014-09-09  Dirk Eddelbuettel  <[email protected]>
+
+        * R/unit.tests.R: Fully qualify three functions from RUnit via ::
+
 2014-09-03  Kevin Ushey  <[email protected]>
 
         * inst/include/Rcpp/Environment.h: make new_env a free function

R/unit.tests.R

@@ -68,18 +68,18 @@ test <- function(output=if(file.exists("/tmp")) "/tmp" else getwd(),
             testDir <- system.file("unitTests", package = "Rcpp")
         }
 
-        testSuite <- defineTestSuite(name="Rcpp Unit Tests",
-                                     dirs=testDir,
-                                     testFuncRegexp = "^[Tt]est.+")
+        testSuite <- RUnit::defineTestSuite(name="Rcpp Unit Tests",
+                                            dirs=testDir,
+                                            testFuncRegexp = "^[Tt]est.+")
 
         ## if someoone calls Rcpp::test(), he/she wants all tests
         Sys.setenv("RunAllRcppTests"="yes")
 
         ## Run tests
-        tests <- runTestSuite(testSuite)
+        tests <- RUnit::runTestSuite(testSuite)
 
         ## Print results
-        printTextProtocol(tests)
+        RUnit::printTextProtocol(tests)
 
         return(tests)
     }