tests/testthat/test-sweep_for_stations.R

context("Sweep for stations")

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 Sept. 12, 2018, 9:03 a.m.