tests/testthat/test-helpers.R

In freesurferformats: Read and Write 'FreeSurfer' Neuroimaging File Formats

# Unit tests testing the functions in helpers.R.

test_that("The readable.files function works as expected.", {
  subdir = sprintf('dir_%d', sample.int(10000L, 1L));
  empty_td = file.path(tempdir(), subdir);
  dir.create(empty_td);
  file.create(file.path(empty_td, 'lh.area'));
  file.create(file.path(empty_td, 'lh.area.mgh'));
  file.create(file.path(empty_td, 'lh.area.mgz'));

  expect_equal(length(readable.files(file.path(empty_td, 'lh.area'))), 1L); # 2 found, only 1 returned
  expect_equal(length(readable.files(file.path(empty_td, 'lh.area'), return_all = TRUE)), 2L); # 2 found, 2 returned

  expect_equal(length(readable.files(file.path(empty_td, 'lh.nosuchfile'), error_if_none = FALSE)), 0L); # 0 found, okay
  expect_error(readable.files(file.path(empty_td, 'lh.nosuchfile'), error_if_none = TRUE)); # 0 found, not okay

})