tests/testthat/test-SummaryDemographicArray-methods.R

In StatisticsNZ/dembase: Analysing Cross-Classified Data about Populations

context("SummaryDemographicArray-methods")

test_that("metadata works", {
    metadata <- dembase:::metadata
    x <- Counts(array(rpois(n = 120, lambda = 1:12),
                      dim = c(2, 2, 3, 10),
                      dimnames = list(region = c("Region 1", "Region 2"),
                      sex = c("Male", "Female"),
                      age = c("0-4", "5-9", "10+"),
                      iteration = 1:10)))
    sx <- summary(x)
    expect_identical(metadata(sx), sx@metadata)
    x <- Counts(array(0, dim = 0, dimnames = list(sex = NULL)))
    sx <- summary(x)
    expect_identical(metadata(sx), sx@metadata)
})