tests/testthat/test-calendars.R

In rjd3toolkit: Utility Functions Around 'JDemetra+ 3.0'

test_that("calendar_td works", {
    testthat::skip_if_not(
        condition = rjd3jars::check_java_version(silent = TRUE),
        message = "Java version is not sufficient."
    )
    reg <- calendar_td(frequency = 12L, start = 2020L, length = 3L)
    expect_s3_class(reg, "mts")
    expect_identical(
        colnames(reg),
        c("group_1", "group_2", "group_3", "group_4", "group_5", "group_6")
    )
    expect_identical(dim(reg), c(3L, 6L))
})