add expect_jlequal

Author: rcqls

NAMESPACE

@@ -26,7 +26,7 @@ export(
   rand, jl_set.seed,
   ## extra
   rexpr2jlexpr, 
-  jlvalue_capture_display # useful for testthat
+  expect_jlequal # useful for testthat
 )
 
 S3method(print,jlvalue)

R/jl_utils.R

@@ -56,4 +56,6 @@ jldisplay <- function(jlval) invisible(jltrycall("display",jlval))
 
 "%<:%" <- function(a, b) {args <- jl4R:::jl_rexprs2(substitute(list(a,b)), parent_envir=parent.frame());jl(`<:`)(args[[1]],args[[2]])}
 
-"%isa%" <- function(a, b) {args <- jl4R:::jl_rexprs2(substitute(list(a,b)), parent_envir=parent.frame());jl(isa)(args[[1]],args[[2]])}
+"%isa%" <- function(a, b) {args <- jl4R:::jl_rexprs2(substitute(list(a,b)), parent_envir=parent.frame());jl(isa)(args[[1]],args[[2]])}
+
+expect_jlequal <- function(jlval, res, ...) expect_equal(jl4R:::jlvalue_capture_display(jlval), paste0(res, "\n"), ...)

tests/testthat/test-eval.R

@@ -1,11 +1,11 @@
 test_that("jl eval int64", {
-  expect_equal(jlvalue_capture_display(jl(`2 * 2`)), "4\n")
+  expect_jlequal(jl(`2 * 2`), "4")
 })
 
 test_that("jl eval string", {
-  expect_equal(jlvalue_capture_display(jl(`"2 * 2"`)), '"2 * 2"\n')
+  expect_jlequal(jl(`"2 * 2"`), '"2 * 2"')
 })
 
 test_that("jl eval symbol", {
-  expect_equal(jlvalue_capture_display(jlsymbol("toto")), ":toto\n")
+  expect_jlequal(jlsymbol("toto"), ":toto")
 })