test_that("language() works", {
  expect_equal(language(iris_dataset), "en")
})

myiris <- iris_dataset
value <- "fr"

test_that("language() works", {
  language(x = myiris) <- "fr"
  expect_equal(language(myiris), "fra")
})


test_that("language() works", {
  language(x = myiris, iso_639_code = "639-1") <- "fr"
  expect_equal(language(myiris), "fr")
})

test_that("language() works", {
  language(x = myiris, iso_639_code = "639-1") <- "FR"
  expect_equal(language(myiris), "fr")
})

test_that("language()<- throws error", {
  expect_error(language(x = myiris) <- "hello",
    regexp = "Language=hello is not a valid ISO 639 language code"
  )
})