unit test fix for r-devel

eddelbuettel · eddelbuettel · commit ea2de6730fc6 · 2016-01-19T21:00:54.000-06:00
which smells like a regression...
diff --git a/inst/unitTests/runit.sparse.R b/inst/unitTests/runit.sparse.R
@@ -214,7 +214,8 @@ test.sparseCholesky.R <- function() {
 
     rr <- fx(KNex)
     checkEquals(rr[[1]], as.vector(solve(crossprod(KNex[[1]]),
-                                         crossprod(KNex[[1]], KNex[[2]]))),
-                                       "Cholmod solution")
+                                         crossprod(KNex[[1]], KNex[[2]])),
+                                   mode="numeric"),
+                "Cholmod solution")
 }
 

Original file line number	Diff line number	Diff line change
`@@ -214,7 +214,8 @@ test.sparseCholesky.R <- function() {`
`214`	`214`
`215`	`215`	`rr <- fx(KNex)`
`216`	`216`	`checkEquals(rr[[1]], as.vector(solve(crossprod(KNex[[1]]),`
`217`		`- crossprod(KNex[[1]], KNex[[2]]))),`
`218`		`- "Cholmod solution")`
	`217`	`+ crossprod(KNex[[1]], KNex[[2]])),`
	`218`	`+ mode="numeric"),`
	`219`	`+ "Cholmod solution")`
`219`	`220`	`}`
`220`	`221`