tests/testthat/test-get_point_specification.R

In rjd3workspace: Wrangling 'JDemetra+ 3.x' Workspaces

library("rjd3toolkit")
library("rjd3x13")

test_that("get_point_specification works", {
    skip_if_not(rjd3jars::check_java_version())
    testthat::skip_on_cran()

    # Case 1
    jws <- jws_new()
    jsap <- jws_sap_new(jws, name = "sap1")
    add_sa_item(jsap, "test", rjd3toolkit::ABS$X0.2.09.10.M, x13_spec())
    jsai <- jsap_sai(jsap, 1L)

    expect_no_error({
        res <- read_sai(jsai)
    })
})