tests/testthat/test_modules.R

In V8: Embedded JavaScript and WebAssembly Engine for R

context("ESM modules")

test_that("get modules", {
  skip_if(V8::engine_info()$numeric_version < "6.3")
  ctx <- V8::v8()
  ctx$source('modules/main.js')
  expect_error(ctx$eval('test_bad_path()', await = TRUE), "path")
  expect_equal(ctx$eval('run_test()', await = TRUE), "579")
  expect_error(ctx$eval('test_syntax_error1()', await = TRUE), "SyntaxError")
  expect_equal(ctx$eval('run_test()', await = TRUE), "579")
})