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

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

Author: romain
Date: 2012-04-08 17:38:34 +0200 (Sun, 08 Apr 2012)
New Revision: 3567

Modified:
   pkg/Rcpp/inst/unitTests/runit.Function.R
Log:
update unit test as it failed on some settings and not others

Modified: pkg/Rcpp/inst/unitTests/runit.Function.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.Function.R	2012-04-07 14:39:35 UTC (rev 3566)
+++ pkg/Rcpp/inst/unitTests/runit.Function.R	2012-04-08 15:38:34 UTC (rev 3567)
@@ -145,8 +145,6 @@
 test.Function.namespace.env <- function() {
     funx <- .rcpp.Function$function_namespace_env
     exportedfunc <- funx()
-    mat <- matrix(1:9, 3)
-    res <- exportedfunc(mat)
-    expected <- stats:::.asSparse(mat)
-	checkEquals( res, expected, msg = "namespace_env(Function)" )
+    checkEquals( stats:::.asSparse, exportedfunc, msg = "namespace_env(Function)" )
 }
+