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 June 27, 2024, 5:10 p.m.