tests/testthat/test-add-many.R

In mbertolacci/bomdata: Data from the Australian Bureau of Meteorology

context('add-many')

futile.logger::flog.threshold(futile.logger::ERROR, name = 'bomdata')

## add_many_sites

test_that('add_many_sites returns data', with_db(function(db_connection) {
  add_many_sites(
    db_connection,
    c(3003, 40780, 200340),
    n_parallel = 1
  )

  site_data <- get_site(db_connection, 3003)
  expect_equal(site_data[1, 'number'], 3003)
}))