tests/testthat/test-instruments.R

In openaq: Access Air Quality Data from the 'OpenAQ' API

test_that("get_instrument(2) works", {
  vcr::use_cassette("get_instrument_2", {
    instrument <- get_instrument(2)
  })
  testthat::expect_type(instrument, "list")
  testthat::expect_true(is.data.frame(instrument))
  testthat::expect_true(nrow(instrument) == 1)
})

test_that("list_manufacturer_instruments() works", {
  vcr::use_cassette("list_manufacturer_instruments_8", {
    instruments <- list_manufacturer_instruments(8)
  })
  testthat::expect_type(instruments, "list")
  testthat::expect_true(is.data.frame(instruments))
  testthat::expect_true(nrow(instruments) == 1)
})


test_that("list_instruments() works", {
  vcr::use_cassette("list_instruments", {
    instruments <- list_instruments()
  })
  testthat::expect_type(instruments, "list")
  testthat::expect_true(is.data.frame(instruments))
  testthat::expect_true(nrow(instruments) == 1)
})

test_that("get_instrument(2) as list works", {
  vcr::use_cassette("get_instrument_2_list", {
    instrument <- get_instrument(2, as_data_frame = FALSE)
  })
  testthat::expect_type(instrument, "list")
  testthat::expect_false(is.data.frame(instrument))
  testthat::expect_true(length(instrument) == 1)
})


test_that("list_instruments() as list works", {
  vcr::use_cassette("list_instruments_list", {
    instruments <- list_instruments(as_data_frame = FALSE)
  })
  testthat::expect_type(instruments, "list")
  testthat::expect_false(is.data.frame(instruments))
  testthat::expect_true(length(instruments) == 1)
})


test_that("list_manufacturer_instruments(8) as list works", {
  vcr::use_cassette("list_manufacturer_instruments_8_list", {
    instruments <- list_manufacturer_instruments(8, as_data_frame = FALSE)
  })
  testthat::expect_type(instruments, "list")
  testthat::expect_false(is.data.frame(instruments))
  testthat::expect_true(length(instruments) == 1)
})