test_that("dash_titles() returns expected slots", {
  ttl <- dash_titles("My App")
  expect_type(ttl, "list")
  expect_named(ttl, c("app_name", "brand", "deps"))
})

test_that("dash_brand_options() feeds dash_titles_from()", {
  brand <- dash_brand_options(
    name = "Atlas Forge",
    icon = "layer-group",
    collapsed = "AF",
    expanded = "Atlas Forge"
  )

  ttl <- dash_titles_from(brand)
  expect_equal(ttl$app_name, "Atlas Forge")
  expect_match(as.character(ttl$brand), "fa-layer-group", fixed = TRUE)

  deps <- as.character(ttl$deps)
  expect_match(deps, "AF", fixed = TRUE)
  expect_match(deps, "Atlas Forge", fixed = TRUE)
})

test_that("dash_titles_from() allows overrides", {
  brand <- dash_brand_options(
    name = "Atlas Forge",
    icon = "layer-group",
    collapsed = "AF",
    expanded = "Atlas Forge"
  )

  ttl <- dash_titles_from(brand, app_name = "Custom")
  expect_equal(ttl$app_name, "Custom")
})

test_that("app_name defaults to brand_text when not supplied", {
  ttl <- dash_titles("My App")
  expect_equal(ttl$app_name, "My App")
})

test_that("app_name uses explicit value when supplied", {
  ttl <- dash_titles("My App", app_name = "Custom Title")
  expect_equal(ttl$app_name, "Custom Title")
})

test_that("brand slot is a shiny tag or tagList", {
  ttl <- dash_titles("My App", icon = "chart-line")
  expect_true(inherits(ttl$brand, c("shiny.tag", "shiny.tag.list")))
})

test_that("deps slot is a shiny tag or tagList", {
  ttl <- dash_titles("My App")
  expect_true(inherits(ttl$deps, c("shiny.tag", "shiny.tag.list")))
})

test_that("effect argument is validated", {
  expect_no_error(dash_titles("My App", effect = "none"))
  expect_no_error(dash_titles("My App", effect = "glow", glow_color = "#333333"))
  expect_no_error(dash_titles("My App", effect = "shimmer", glow_color = "#333333"))
  expect_no_error(dash_titles("My App", effect = "emboss"))
  expect_error(dash_titles("My App", effect = "invalid_effect"))
})

test_that("gradient overrides effect argument without error", {
  expect_no_error(
    dash_titles("My App", gradient = c("#2f6f8f", "#5ba3c9"), effect = "glow")
  )
})

test_that("collapsed and expanded modes are validated", {
  expect_no_error(dash_titles("My App", icon = "cloud", collapsed = "icon-only"))
  expect_no_error(dash_titles("My App", icon = "cloud", collapsed = "icon-text"))
  expect_no_error(dash_titles("My App", collapsed = "text-only"))

  expect_no_error(dash_titles("My App", icon = "cloud", expanded = "icon-only"))
  expect_no_error(dash_titles("My App", icon = "cloud", expanded = "icon-text"))
  expect_no_error(dash_titles("My App", expanded = "text-only"))

  expect_error(dash_titles("My App", collapsed = "bad-mode"))
  expect_error(dash_titles("My App", expanded = "bad-mode"))
})

test_that("icon_shape is validated when icon_img is used", {
  expect_no_error(dash_titles("My App", icon_img = "logo.png", icon_shape = "circle"))
  expect_no_error(dash_titles("My App", icon_img = "logo.png", icon_shape = "rounded"))
  expect_no_error(dash_titles("My App", icon_img = "logo.png", icon_shape = "square"))
  expect_error(dash_titles("My App", icon_img = "logo.png", icon_shape = "hexagon"))
})

test_that("dash_titles() accepts shiny icon tags", {
  ttl <- dash_titles("My App", icon = shiny::icon("cloud"))
  expect_true(inherits(ttl$brand, c("shiny.tag", "shiny.tag.list")))
  expect_match(as.character(ttl$brand), "fa-cloud", fixed = TRUE)
})

test_that("dash_nav_title() accepts shiny icon tags", {
  nav <- dash_nav_title("My Title", icon = shiny::icon("globe"))
  expect_match(as.character(nav), "fa-globe", fixed = TRUE)
})

test_that("dash_titles() emits targeted icon validation errors", {
  expect_error(
    dash_titles("My App", icon = shiny::tags$div("bad")),
    "must be a Font Awesome icon name"
  )
})

test_that("text-only defaults are used when no icon is supplied", {
  ttl <- dash_titles("My App")
  html <- as.character(ttl$deps)

  expect_match(html, "dash-sb-collapsed-text_only", fixed = TRUE)
  expect_match(html, "dash-sb-expanded-text_only", fixed = TRUE)
  expect_match(html, "My App", fixed = TRUE)
})

