tests/testthat/test-chk-member.R

In johnrbryant/demcheck: Checking for Demographic Packages

context("chk-member")

## chk_member_comp_type -------------------------------------------------------

test_that("'chk_member_comp_type' returns TRUE with valid component", {
    for (x in c("increment", "decrement", "orig-dest", "pool"))
        expect_true(chk_member_comp_type(x = x,
                                         name = "x"))
})

test_that("'chk_member_dimtype' returns expected message with invalid dimtype", {
    expect_identical(chk_member_comp_type(x = "wrong",
                                          name = "x"),
                     "\"wrong\" is not a valid component type")
})


## chk_member_dimtype ---------------------------------------------------------

test_that("'chk_member_dimtype' returns TRUE with valid dimtypes", {
    x <- c("attribute",
           "origin",
           "destination",
           "parent",
           "child",
           "age",
           "time",
           "cohort",
           "triangle",
           "iteration",
           "quantile")
    expect_true(chk_member_dimtype(x = x,
                                   name = "x"))
})

test_that("'chk_member_dimtype' returns expected message with invalid dimtype", {
    expect_identical(chk_member_dimtype(x = "wrong",
                                        name = "x"),
                     "\"wrong\" is not a valid dimtype")
})


## chk_member_unit ------------------------------------------------------------

test_that("'chk_member_unit' returns TRUE with time units", {
    expect_true(chk_member_unit(x = "month",
                                     name = "x"))
    expect_true(chk_member_unit(x = "quarter",
                                     name = "x"))
    expect_true(chk_member_unit(x = "year",
                                     name = "x"))
})

test_that("'chk_member_unit' returns expected message with invalid time units", {
    expect_identical(chk_member_unit(x = "day",
                                     name = "x"),
                     "value for 'x' [\"day\"] is not a valid time unit")
})