tests/testthat/test-provenance.R

In dataset: Create Data Frames that are Easier to Exchange and Reuse

test_that("provenance(x) works", {
  expect_error(provenance(mtcars))
  tested <- dataset_df(x=mtcars)
  expect_true(class(provenance(iris_dataset)[1])=="character")
  expect_output(print(provenance(tested)), "<http://example.com/dataset#>")
  provenance(x=tested) <-n_triple("https://doi.org/10.5281/zenodo.10396807", "http://www.w3.org/ns/prov#wasInformedBy", "http://example.com/source#1")
  expect_output(print(provenance(tested)), "<http://example.com/source#1>")
})