tests/testthat/test-get-osn-all-state-vectors.R

In longwei66/flightR: A package to interract with aviation-edge.com API

context("get All State Vectors from OpenSky Network API")
library(flightR)

test_that("getOSNallStateVectors raise error for bounding box if one coord is missing 1", {
    expect_error(getOSNallStateVectors(login = "a login", password = "a password", latitude.min = 2.3),
                 'All 4 coordinnates must be provided for a valid bounding box',
                 fixed = TRUE)
})
test_that("getOSNallStateVectors raise error for bounding box if one coord is missing 2", {
  expect_error(getOSNallStateVectors(login = "a login", password = "a password", longitude.min = 2.3),
               'All 4 coordinnates must be provided for a valid bounding box',
               fixed = TRUE)
})
test_that("getOSNallStateVectors raise error for bounding box if one coord is missing 3", {
  expect_error(getOSNallStateVectors(login = "a login", password = "a password", longitude.max = 2.3),
               'All 4 coordinnates must be provided for a valid bounding box',
               fixed = TRUE)
})
test_that("getOSNallStateVectors raise error for bounding box if one coord is missing 4", {
  expect_error(getOSNallStateVectors(login = "a login", password = "a password", latitude.max = 2.3),
               'All 4 coordinnates must be provided for a valid bounding box',
               fixed = TRUE)
})
test_that("getOSNallStateVectors handle null input for 'password' or 'login' parameter", {
  expect_error(getOSNallStateVectors(login = NULL, password = NULL),
               'Valid "login" and/or "password" are required',
               fixed = TRUE)
})