tests/testthat/test-read_plants.R

In isciences/eia923: Download and standardize EIA-923 data

context("test-read_plants")

test_that("returned structure is as expected", {
  dat <- read_plants(cache_dir='/tmp')

  expect_setequal(names(dat),
                  c('plant_id', 'plant_name', 'address', 'city', 'state', 'zip', 'lat', 'lon', 'primary_fuel', 'capacity_mw'))
})