library(colourspace)

# Tests for hex values that have no exact name match,
# exercising the nearest-neighbour fallback path.

test_that("fallback returns a non-NA name for a single unmatched hex", {
  # #a1b2c3 has no exact entry in color_names
  expect_warning(
    res <- hex_to_name("#a1b2c3", fallback = TRUE),
    "Fallback"
  )
  expect_type(res, "character")
  expect_length(res, 1)
  expect_false(is.na(res))
})

test_that("fallback returns non-NA names for a vector of unmatched hexes", {
  unmatched <- c("#a1b2c3", "#070301", "#f0f0f1", "#abcabc")
  expect_warning(
    res <- hex_to_name(unmatched, fallback = TRUE),
    "Fallback"
  )
  expect_type(res, "character")
  expect_length(res, length(unmatched))
  expect_false(anyNA(res))
})

test_that("fallback with different distance metrics all return valid names", {
  hex <- "#a1b2c3"
  metrics <- c("lab", "oklch", "rgb", "hsl")
  for (m in metrics) {
    expect_warning(
      res <- hex_to_name(hex, fallback = TRUE, distance = m),
      "Fallback"
    )
    expect_type(res, "character")
    expect_false(is.na(res))
  }
})

test_that("mixed matched and unmatched hexes return correct results", {
  # #c93f38 has exact match "100 Mph"; #070301 does not
  mixed <- c("#c93f38", "#070301")
  expect_warning(
    res <- hex_to_name(mixed, fallback = TRUE),
    "Fallback"
  )
  expect_length(res, 2)
  expect_equal(res[1], "100 Mph")
  expect_false(is.na(res[2]))
  expect_type(res[2], "character")
})