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))))
  }


})
dipterix/dipsaus documentation built on April 12, 2025, 11:38 a.m.