tests/testthat/test-format_timestamp.R

In IssueTrackeR: List Things to Do

test_that("format_timestamp works", {
    output_expected <- as.POSIXct(
        1743694674.0,
        origin = "1970-01-01",
        tz = "UTC"
    )
    testthat::expect_identical(
        object = IssueTrackeR:::format_timestamp(1743694674.9),
        expected = output_expected
    )
    testthat::expect_identical(
        object = IssueTrackeR:::format_timestamp(1743694674L),
        expected = output_expected
    )
    IssueTrackeR:::format_timestamp(Sys.time())
})