tests/testthat/test-obhistory_input.R

In floatgreen/airportweather: A package to get and visualize the weather data of airports in the US

context("test-obhistory_input")

test_that("correct input", {
  expect_error(obhistory(2333), "id is not a string")
  expect_error(obhistory("KAADF"),"id is not 4 characters")
  expect_error(obhistory("AAAA"),"url is not valid, maybe not a correct ID")
  expect_error(obhistory(c("KORD", "KAVX")),"num of argument should be 1")
  expect_error(obhistory(), "num of argument should be 1")
})