test_that("translation works", {
  expect_equal(
    google_translate("Hello",
      target_language = "nl"
    ),
    "Hallo"
  )
})

# Unit tests for vectorized input
test_that("google_translate returns correct translations for vectorized input", {
  text_to_translate <- c("the", "quick", "brown")
  translations <- google_translate(text_to_translate, target_language = "fr", source_language = "en")

  expected_translations <- list("le", "rapide", "brun")
  expect_equal(translations, expected_translations)
})

# Unit tests for unvectorized input
test_that("google_translate returns correct translation for unvectorized input", {
  text_to_translate <- "I love languages"
  translation <- google_translate(text_to_translate, target_language = "es")

  expected_translation <- "Me encantan los idiomas"
  expect_equal(translation, expected_translation)
})



# Unit tests for checking supported languages in Google Translate
test_that("google_is_valid_language_code: valid codes", {
  expect_true(google_is_valid_language_code("en"))
  expect_true(google_is_valid_language_code("fr"))
  expect_true(google_is_valid_language_code("auto"))
  expect_true(google_is_valid_language_code("iw"))
})

test_that("google_is_valid_language_code: invalid codes", {
  expect_false(google_is_valid_language_code("xx"))
})