knitr::opts_chunk$set(
  error = TRUE,
  collapse = TRUE,
  comment = "#>",
  out.width = "100%"
)
library(testthat)
library(jeksterslabRutils)
context("Test util_os.")

Parameters

os <- util_os()
test_that("util_os works", {
  expect_true(
    (os %in% c("linux", "osx", "windows"))
  )
})


jeksterslabds/jeksterslabRutils documentation built on Jan. 18, 2021, 11:41 p.m.