test_that("brand_text is used as the default expanded sidebar label", {
  ttl <- dash_titles(
    "My App",
    icon = "cloud",
    expanded = "icon-text"
  )

  html <- as.character(ttl$deps)
  expect_match(html, "My App", fixed = TRUE)
})

test_that("collapsed icon-text without collapsed_text uses brand_text", {
  ttl <- dash_titles(
    "My App",
    icon = "cloud",
    collapsed = "icon-text",
    expanded = "icon-text"
  )

  html <- as.character(ttl$deps)
  expect_match(html, "My App", fixed = TRUE)
})

test_that("long collapsed_text emits the current warning", {
  expect_warning(
    dash_titles(
      "My App",
      icon = "cloud",
      collapsed = "icon-text",
      collapsed_text = "THISISLONGER"
    ),
    "collapsed_text"
  )
})

test_that("sidebar mode script resets mode classes before applying new ones", {
  deps <- use_dash_sidebar_brand_mode(
    icon = "cloud",
    collapsed = "icon-only",
    expanded = "icon-text"
  )

  html <- as.character(deps)
  expect_match(html, "dash-sb-collapsed-", fixed = TRUE)
  expect_match(html, "replace(/\\bdash-sb-collapsed-", fixed = TRUE)
  expect_match(html, "replace(/\\bdash-sb-expanded-", fixed = TRUE)
})

test_that("sidebar mode script cleans up old listeners and observers", {
  deps <- use_dash_sidebar_brand_mode(
    icon = "cloud",
    collapsed = "icon-only",
    expanded = "icon-text"
  )

  html <- as.character(deps)
  expect_match(html, "__bs4DashkitSidebarBrandCleanup", fixed = TRUE)
  expect_match(html, "removeEventListener('mouseenter'", fixed = TRUE)
  expect_match(html, "observer.disconnect()", fixed = TRUE)
})

test_that("sidebar title sizing and weight options are forwarded", {
  ttl <- dash_titles(
    "My App",
    icon = "cloud",
    collapsed_text_size = "11px",
    expanded_text_size = "16px",
    collapsed_text_weight = 600,
    expanded_text_weight = 800
  )

  html <- as.character(ttl$deps)
  expect_match(html, "11px", fixed = TRUE)
  expect_match(html, "16px", fixed = TRUE)
  expect_match(html, "600", fixed = TRUE)
  expect_match(html, "800", fixed = TRUE)
  expect_match(html, "setProperty('font-weight'", fixed = TRUE)
})

test_that("sidebar mode text is encoded as JavaScript literals", {
  deps <- use_dash_sidebar_brand_mode(
    icon = "cloud",
    collapsed = "icon-text",
    expanded = "icon-text",
    collapsed_text = "O'Brien\\Short",
    expanded_text = "Line one\n</script> line two"
  )

  html <- as.character(deps)
  expect_match(html, 'var SHORT          = "O\'Brien\\\\Short";', fixed = TRUE)
  expect_match(html, 'var LONG           = "Line one\\n', fixed = TRUE)
  expect_false(grepl("var SHORT          = 'O'Brien", html, fixed = TRUE))
})

test_that("sidebar mode validates CSS style options", {
  expect_error(
    use_dash_sidebar_brand_mode(
      icon = "cloud",
      collapsed_text_size = "11px;display:none"
    ),
    "collapsed_text_size"
  )
})

test_that("brand_text may be omitted for fully icon-only brands", {
  ttl <- dash_titles(
    brand_text = NULL,
    app_name = "Icon App",
    icon = "cloud",
    collapsed = "icon-only",
    expanded = "icon-only"
  )

  expect_equal(ttl$app_name, "Icon App")
  html <- as.character(ttl$brand)
  expect_match(html, "fa-cloud", fixed = TRUE)
  expect_false(grepl("dash-brand-label", html, fixed = TRUE))
})

test_that("brand_text cannot be omitted when a visible text mode is used", {
  expect_error(
    dash_titles(
      brand_text = NULL,
      icon = "cloud",
      collapsed = "icon-only",
      expanded = "icon-text"
    ),
    "must be a non-empty string"
  )
})

test_that("missing brand_text falls back to bs4Dashkit app_name with a warning", {
  expect_warning(
    ttl <- dash_titles(
      brand_text = NULL,
      icon = "cloud",
      collapsed = "icon-only",
      expanded = "icon-only"
    ),
    "browser title will fall back"
  )

  expect_equal(ttl$app_name, "bs4Dashkit")
})

test_that("brand UI validates CSS style options", {
  expect_error(
    dash_brand_ui("My App", color = "#fff;background:red"),
    "color"
  )
  expect_error(
    dash_brand_ui("My App", gradient = c("#fff", "</style>")),
    "gradient"
  )
})