tests/testthat/test-commandline.R

# devtools::load_all()

test_that("System command", {

  get_os()
  get_ram()

  cmd <- rand_string()
  if(Sys.which(cmd) == ""){
    expect_true(is.na(safe_system2(cmd, character(0L))))
  }


})

Try the dipsaus package in your browser

Any scripts or data that you put into this service are public.

dipsaus documentation built on July 9, 2023, 5:43 p.m.