# =============================================================================
# Tests for Ambiguous Match Handling
# =============================================================================

test_that("get_ambiguous_matches returns NULL when no ambiguous matches", {
  # Use species that match unambiguously
  species_list <- c("Cattleya maxima", "Polylepis incana")
  matching_threatenedperu(species_list)
  result <- is_threatened_peru(species_list, return_details = TRUE)

  # Should return NULL and message
  expect_message(
    ambig <- get_ambiguous_matches(result, type = "genus"),
    "No ambiguous.*found"
  )
  expect_null(ambig)
})



#test_that("get_ambiguous_matches validates input", {
#  # Test with invalid input
#  expect_error(
#    get_ambiguous_matches("not a dataframe"),
#    "must be a data frame"
#  )
#
#  expect_error(
#    get_ambiguous_matches(list(a = 1, b = 2)),
#    "must be a data frame"
#  )
#})
#
#test_that("get_ambiguous_matches handles invalid type parameter", {
#  species_list <- c("Cattleya maxima")
#  result <- is_threatened_peru(species_list, return_details = TRUE)
#
#  # Invalid type should error via match.arg
#  expect_error(
#    get_ambiguous_matches(result, type = "invalid"),
#    "should be one of"
#  )
#})
#
#
#test_that("get_ambiguous_matches handles missing output directory", {
#  #skip_on_cran()
#
#  species_list <- c("Cattleya maxima")
#  result <- is_threatened_peru(species_list, return_details = TRUE)
#
#  # Non-existent directory should be created
#  temp_base <- tempdir()
#  new_dir <- file.path(temp_base, "new_test_dir", "nested")
#
#  # Ensure directory doesn't exist
#  if (dir.exists(new_dir)) {
#    unlink(new_dir, recursive = TRUE)
#  }
#
#  # Should create directory and not error
#  expect_no_error({
#    get_ambiguous_matches(
#      result,
#      type = "genus",
#      save_to_file = TRUE,
#      output_dir = new_dir
#    )
#  })
#
#  # Cleanup
#  if (dir.exists(new_dir)) {
#    unlink(new_dir, recursive = TRUE)
#  }
#})
#
#