test_that("countdown html_dependency", {
  x <- countdown(1)

  x_deps <- htmltools::findDependencies(x)[[1]]

  expect_equal(x_deps$name, "countdown")
  expect_equal(x_deps$script, "countdown.js")
  expect_equal(x_deps$stylesheet, "countdown.css")
  expect_true(inherits(x_deps, "html_dependency"))
})

test_that("countdown() structure snapshot", {
  expect_snapshot(
    cat(format(
      countdown(
        minutes = 1,
        seconds = 30,
        id = "timer_1",
        class = "extra-class",
        warn_when = 15,
        update_every = 10,
        start_immediately = TRUE,
        blink_colon = TRUE,
        play_sound = TRUE
      )
    ))
  )
})

test_that("countdown()", {
  x <- countdown(
    1,
    30,
    id = "timer_1",
    class = "extra-class",
    play_sound = TRUE
  )

  expect_true(attr(x, "browsable_html"))
  expect_true(inherits(x, "shiny.tag"))
  expect_equal(x$name, "countdown-timer")
  expect_equal(x$attribs$class, "countdown extra-class")
  expect_equal(x$attribs$id, "timer_1")
  expect_equal(x$attribs$`play-sound`, "true")
  expect_equal(x$attribs$minutes, "1")
  expect_equal(x$attribs$seconds, "30")

  # seconds and minutes get added
  x_min_sec <- countdown(10.05, 65)
  expect_equal(x_min_sec$attribs$minutes, "11")
  expect_equal(x_min_sec$attribs$seconds, "8")

  expect_equal(countdown(class = "countdown")$attribs$class, "countdown")
  expect_equal(
    countdown(class = c("test", "countdown", "test"))$attribs$class,
    "countdown test"
  )

  expect_error(countdown(100), "minutes")
})

test_that("countdown() with user `style`", {
  x <- countdown(id = "test", style = "position: relative; width: 100%")
  expect_true(grepl("style=\".+?position: relative;", as.character(x)))
})

test_that("countdown() with update_every", {
  x <- countdown(1, 30, id = "timer_1", update_every = 15)

  expect_equal(x$attribs[["blink-colon"]], "true")
  expect_equal(x$attribs[["update-every"]], 15)
})

test_that("countdown() sets up timer correctly with warn_when", {
  x <- countdown(1, 30, warn_when = 15)
  expect_equal(x$attribs$`warn-when`, 15L)

  x <- countdown(1, 30, warn_when = 15.25)
  expect_equal(x$attribs$`warn-when`, 15L)

  expect_error(countdown(warn_when = 'after'))
})

test_that("countdown dependencies are included", {
  html_doc <- c(
    "---",
    "pagetitle: countdown test",
    "output: html_document",
    "---\n",
    "```{r}",
    "countdown::countdown()",
    "```"
  )

  tmpdir <- tempfile("")
  dir.create(tmpdir)
  tmp_rmd <- file.path(tmpdir, "countdown_test.Rmd")
  tmp_html <- sub("Rmd$", "html", tmp_rmd)

  cat(html_doc, file = tmp_rmd, sep = "\n")
  rmarkdown::render(
    tmp_rmd,
    output_options = list(self_contained = FALSE),
    quiet = TRUE
  )

  countdown_lib_dir <- dir(
    file.path(tmpdir, "countdown_test_files"),
    full.names = TRUE
  )
  countdown_lib_dir <- countdown_lib_dir[grepl("countdown-", countdown_lib_dir)]

  expect_true(dir.exists(countdown_lib_dir))
  expect_true(file.exists(file.path(countdown_lib_dir, "countdown.css")))
  expect_true(file.exists(file.path(countdown_lib_dir, "countdown.js")))
  expect_true(file.exists(file.path(countdown_lib_dir, "smb_stage_clear.mp3")))
})

test_that("make_unique_id is always unique", {
  set.seed(4242)
  id1 <- make_unique_id()

  set.seed(4242)
  id2 <- make_unique_id()

  expect_true(id1 != id2)
  expect_true(make_unique_id() != make_unique_id())
})

test_that("validates HTML ids", {
  expect_equal(validate_html_id("timer_001"), "timer_001")
  expect_error(validate_html_id("001"), "letter")
  expect_error(validate_html_id("timer&%$&1"), "characters")
  expect_error(validate_html_id("timer#1"), "character")
})