tests/testthat/test-read_raw.R

In MartinSchobben/point: Reading, Processing, and Analysing Raw Ion Count Data

#-------------------------------------------------------------------------------
# minimum functionality (over time with snapshots)
#-------------------------------------------------------------------------------
# Test datasets in extdata directory

test_that("Check change over time in read_IC", {
  expect_snapshot(
    read_IC(point_example("2018-01-19-GLENDON"))
  )
  expect_snapshot(
    read_meta(point_example("2018-01-19-GLENDON"))
  )
})

#-------------------------------------------------------------------------------
# Helper functions
#-------------------------------------------------------------------------------

# Error when directory argument class is wrong
test_that("read_IC input error", {
  expect_warning(unfold(read_IC(point_example("2018-01-19-GLENDON")), type = "other"), "Attribute unavailable.")
  })

# Testing the class of the retrieved data
test_that("read_IC creates a tibble", {
  expect_s3_class(read_IC(point_example("2018-01-19-GLENDON")), "tbl_df")
})

# Directory check
test_that("directory check", {
  #expect_snapshot(ICdir_chk(point_example("2018-01-19-GLENDON")))
  expect_error(
    ICdir_chk(point_example("2018-01-19-GLENDON"), "file"),
    "Unknown extension."
    )
  # create dummy directory
  fs::dir_create(fs::path_package("point", "extdata"), "2018-01-21-GLENDON")
  expect_error(
    read_validator(point_example("2018-01-21-GLENDON")),
    "`directory` does not contain any files."
    )
  fs::dir_delete(fs::path_package("point", "extdata", "2018-01-21-GLENDON"))
  # delete dummy directory
  expect_error(
    read_validator(fs::path_package("point", "R")),
    "`directory` does not contain required filetypes: .is_txt, .chk_is, and .stat."
    )
  # create dummy file
  fs::file_create(fs::path_package("point", "extdata", "2018-01-19-GLENDON"), "file_1_1", ext = "is_txt")
  expect_warning(
    read_validator(point_example("2018-01-19-GLENDON"), "is_txt"),
    "Empty txt file removed."
    )
  # remove dummy file
  fs::file_delete(fs::path_package("point", "extdata", "2018-01-19-GLENDON", "file_1_1", ext = "is_txt"))
})