tests/testthat/test_functions.R

In peter0083/LufthansaR: Lufthansa API Wrapper

context("Basic functionality tests")

# Get the existing cache option
cache_setting <- getOption("lufthansar_cache_token", default = NULL)

# Prepare token for tests
options(lufthansar_token_cache = TRUE)
testtoken <- get_token()

#########################
#### Functionality Tests
#########################


test_that('get_flight_status basic functionality', {
  #outputs

  expect_is(get_flight_status(),'list')
  expect_is(get_flight_status("LH123"),'list')
  expect_is(get_flight_status(verbose = FALSE),'list')
  expect_is(get_flight_status("LH123",verbose = FALSE ),'list')

})



test_that('airport basic functionality', {
  #outputs

  expect_is(airport(),'list')
  expect_is(airport("YYZ"),'list')
})



testthat::context("errors thrown correctly")

#skip('skip')

testthat::test_that("get_flight_status_arrival throws errors correctly", {

  testthat::expect_error(get_flight_status_arrival(airport = "123"))
  testthat::expect_error(get_flight_status_arrival(fromDateTime = "sam"))

})



testthat::test_that("get_flight_status throws errors correctly", {

  testthat::expect_error(get_flight_status(airport = "123"))
  testthat::expect_error(get_flight_status(date = "sammy"))

})

testthat::test_that("airport throws errors correctly", {

  testthat::expect_error(airport("123"))
  testthat::expect_error(airport(c(1,3,4)))

})


testthat::test_that("get_flight_status_departure throws errors correctly", {

  testthat::expect_error(get_flight_status_departure(airport = "123"))
  testthat::expect_error(get_flight_status_departure(fromDateTime = "sam"))

})


skip('skip')

test_that('get_flight_status_arrival basic functionality', {
  #outputs

  expect_is(get_flight_status_arrival(),'list')
  expect_is(get_flight_status_arrival(airport = "YYZ"),'list')
})


test_that('get_flight_status_departure basic functionality', {
  #outputs

  expect_is(get_flight_status_departure(),'list')
  expect_is(get_flight_status_departure(airport = "YVR"),'list')
})


# Restore cache setting
options(lufthansar_token_cache = cache_setting)

# Cleanup
file.remove('.other-name-token')
file.remove('.lufthansa-token')