[Rcpp-commits] r1798 - pkg/Rcpp/inst/unitTests

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

Author: romain
Date: 2010-07-07 11:12:37 +0200 (Wed, 07 Jul 2010)
New Revision: 1798

Modified:
   pkg/Rcpp/inst/unitTests/runTests.R
Log:
oops

Modified: pkg/Rcpp/inst/unitTests/runTests.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runTests.R	2010-07-07 09:03:15 UTC (rev 1797)
+++ pkg/Rcpp/inst/unitTests/runTests.R	2010-07-07 09:12:37 UTC (rev 1798)
@@ -48,7 +48,7 @@
 
     ## Define tests
     testSuite <- defineTestSuite(name=paste(pkg, "unit testing"), dirs = path
-                                    #   , testFileRegexp = "Vector"
+                                 #     , testFileRegexp = "Vector"
                                  )
 
     ## this is crass but as we time out on Windows we have no choice
@@ -148,12 +148,10 @@
         		raw.msg
         		}
         	)
-        	
-        	msg <- sprintf( sprintf( "unit test problems: %d failures, %d errors\n%s",
+        	msg <- sprintf( "unit test problems: %d failures, %d errors\n%s",
         		err$nFail, err$nErr, 
         		paste( err_msg, collapse = "\n" )
-        		) 
-           
+        		)
         	stop( msg )
         } else{
             success <- err$nTestFunc - err$nFail - err$nErr - err$nDeactivated