tests/testthat/test-datasauce.R

In ropenscilabs/datasauce: Create and manipulate Schema.org Dataset metadata

testthat::context("Simple tests")

testthat::test_that("We can call a constructor", {
  x <- Thing(url = "http://schema.org")
  testthat::expect_is(x, "list")
  
  out <- as_jsonld(x)
  out <- write_jsonld(x, "x.json")
  
  unlink("x.json")
})