tests/testthat/test_connections.R

In bbuchsbaum/neurosurf: Data structures and visualization for surface-based neuroimaging data

test_that("read_freesurfer_annot closes connection on error", {
  f <- system.file("extdata", "rscan01_lh.gii", package = "neurosurf")
  before <- showConnections(all = TRUE)
  expect_error(read_freesurfer_annot(f, NULL))
  after <- showConnections(all = TRUE)
  expect_equal(nrow(after), nrow(before))
})

test_that("readFreesurferBinaryHeader closes connection on error", {
  tf <- tempfile()
  writeBin(as.raw(1:10), tf)
  before <- showConnections(all = TRUE)
  expect_error(readFreesurferBinaryHeader(tf))
  after <- showConnections(all = TRUE)
  expect_equal(nrow(after), nrow(before))
})

test_that("readFreesurferBinaryGeometry closes connection on error", {
  tf <- tempfile()
  writeBin(as.raw(1:10), tf)
  before <- showConnections(all = TRUE)
  expect_error(readFreesurferBinaryGeometry(tf))
  after <- showConnections(all = TRUE)
  expect_equal(nrow(after), nrow(before))
})