tests/coverage-Inf/tests-conversion/test-conversion-mens2trim.R

In TractorTsbox: Wrangle and Modify Ts Object with Classic Frequencies and Exact Dates

# Initialisation ---------------------------------------------------------------

set.seed(2030L)


# Tests de résultats positifs --------------------------------------------------

testthat::test_that("good result for integer date", {
    for (good_year in good_years) {
        for (mens in good_months) {
            real_month <- (mens - 1L) %% 12L + 1L
            year_real <- good_year + (mens - 1L) %/% 12L
            date_expected <- as.integer(c(year_real, conversion_month_quarter[real_month, "quarter"]))
            res <- mens2trim(c(good_year, mens))

            testthat::expect_identical(res, date_expected)
            testthat::expect_type(res, "integer")
        }
    }
})


# Tests de résultats négatifs --------------------------------------------------

testthat::test_that("detection of wrong dates", {
    for (wrong_date in list_wrong_date_ts) testthat::expect_error(mens2trim(wrong_date))
})


# Tests positifs avec warning --------------------------------------------------

testthat::test_that("warning for integer date", {
    for (good_year in good_years) {
        for (warning_month in warning_integer_months) {
            testthat::expect_warning(
                {
                    resQuarterly <- mens2trim(c(good_year, warning_month))
                },
                regexp = "Assertion on 'period' failed: Element 1 is not <= 12.0|Assertion on 'period' failed: Element 1 is not >= 1."
            )

            real_month <- (warning_month - 1L) %% 12L + 1L
            year_real <- good_year + (warning_month - 1L) %/% 12L
            date_expected <- as.integer(c(year_real, conversion_month_quarter[real_month, "quarter"]))

            testthat::expect_identical(resQuarterly, date_expected)
            testthat::expect_type(resQuarterly, "integer")
        }
    }
})

testthat::test_that("warning for double date", {
    for (warning_year in double_years) {
        for (good_month in good_months) {
            testthat::expect_warning(
                {
                    resQuarterly <- mens2trim(c(warning_year, good_month))
                },
                regexp = message_double("date_ts")
            )

            real_month <- (good_month - 1L) %% 12L + 1L
            year_real <- warning_year + (good_month - 1L) %/% 12L
            date_expected <- as.integer(c(year_real, conversion_month_quarter[real_month, "quarter"]))

            testthat::expect_identical(resQuarterly, date_expected)
            testthat::expect_type(resQuarterly, "integer")
        }
    }

    for (good_year in good_years) {
        for (warning_month in double_months) {
            testthat::expect_warning(
                {
                    resQuarterly <- mens2trim(c(good_year, warning_month))
                },
                regexp = message_double("date_ts")
            )

            real_month <- (warning_month - 1L) %% 12L + 1L
            year_real <- good_year + (warning_month - 1L) %/% 12L
            date_expected <- as.integer(c(year_real, conversion_month_quarter[real_month, "quarter"]))

            testthat::expect_identical(resQuarterly, date_expected)
            testthat::expect_type(resQuarterly, "integer")
        }
    }

    for (warning_year in double_years) {
        for (warning_month in double_months) {
            testthat::expect_warning(
                {
                    resQuarterly <- mens2trim(c(good_year, warning_month))
                },
                regexp = message_double("date_ts")
            )

            real_month <- (warning_month - 1L) %% 12L + 1L
            year_real <- good_year + (warning_month - 1L) %/% 12L
            date_expected <- as.integer(c(year_real, conversion_month_quarter[real_month, "quarter"]))

            testthat::expect_identical(resQuarterly, date_expected)
            testthat::expect_type(resQuarterly, "integer")
        }
    }
})

testthat::test_that("several warning", {
    for (warning_year in double_years) {
        for (warning_month in warning_integer_months) {
            w <- testthat::capture_warnings({
                resQuarterly <- mens2trim(c(warning_year, warning_month))
            })
            testthat::expect_match(object = w, regexp = message_double("date_ts"), all = FALSE)
            testthat::expect_match(
                object = w,
                regexp = paste(
                    "Assertion on 'period' failed: Element 1 is not <= 12.0",
                    "Assertion on 'period' failed: Element 1 is not >= 1.", sep = "|"
                ),
                all = FALSE
            )

            real_month <- (warning_month - 1L) %% 12L + 1L
            year_real <- warning_year + (warning_month - 1L) %/% 12L
            date_expected <- as.integer(c(year_real, conversion_month_quarter[real_month, "quarter"]))

            testthat::expect_identical(resQuarterly, date_expected)
            testthat::expect_type(resQuarterly, "integer")
        }
    }

    for (warning_year in double_years) {
        for (warning_month in warning_double_months) {
            w <- testthat::capture_warnings({
                resQuarterly <- mens2trim(c(warning_year, warning_month))
            })
            testthat::expect_match(object = w, regexp = message_double("date_ts"), all = FALSE)

            testthat::expect_match(
                object = w,
                regexp = paste(
                    "Assertion on 'period' failed: Element 1 is not <= 12.0",
                    "Assertion on 'period' failed: Element 1 is not >= 1.", sep = "|"
                ),
                all = FALSE
            )

            real_month <- (warning_month - 1L) %% 12L + 1L
            year_real <- warning_year + (warning_month - 1L) %/% 12L
            date_expected <- as.integer(c(year_real, conversion_month_quarter[real_month, "quarter"]))

            testthat::expect_identical(resQuarterly, date_expected)
            testthat::expect_type(resQuarterly, "integer")
        }
    }

    for (good_year in good_years) {
        for (warning_month in warning_double_months) {
            w <- testthat::capture_warnings({
                resQuarterly <- mens2trim(c(good_year, warning_month))
            })
            testthat::expect_match(object = w, regexp = message_double("date_ts"), all = FALSE)
            testthat::expect_match(
                object = w,
                regexp = paste(
                    "Assertion on 'period' failed: Element 1 is not <= 12.0",
                    "Assertion on 'period' failed: Element 1 is not >= 1.", sep = "|"
                ),
                all = FALSE
            )

            real_month <- (warning_month - 1L) %% 12L + 1L
            year_real <- good_year + (warning_month - 1L) %/% 12L
            date_expected <- as.integer(c(year_real, conversion_month_quarter[real_month, "quarter"]))

            testthat::expect_identical(resQuarterly, date_expected)
            testthat::expect_type(resQuarterly, "integer")
        }
    }
})