tests/testthat.R

library(testthat)
library(lazyu)

string <- lazyu::get_os()

test_that("string system name", {
  osStrings <- which_os()
  expect_match(osStrings, string, ignore.case = TRUE)
})
kang-yu/lazyu documentation built on May 30, 2019, 11:42 a.m.