vignettes/tests/test_util_distro.Rmd
test_util_distro.Rmd
library(testthat)
library(jeksterslabRutils)
context("Test util_distro.")
os <- util_os()
# It's difficult to hard code tests for distro
# since the package can be used in a variety of Linux Distributions.
distro <- util_distro()
test_that("util_os works", {
expect_true(
(os %in% c("linux", "osx", "windows"))
)
})
#> Test passed 😸
test_that("util_distro works", {
if (os == "osx" | os == "windows") {
expect_equivalent(
distro,
os
)
}
})
#> ── Skip (???): util_distro works ───────────────────────────────────────────────
#> Reason: empty test