tests/testthat/test-read-lgh.R

In paleolimbot/bsrto: Access Data from the Barrow Strait Real Time Observatory

test_that("read_igh() works", {
  file <- bs_example("lgh/20191010.lgH")

  lgh <- read_lgh(file)
  expect_true(all(!is.na(lgh$date_time)))
  expect_true(all(vapply(lgh$log_text, is.character, logical(1))))

  expect_identical(lgh, read_lgh_vector(file)[-1])
  expect_identical(
    colnames(read_lgh_vector(character())),
    c("file", "date_time", "log_text")
  )
})