test_that("expect_snapshot_file works", {
  path <- write_tmp_lines(letters)
  expect_snapshot_file(path, "foo.r", compare = compare_file_text)

  path <- withr::local_tempfile()
  png(path, width = 300, height = 300, type = "cairo")
  plot(1:10, xlab = "", ylab = "", pch = 20, cex = 5, axes = FALSE)
  dev.off()
  expect_snapshot_file(path, "foo.png")

  path <- withr::local_tempfile()
  mtcars2 <- mtcars[1:5, 1:4]
  write.csv(mtcars2, path)
  expect_snapshot_file(path, "foo.csv", compare = compare_file_text)

  # Deprecated `binary` argument still works
  withr::local_options(lifecycle_verbosity = "quiet")
  expect_snapshot_file(path, "foo-not-binary.csv", binary = FALSE)
})


test_that("expect_snapshot_file works in a different directory", {
  path <- withr::local_tempdir()
  withr::local_dir(path)

  brio::write_lines("a", "a.txt", eol = "\r\n")

  # expect no warning
  expect_no_warning(expect_snapshot_file("a.txt"))
})

test_that("expect_snapshot_file works with variant", {
  local_on_cran(FALSE)

  expect_snapshot_file(
    write_tmp_lines(r_version()),
    "version.txt",
    compare = compare_file_text,
    variant = r_version()
  )
})

test_that("expect_snapshot_file finds duplicate snapshot files", {
  local_on_cran(FALSE)

  expect_snapshot(
    expect_snapshot_file(
      write_tmp_lines(r_version()),
      "version.txt",
      variant = r_version()
    ),
    error = TRUE
  )
})

test_that("basic workflow", {
  local_on_cran(FALSE)
  snapper <- local_test_snapshotter()

  path <- write_tmp_lines(letters)
  # warns on first run
  snapper$start_file("snapshot-6", "test")
  expect_warning(expect_snapshot_file(path, "letters.txt"), "Adding new")
  snapper$end_file()

  # succeeds if unchanged
  snapper$start_file("snapshot-6", "test")
  expect_success(expect_snapshot_file(path, "letters.txt"))
  snapper$end_file()

  # fails if changed
  snapper$start_file("snapshot-6", "test")
  path2 <- write_tmp_lines(letters[-1])
  expect_failure(expect_snapshot_file(path2, "letters.txt"), "has changed")
  snapper$end_file()
})

test_that("can announce snapshot file", {
  snapper <- local_test_snapshotter()
  snapper$start_file("snapshot-announce", "test")
  announce_snapshot_file(name = "bar.svg")
  expect_equal(snapper$snap_file_seen, "snapshot-announce/bar.svg")
})

test_that("can transform snapshot contents", {
  path <- withr::local_tempfile(lines = c("secret", "ssh secret squirrel"))

  redact <- function(x) gsub("secret", "<redacted>", x)
  expect_snapshot_file(path, "secret.txt", transform = redact)
})

# snapshot_file_equal -----------------------------------------------------

test_that("warns on first creation", {
  path <- write_tmp_lines("a")
  snap_dir <- withr::local_tempdir()

  snapshot_file_equal_ <- function(path) {
    snapshot_file_equal(
      snap_dir = snap_dir,
      snap_test = "my-test",
      snap_name = "test.txt",
      snap_variant = NULL,
      path = path,
      fail_on_new = FALSE
    )
  }

  # Warns on first run
  expect_snapshot(out <- snapshot_file_equal_(path))
  expect_true(out)

  # Errors on non-existing file
  expect_snapshot(snapshot_file_equal_("doesnt-exist.txt"), error = TRUE)

  # Unchanged returns TRUE
  expect_true(snapshot_file_equal_(path))
  expect_true(file.exists(file.path(snap_dir, "my-test/test.txt")))
  expect_false(file.exists(file.path(snap_dir, "my-test/test.new.txt")))

  # Changed returns FALSE
  path2 <- write_tmp_lines("b")
  expect_false(snapshot_file_equal_(path2))
  expect_true(file.exists(file.path(snap_dir, "my-test/test.txt")))
  expect_true(file.exists(file.path(snap_dir, "my-test/test.new.txt")))

  # Changing again overwrites
  path2 <- write_tmp_lines("c")
  expect_false(snapshot_file_equal_(path2))
  expect_equal(
    brio::read_lines(file.path(snap_dir, "my-test/test.new.txt")),
    "c"
  )

  # Unchanged cleans up
  expect_true(snapshot_file_equal_(path))
  expect_true(file.exists(file.path(snap_dir, "my-test/test.txt")))
  expect_false(file.exists(file.path(snap_dir, "my-test/test.new.txt")))
})

# helpers -----------------------------------------------------------------

test_that("text comparison ignores CR", {
  path1 <- write_tmp_lines(c("a", "b"))
  path2 <- write_tmp_lines(c("a", "b"), eol = "\r\n")

  expect_false(compare_file_binary(path1, path2))
  expect_true(compare_file_text(path1, path2))
})

test_that("split_path handles edge cases", {
  expect_equal(split_path(""), list(dir = "", name = "", ext = ""))

  expect_equal(split_path("a"), list(dir = "", name = "a", ext = ""))
  expect_equal(split_path("a"), list(dir = "", name = "a", ext = ""))
  expect_equal(split_path(".b"), list(dir = "", name = "", ext = "b"))
  expect_equal(split_path(".b.c"), list(dir = "", name = "", ext = "b.c"))

  expect_equal(split_path("x/a"), list(dir = "x", name = "a", ext = ""))
  expect_equal(split_path("x/a"), list(dir = "x", name = "a", ext = ""))
  expect_equal(split_path("x/.b"), list(dir = "x", name = "", ext = "b"))
  expect_equal(split_path("x/.b.c"), list(dir = "x", name = "", ext = "b.c"))
})

test_that("generates informative hint", {
  local_mocked_bindings(in_check_reporter = function() FALSE)
  withr::local_envvar(GITHUB_ACTIONS = "false", TESTTHAT_WD = NA)

  expect_snapshot(snapshot_hint("lala", reset_output = FALSE))
})

test_that("expect_snapshot_file validates its inputs", {
  path <- withr::local_tempfile(lines = "x")

  expect_snapshot(error = TRUE, {
    expect_snapshot_file(123)
    expect_snapshot_file("doesnt-exist.txt")
    expect_snapshot_file(path, 123)
    expect_snapshot_file(path, "test.txt", cran = "yes")
  })
})