inst/tinytest/test_gtfsio_error.R

In gtfsio: Read and Write General Transit Feed Specification (GTFS) Files

# input checks

expect_error(
  gtfsio:::gtfsio_error(message = c("oi", "ola"), subclass = "test"),
  class = "simpleError"
)

expect_error(
  gtfsio:::gtfsio_error(message = "oi", subclass = 1),
  class = "simpleError"
)

# error structure

an_error <- tryCatch(
  gtfsio:::gtfsio_error("oi"),
  error = function(cnd) cnd
)
expect_true(all(c("doTryCatch_error", "gtfsio_error") %in% class(an_error)))

an_error <- tryCatch(
  gtfsio:::gtfsio_error("oi", subclass = "test"),
  error = function(cnd) cnd
)
expect_true(
  all(
    c("test", "doTryCatch_error", "gtfsio_error") %in% class(an_error)
  )
)
expect_equal(an_error$message, "oi")

# checking the function that is assigned to the error

fake_fn <- function(parent = FALSE) {
  if (!parent) gtfsio:::gtfsio_error("oi", "test")

  parent_call <- sys.call(-1)
  gtfsio:::gtfsio_error("oi", "test", call = parent_call)
}

other_error <- tryCatch(
  fake_fn(),
  error = function(cnd) cnd
)
expect_inherits(other_error, "fake_fn_error")

# assigning parent function to the error

function_to_assign <- function() fake_fn(parent = TRUE)

last_error <- tryCatch(
  function_to_assign(),
  error = function(cnd) cnd
)
expect_inherits(last_error, "function_to_assign_error")

# error resulting from a gtfsio function called via the namespace operator (::)
# (e.g. gtfsio::assert_file_exists()) should assign the error to the function,
# but not to :: and gtfsio (:: is a function that takes the package and the
# function as arguments - if we don't pay attention to this, gtfsio_error() will
# assign the error to the wrong function in such cases)

path <- system.file("extdata/ggl_gtfs.zip", package = "gtfsio")
gtfs <- import_gtfs(path)
namespaced_error <- tryCatch(
  gtfsio::assert_file_exists(gtfs, "oi"),
  error = function(cnd) cnd
)
expect_inherits(namespaced_error, "assert_file_exists_error")
expect_true(sum(grepl("gtfsio_error", class(namespaced_error))) == 1)
expect_false(inherits(namespaced_error, "::_error"))

# parent_function_error() -------------------------------------------------


# should return a function
expect_inherits(gtfsio:::parent_function_error("oi", "ola"), "function")

# the function should assign the error to the parent function
test_error <- gtfsio:::parent_function_error("oi", "ola")
another_fake_fn <- function() {
  test_error()
}

expect_error(another_fake_fn(), "oi", class = "ola")
expect_error(another_fake_fn(), class = "another_fake_fn_error")