test_that("dataset_title() works", {
  expect_equal(dataset_title(iris_dataset), "Iris Dataset")
  expect_error(dataset_title(mtcars),
               regexp = "must be a dataset object created with dataset")
  expect_error(dataset_title(mtcars) <- "Error")
})

test_that("dataset_title() <- value works with overwrite", {
  iris_dataset_2 <- iris_dataset
  dataset_title(x = iris_dataset_2, overwrite = TRUE) <- "The Famous Iris Dataset"
  expect_equal(dataset_title(iris_dataset_2), "The Famous Iris Dataset")
})

test_that("dataset_title() <- value works without overwrite", {
  iris_dataset_2 <- iris_dataset
  expect_warning(
    dataset_title(x = iris_dataset_2,
                  overwrite = FALSE) <- "The Most Famous Iris Dataset")
})