()
context("Functions from 'utils.R'")
# intervals_with_single_value ---------------------------------------------
test_that("intervals_with_single_value 1", {
x_1 <- "(26.6000003814697,26.6000003814697]"
x_2 <- "(39.9000015258789,39.9000015258789]"
x_3 <- "(26.6000003814697,39.9000015258789]"
expect_equal((x = x_1),
)
expect_equal((x = x_2),
)
expect_equal((x = x_3),
)
})
test_that("intervals_with_single_value incorrect input", {
x_4 <- "(26.6000003814697,26.6000003814697, 66.5]"
x_5 <- "(26.6000003814697,26.6000003814697], (39.9000015258789, 66.5]"
expect_error((x = x_4))
expect_error((x = x_5))
})
# is.household.dataset ----------------------------------------------------
test_that("is.household.dataset returns expected outputs", {
expect_equal(("ca2009h"), )
expect_equal(("ca09h"), )
expect_equal(("ca2009p"), )
expect_equal(("ca09p"), )
expect_equal(("ca2009"), )
expect_equal(("ca09"), )
expect_equal(("ca09ih"), )
expect_equal(("ca09wh"), )
})
# define_option -----------------------------------------------------------
test_that("define_option defines an option", {
("my_option", )
expect_equal(("my_option"), )
})
test_that("define_option works well with glue::glue()", {
country <- "ca12"
(glue::glue("my_option_{country}"), )
expect_equal(("my_option_ca12"), )
})
# change_file_name_format -------------------------------------------------
test_that("change_file_name_format 1", {
expect_equal(("ca2016ih", "ccyydl"), "ca16ih")
expect_equal(("ca2016ih", "ccyyl"), "ca16h")
expect_equal(("ca2016ih", "ccyyd"), "ca16i")
expect_equal(("ca2016ih", "ccyy"), "ca16")
expect_equal(("fr1984i", "ccyyyy"), "fr1984")
expect_equal(("fr1984h", "ccyyyy"), "fr1984")
expect_equal(("fr1984h", "ccyyl"), "fr84h")
expect_equal(("fr1984", "ccyy"), "fr84")
expect_equal(("fr84", "ccyyyy"), "fr1984")
expect_equal(("fr84ih", "ccyyyydl"), "fr1984ih")
})
test_that("change_file_name_format returns the same output if the inputed file name is already in the requested format", {
expect_equal(("ca2016ih", "ccyyyydl"), "ca2016ih")
})
test_that("change_file_name_format throws an error if change is not possible", {
expect_error(("ca2016", "ccyydl"))
expect_error(("ca2016", "ccyyd"))
expect_error(("ca2016", "ccyyl"))
})
test_that("change_file_name_format throws an error if the requested format is not correct", {
expect_error(("ca2016", "ccyyyyydl"))
expect_error(("ca2016", "cccyyd"))
expect_error(("ca2016", "ccyyll"))
})
test_that("change_file_name_format works with vectors of multiple file names - input format is the same", {
expect_equal((("ca2016ih", "au2010ih"), "ccyydl"),
("ca16ih", "au10ih"))
expect_equal((("ca2016ih", "au2010ih"), "ccyyl"),
("ca16h", "au10h"))
expect_equal((("ca2016ih", "au2010ih"), "ccyyd"),
("ca16i", "au10i"))
expect_equal((("ca2016ih", "au2010ih"), "ccyy"),
("ca16", "au10"))
expect_equal((("fr1984i", "ca2016ih"), "ccyyyy"),
("fr1984", "ca2016"))
expect_equal((("fr1984h", "ca2016h"), "ccyyyy"),
("fr1984", "ca2016"))
expect_equal((("fr1984h", "ca2016h"), "ccyyl"),
("fr84h", "ca16h"))
expect_equal((("fr1984", "ca2016"), "ccyy"),
("fr84", "ca16"))
expect_equal((("fr84", "ca16"), "ccyyyy"),
("fr1984", "ca2016"))
expect_equal((("fr84ih", "ca16ih"), "ccyyyydl"),
("fr1984ih", "ca2016ih"))
})
test_that("change_file_name_format works with vectors of multiple file names - input format diverges", {
expect_equal((("ca2016ih", "au10ih"), "ccyydl"),
("ca16ih", "au10ih"))
expect_equal((("ca2016ih", "au10h"), "ccyyl"),
("ca16h", "au10h"))
expect_equal((("ca2016ih", "au10i"), "ccyyd"),
("ca16i", "au10i"))
expect_equal((("ca2016ih", "au10"), "ccyy"),
("ca16", "au10"))
})
# read_file_name_format ---------------------------------------------------
test_that("read_file_name_format reads the formats correctly", {
expect_equal(("ca2016ih"),
"ccyyyydl")
expect_equal(("ca2016ip"),
"ccyyyydl")
expect_equal(("ca2016wh"),
"ccyyyydl")
expect_equal(("ca2016wp"),
"ccyyyydl")
expect_equal(("ca16ih"),
"ccyydl")
expect_equal(("ca16ip"),
"ccyydl")
expect_equal(("ca16wh"),
"ccyydl")
expect_equal(("ca16wp"),
"ccyydl")
expect_equal(("ca2016h"),
"ccyyyyl")
expect_equal(("ca2016p"),
"ccyyyyl")
expect_equal(("ca16h"),
"ccyyl")
expect_equal(("ca16p"),
"ccyyl")
expect_equal(("ca2016"),
"ccyyyy")
expect_equal(("ca2016"),
"ccyyyy")
expect_equal(("ca16"),
"ccyy")
expect_equal(("ca16"),
"ccyy")
})
test_that("read_file_name_format fails if format is incorrect", {
expect_error(("ca6"),
"'ca6' is not a valid file name format.",
fixed = )
expect_error(("ca20016"),
"'ca20016' is not a valid file name format.",
fixed = )
})
# is_change_possible ------------------------------------------------------
test_that("is_change_possible 1", {
expect_equal(("ccyyyydl", "ccyyyyd"),
)
expect_equal(("ccyydl", "ccyyyyd"),
)
expect_equal(("ccyyyyl", "ccyyyyl"),
)
expect_equal(("ccyyyyl", "ccyyyydl"),
)
expect_equal(("ccyyyyd", "ccyyl"),
)
expect_equal(("ccyyyy", "ccyyl"),
)
})
# extract_information_from_file_name --------------------------------------
test_that("extract_information_from_file_name 1", {
# 4 year file name
expect_equal(("ca2016ih", 'ccyyyydl')"country_"]],
"ca")
expect_equal(("ca2016ih", 'ccyyyydl')"year_"]],
"2016")
expect_equal(("ca2016ih", 'ccyyyydl')"database_"]],
"i")
expect_equal(("ca2016ih", 'ccyyyydl')"level_"]],
"h")
# 2 year digit file name
expect_equal(("ca16ih", 'ccyydl')"country_"]],
"ca")
expect_equal(("ca16ih", 'ccyydl')"database_"]],
"i")
expect_equal(("ca2016ih", 'ccyyyydl')"level_"]],
"h")
# missing database
expect_equal(("ca2016h", 'ccyyyyl')"country_"]],
"ca")
expect_equal(("ca2016h", 'ccyyyyl')"year_"]],
"2016")
expect_equal(("ca2016h", 'ccyyyyl')"database_"]],
"")
expect_equal(("ca2016h", 'ccyyyyl')"level_"]],
"h")
# missing level
expect_equal(("ca2016w", 'ccyyyyd')"country_"]],
"ca")
expect_equal(("ca2016w", 'ccyyyyd')"year_"]],
"2016")
expect_equal(("ca2016w", 'ccyyyyd')"database_"]],
"w")
expect_equal(("ca2016w", 'ccyyyyd')"level_"]],
"")
})
test_that("extract_information_from_file_name returns 4 digit output with two digit year input", {
expect_equal(("ca16ih", 'ccyydl')"country_"]],
"ca")
expect_equal(("ca16ih", 'ccyydl')"year_"]],
"2016")
})
test_that("extract_information_from_file_name throws an error if 'current_format' is incorrect", {
# 'y' * 5
expect_error(("ca16ih", 'ccyyyyydl'),
"Argument 'current_format' needs to be one of the following: 'ccyyyydl', 'ccyydl', 'ccyyyyd', 'ccyyd', 'ccyyyyl', 'ccyyl', 'ccyyyy', 'ccyy'",
fixed = )
# missing 'cc'
expect_error(("ca16ih", 'yyyydl'),
"Argument 'current_format' needs to be one of the following: 'ccyyyydl', 'ccyydl', 'ccyyyyd', 'ccyyd', 'ccyyyyl', 'ccyyl', 'ccyyyy', 'ccyy'",
fixed = )
# 'cc' * 3
expect_error(("ca16ih", 'cccyydl'),
"Argument 'current_format' needs to be one of the following: 'ccyyyydl', 'ccyydl', 'ccyyyyd', 'ccyyd', 'ccyyyyl', 'ccyyl', 'ccyyyy', 'ccyy'",
fixed = )
})
test_that("extract_information_from_file_name throws an error if any of the returned elements is NA", {
expect_error(("ca2016w", 'ccyyyydl'),
"Some extracted elements are NA. Please make sure that 'ca2016w' has format 'ccyyyydl'.")
expect_error(("ca2016h", 'ccyyyydl'),
"Some extracted elements are NA. Please make sure that 'ca2016h' has format 'ccyyyydl'.")
})
# return_desired_format ---------------------------------------------------
test_that("return_desired_format 1", {
expect_equal((country = "ca",
year = "2016",
database = "i",
level = "h",
to_format = "ccyyyydl"), "ca2016ih")
expect_equal((country = "ca",
year = "2016",
database = "i",
level = "h",
to_format = "ccyyyy"), "ca2016")
expect_equal((country = "ca",
year = "2016",
database = "",
level = "",
to_format = "ccyyyy"), "ca2016")
expect_equal((country = "ca",
year = "2016",
database = "",
level = "",
to_format = "ccyy"), "ca16")
})
# is.unique ---------------------------------------------------------------
# is.all.same.value -------------------------------------------------------
test_that("is.all.same.value works as expected", {
expect_equal(((1,1,1,1,1)), )
expect_equal((("a", 5)), )
expect_equal(((1,1,1,1,2)), )
})
test_that("is.all.same.value fails if x is null or has length 0", {
expect_error(())
expect_error((( = 0)))
})
test_that("is.all.same.value does not ignore NAs if na.rm = FALSE", {
expect_error(((1,1,1,1,1, )),
"'x' can not have NAs if 'na.rm = FALSE'")
expect_equal(((1,1,1,1,1, ), na.rm = ), )
})
test_that("is.all.same.value deals correctly with floating point error", {
expect_equal((((2)^2, 2)), )
})
test_that("is.all.same.value uses tests of previous function: is.unique 1", {
expect_equal((1),
)
expect_equal(((1, 1, 1)),
)
expect_equal(((1, 1, (1, 1) )),
)
expect_equal(((0, 1, 1)),
)
})
test_that("is.all.same.value uses tests of previous function: is.unique throws error if argument is not a vector", {
expect_error(((a = (1, 1, 1))))
expect_error(((a = (1, 1, 1))))
})
test_that("is.all.same.value works well with factors",{
expect_equal(
(((2L, 2L, 2L),
.Label = ("[0]Historical Wave",
"[1]Wave I", "[2]Wave II"),
= "factor")),
)
expect_equal(
(((1L, 2L, 2L),
.Label = ("[0]Historical Wave",
"[1]Wave I", "[2]Wave II"),
= "factor")),
)
})
# four_digit_year ---------------------------------------------------------
test_that("four_digit_year works as expected", {
expect_equal(("10"), "2010")
expect_equal(("70"), "1970")
expect_equal((70), "1970")
expect_error(("lu2010ih"),
"Argument 'two_digit_year' should be two digits (00 to 99).",
fixed = )
expect_error(("lu"),
"Argument 'two_digit_year' should be two digits (00 to 99).",
fixed = )
})
# database_character_to_name ----------------------------------------------
test_that("database_character_to_name works as expected", {
expect_equal(("i"),
"LIS")
expect_equal(("w"),
"LWS")
expect_equal(("e"),
"ERFLIS")
})
# get_database ------------------------------------------------------------
test_that("get_database works as expected", {
list_1 <- (aa11ih = tibble::tibble(),
bb22ih = tibble::tibble())
list_2 <- list_1
list_3 <- list_1
list_4 <- list_1
(list_1, "database") <- "i"
(list_2, "database") <- "b"
(list_4, "database") <- ("i", "i")
expect_equal((list_1), "i")
expect_error((list_2),
"Only 'lis', 'lws', 'erflis', 'i', 'w' and 'e' are valid values for databases. Got 'b'")
expect_error((list_3),
"Attribute 'database' is NULL")
expect_error((list_4),
"Attribute 'database' must have length 1.",
fixed = )
})
# get_index_hh_heads ------------------------------------------------------
test_that("get_index_hh_heads works as expected on data from readstata13", {
zz55ip <- ((hid = (1L, 2L, 3L, 3L, 4L),
pid = (1L, 1L, 1L, 2L, 1L),
relation = ((1L, 1L, 1L, 3L, 1L),
.Label = ("[1000]head",
"[2000]spouse/partner",
"[2100]spouse",
"[2200]cohabiting partner",
"[3000]child",
"[3100]own child (incl adopted)"),
= "factor")),
= (, 5L),
= "data.frame")
expect_equal((zz55ip), (, , , , ))
})
