test_that("rights() works", {
  myiris <- iris_dataset
  expect_equal(rights(iris_dataset), ":tba")
  expect_error(rights(myiris) <- c(":unas", "hello"),
    regexp = "must have length=1"
  )
})

test_that("rights() works", {
  myiris <- iris_dataset
  iris_dataset2 <- myiris
  expect_equal(rights(myiris), ":tba")
  expect_equal(class(rights(iris_dataset2)), "character")
  expect_equal(rights(myiris, FALSE) <- "CC0", "CC0") # change :unas is not an overwrite
  rights(x = myiris) <- NULL
  expect_equal(rights(myiris), ":unas")
})