test_that("var_labels() works::", {
  expect_true(all(var_labels(iris_dataset) == ""))
  expect_error(var_labels(iris)) # must only work with a dataset object
})

relabelled <- set_var_labels(
  x=iris_dataset,
  value= c(Sepal.Length="The sepal length measured in centimeters.",
           Sepal.Width ="The sepal width measured in centimeters.",
           Species     ="The species of the iris observed.")
)

test_that("set_var_labels() works::", {
  expect_equal(as.character(var_labels(relabelled)["Sepal.Length"]), "The sepal length measured in centimeters.")
  expect_equal(as.character(var_labels(relabelled)["Petal.Width"]), "")
})