tests/testthat/test-saved-tracks.R

In condwanaland/spotty: What the Package Does (One Line, Title Case)

# test_that("get_saved_tracks works", {
#   skip_on_cran()
#   expect_error(get_saved_tracks(), NA)
#   expect_gt(nrow(get_saved_tracks()), 500)
#   expect_equal(ncol(get_saved_tracks()), 11)
# })

test_that("get_saved_tracks works", {
  skip_on_cran()
  skip_if_not(interactive())
  dat <- get_saved_tracks()
  #expect_error(get_saved_tracks(), NA)
  expect_gt(nrow(dat), 500)
  expect_equal(ncol(dat), 11)
})