tests/testthat/test_schemas.R

In rwars: R Client for the Star Wars API

context("Schema retrieval")
test_that("Schemas can be retrieved", {
  expect_true({get_planet_schema();TRUE})
  expect_true({get_species_schema();TRUE})
  expect_true({get_film_schema();TRUE})
  expect_true({get_vehicle_schema();TRUE})
  expect_true({get_starship_schema();TRUE})
  expect_true({get_person_schema();TRUE})
})

test_that("Schemas can be retrieved and parsed", {
  expect_true({get_planet_schema(TRUE);TRUE})
  expect_true({get_species_schema(TRUE);TRUE})
  expect_true({get_film_schema(TRUE);TRUE})
  expect_true({get_vehicle_schema(TRUE);TRUE})
  expect_true({get_starship_schema(TRUE);TRUE})
  expect_true({get_person_schema(TRUE);TRUE})
})