tests/testthat/test-get.R

In jsta/twilight: R interface to the USNO Sun or Moon Rise/Set Data Service

context("twilight works")


test_that("arguments are valid", {
  expect_error(tw_daylength(year = 2015, lon_deg = 80, lon_min = 26,
                            lat_deg = 25, lat_min = 5, tz = 5, state = "FL",
                            city = "Key Largo"),
               "Must specify either a state/city or
 geographic coordinates but not both.", fixed = TRUE)
})

test_that("twilight works", {
  skip_on_cran()

  expect_equal(tw_daylength(year = 2015,
                            state = "FL",
                            city = "Key Largo")[1,1],
               "1037")
})

test_that("missing arguments are flagged", {
  expect_error(sunsetrise_yr(year = 2015, state = "FL"),
"Must specify a complete set of either a state/city pair or
 geographic coordinate arguments.")
})