tests/coverage-Inf/tests-check/test-check-assert_frequency.R

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

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

set.seed(2035L)


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

testthat::test_that("good result for integer frequency", {
    testthat::expect_silent(
        object = {
            res <- assert_frequency(x = 12L)
        }
    )
    testthat::expect_identical(res, 12L)

    testthat::expect_silent(
        object = {
            res <- assert_frequency(x = 4L)
        }
    )
    testthat::expect_identical(res, 4L)
})

testthat::test_that("good result for double frequency without warning", {
    testthat::expect_silent(
        object = {
            res <- assert_frequency(x = 12.0, warn = FALSE)
        }
    )
    testthat::expect_identical(res, 12L)

    testthat::expect_silent(
        object = {
            res <- assert_frequency(x = 4.0, warn = FALSE)
        }
    )
    testthat::expect_identical(object = res, expected = 4L)
})


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

testthat::test_that("warning for integer date", {

    testthat::expect_warning(
        object = {
            res <- assert_frequency(x = 12.0, warn = TRUE)
        },
        regexp = double_instead_of_integer
    )
    testthat::expect_identical(object = res, expected = 12L)

    testthat::expect_warning(
        object = {
            res <- assert_frequency(x = 4.0, warn = TRUE)
        },
        regexp = double_instead_of_integer
    )
    testthat::expect_identical(object = res, expected = 4L)

    testthat::expect_warning(
        object = {
            res <- assert_frequency(x = 12.0)
        },
        regexp = double_instead_of_integer
    )
    testthat::expect_identical(res, 12L)

    testthat::expect_warning(
        object = {
            res <- assert_frequency(x = 4.0)
        },
        regexp = double_instead_of_integer
    )
    testthat::expect_identical(object = res, expected = 4L)

})


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

testthat::test_that("miscellaneous frequency are not allowed", {
    for (wrong_frequency in c(object_bank_R, weird_frequency)) {
        testthat::expect_error(
            object = assert_frequency(x = wrong_frequency, warn = FALSE)
        )
    }
})