tests/testthat/test-ls.R

In epi-sam/SamsElves: Helper functions for the data science at IHME

# started: 2023 Oct 04 09:02:04
# dumb test to ensure you can access the file system

test_that(
  "ls works",
  {
  sys_return <- system("ls / | head -n1", intern = TRUE)
  expect_equal(sys_return, "bin")
  }
)