tests/testthat/test-sweep_for_stations.R

test_that("sweep_for_stations returns correct default", {
  DT <- sweep_for_stations()
  expect_equal(DT$name[1], "CANBERRA AIRPORT")
  expect_equal(data.table::last(DT$name), "MAWSON")
})

Try the bomrang package in your browser

Any scripts or data that you put into this service are public.

bomrang documentation built on March 29, 2021, 5:11 p.m.