# \dontshow{
# running the java unit tests from the R examples
.jinit()
J("RJavaTools_Test")$runtests()
J("RJavaArrayTools_Test")$runtests()
J("ArrayWrapper_Test")$runtests()
J("RectangularArrayBuilder_Test")$runtests()
p <- .jnew( "java/awt/Point" )
classes <- .Call( rJava:::RgetSimpleClassNames, p@jobj, TRUE )
stopifnot( all( c( "Point", "Point2D", "Object", "error", "condition" ) %in% classes ) )
classes <- .Call( rJava:::RgetSimpleClassNames, p@jobj, FALSE )
stopifnot( all( c( "Point", "Point2D", "Object" ) %in% classes ) )
# }
Run the code above in your browser using DataLab