tests/testthat/test_get_seismic_data.R

In iant04128591/quaker: The quaker API allows users to retrieve, analyse and visualize global seismic activity

library(quaker)

context('Checks that get_seismic_data works as expected')

test_that(desc = 'get_seismic_data produces geojson ', code = {
  expect_output(object = str(get_seismic_data(timeFrame = 'PAST_DAY', minMagnitude = '1')), 'List of 4')
  expect_is(object = get_seismic_data(timeFrame = 'PAST_WEEK', minMagnitude = 'all'), class = 'seismic_geojson')
  expect_error(get_seismic_data(timeFrame = 'PAST_CENTUARY', minMagnitude = 'all'))
})