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

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

Author: romain
Date: 2009-12-30 14:25:32 +0100 (Wed, 30 Dec 2009)
New Revision: 233

Modified:
   pkg/inst/unitTests/runit.RObject.R
Log:
small unit test error

Modified: pkg/inst/unitTests/runit.RObject.R
===================================================================
--- pkg/inst/unitTests/runit.RObject.R	2009-12-30 13:15:08 UTC (rev 232)
+++ pkg/inst/unitTests/runit.RObject.R	2009-12-30 13:25:32 UTC (rev 233)
@@ -79,7 +79,7 @@
 	checkException( funx(NULL) , msg = "RObject.asRaw(NULL) -> exception" )
 	checkException( funx("foo") , msg = "RObject.asRaw(character) -> exception" )
 	checkException( funx(1:2), msg = "RObject.asRaw(>1 integer) -> exception" )
-	checkException( funx(1.3), msg = "RObject.asRaw(>1 numeric) -> exception" )
+	checkException( funx(as.numeric(1:2)), msg = "RObject.asRaw(>1 numeric) -> exception" )
 	checkException( funx(as.raw(1:3)), msg = "RObject.asRaw(>1 raw) -> exception" )
 	checkException( funx(integer(0)), msg = "RObject.asRaw(0 integer) -> exception" )
 	checkException( funx(numeric(0)), msg = "RObject.asRaw(0 numeric) -> exception" )