library(dplyr, warn.conflicts = FALSE)
library(httr2, warn.conflicts = FALSE)

# function to create a mocking function that returns a given status code
mock_status <- function(status) {
  function(req) response(status_code = status)
}


test_that("spell_check_slides() works", {
  skip_on_os(c("mac", "windows"))
  skip_on_cran()
  spell_check_ref <- data.frame(word = c("Bird", "Schreibfehlr", "Wordlist"))
  spell_check_ref$found <- list(
    c("test.Rmd:15", "test.qmd:15"),
    c("test.Rmd:23", "test.qmd:23"),
    c("test.Rmd:25", "test.qmd:25")
  )
  class(spell_check_ref) <- c("summary_spellcheck", "data.frame")

  expect_equal(spell_check_slides(test_path("data")), spell_check_ref)

  # not using the wordlist leads to more spelling errors
  expect_gt(
    nrow(spell_check_slides(test_path("data"), use_wordlist = FALSE)),
    nrow(spell_check_ref)
  )

  # check empty directory
  withr::with_tempdir({
    expect_error(spell_check_slides(),
                 "No RMarkdown or Quarto files found.")
  })
})


test_that("is_no_spell_check() works for unmarked files", {
  expect_false(is_no_spell_check(test_path("data", "01_Rmd", "test.Rmd")))
  expect_false(is_no_spell_check(test_path("data", "01_Rmd", "test.qmd")))
})


test_that("is_no_spell_check() works with marker in the first line", {
  withr::with_tempfile("rmd_file", {
    writeLines(c("<!-- nospellcheck -->", "", "something"), rmd_file)
    expect_true(is_no_spell_check(rmd_file))
    fileext = ".Rmd"
  })
  withr::with_tempfile("qmd_file", {
    writeLines(c("<!-- nospellcheck -->", "", "something"), qmd_file)
    expect_true(is_no_spell_check(qmd_file))
    fileext = ".qmd"
  })
})


test_that("is_no_spell_check() works with marker after yaml header", {
  withr::with_tempfile("rmd_file", {
    writeLines(c("---", "title: test", "---",
                 "<!-- nospellcheck -->", "", "something"),
               rmd_file)
    expect_true(is_no_spell_check(rmd_file))
    fileext = ".Rmd"
  })
  withr::with_tempfile("qmd_file", {
    writeLines(c("---", "title: test", "---", "",
                 "<!--nospellcheck  -->", "", "something"), qmd_file)
    expect_true(is_no_spell_check(qmd_file))
    fileext = ".qmd"
  })
})


test_that("is_no_spell_check() works with an incomplete yaml header", {
  # since the marker must come after the end of the yaml header, an incomplete
  # yaml header leads to the file not being ignored.
  withr::with_tempfile("rmd_file", {
    writeLines(c("---", "title: test", "",
                 "<!-- nospellcheck -->", "", "something"),
               rmd_file)
    expect_false(is_no_spell_check(rmd_file))
    fileext = ".Rmd"
  })
  withr::with_tempfile("qmd_file", {
    writeLines(c("---", "title: test", "", "something"), qmd_file)
    expect_false(is_no_spell_check(qmd_file))
    fileext = ".qmd"
  })
})

test_that("spell_check_evaluation() works", {
  skip_on_os(c("mac", "windows"))
  skip_on_cran()
  spell_check_ref <- data.frame(
    word = c("bonjour", "Schreibfehlr", "speling", "Wordlist")
  )
  spell_check_ref$found <- list(
    c("Beurteilung_Reto.Rmd:24", "Beurteilung_Sandro.qmd:24"),
      "Beurteilung_Sandro.qmd:22",
      "Beurteilung_Reto.Rmd:22",
      "Beurteilung_Sandro.qmd:13"
    )
  class(spell_check_ref) <- c("summary_spellcheck", "data.frame")

  expect_equal(spell_check_evaluation(test_path("data")), spell_check_ref)

  # not using the wordlist leads to more spelling errors
  expect_gt(
    nrow(spell_check_evaluation(test_path("data"), use_wordlist = FALSE)),
    nrow(spell_check_ref)
  )

  # check with student filter
  spell_check_ref <- data.frame(
    word = c("bonjour", "Reto", "Schreibfehlr", "Wordlist")
  )
  spell_check_ref$found <- list("Beurteilung_Sandro.qmd:24",
                                "Beurteilung_Sandro.qmd:11",
                                "Beurteilung_Sandro.qmd:22",
                                "Beurteilung_Sandro.qmd:13")
  class(spell_check_ref) <- c("summary_spellcheck", "data.frame")
  expect_equal(spell_check_evaluation(test_path("data"), students = "Sandro"),
               spell_check_ref)
  expect_error(spell_check_evaluation(test_path("data"), students = "John"),
               "No evaluation files found.")

  # check empty directory
  withr::with_tempdir({
    expect_error(spell_check_evaluation(), "No evaluation files found.")
  })
})


test_that("check_url() works", {
  skip_on_cran()
  expect_true(check_url("https://www.github.com"))
  expect_false(check_url("https://thispagedoesnotexistonthe.internet"))
  # status code 204 (no content) and 301 (moved permanently) should be success
  with_mocked_responses(
    mock_status(204),
    expect_true(check_url("https://204.com"))
  )
  with_mocked_responses(
    mock_status(301),
    expect_true(check_url("https://301.com"))
  )
  # status codes 403 (forbidden) and 500 (int. server error) should be failure
  with_mocked_responses(
    mock_status(403),
    expect_false(check_url("https://403.com"))
  )
  with_mocked_responses(
    mock_status(500),
    expect_false(check_url("https://500.com"))
  )
  # an inexistent path on an existing page should be failure
  expect_false(check_url("https://www.github.com/stibu81/thisdoesnotexist"))
})


test_that("check_links_in_file() works", {
  skip_on_cran()
  link_check_ref <- tibble(
    url = c("https://de.wikipedia.org/wiki/Wikipedia:Hauptseite",
            "http://www.github.com",
            "https://en.wikipedia.org/wiki/Bird_(1988_film)",
            "https://en.wikipedia.org/wiki/Physics_(Aristotle)",
            "https://en.wikipedia.org/wiki/The_Treachery_of_Images",
            "https://www.doesnotexist.invalid"),
    reachable = c(TRUE, TRUE, TRUE, TRUE, TRUE, FALSE)
  )
  expect_equal(
    check_links_in_file(test_path("data", "01_Rmd", "test.Rmd")),
    link_check_ref
  )
  expect_equal(
    check_links_in_file(test_path("data", "01_Rmd", "test.qmd")),
    link_check_ref
  )

  # check a file without links
  withr::with_tempfile("rmd_file", {
    writeLines(c("there", "are no", "links"), rmd_file)
    expect_equal(check_links_in_file(rmd_file),
                 tibble(url = character(0), reachable = logical(0)))
    fileext = ".Rmd"
  })
})


test_that("extract_urls() works", {
  expect_equal(
    extract_urls(
      c("https://www.github.com", "{http://www.github.com}#",
        "www.github.com, (https://www.github.com)",
        "no url", "https:/invalid.url",
        "(https://www.github.com) %4l& [http://www.github.com] ",
        "abc https://www.ibaw.ch/suche/?q=data+science abc",
        # check handling of brackets
        "(this: https://en.wikipedia.org/wiki/Data_science#Modern_usage)",
        "Bird: https://en.wikipedia.org/wiki/Bird_(1988_film)",
        "Lorem ipsum dolor sit amet",
        "Bird: (https://en.wikipedia.org/wiki/Bird_(1988_film))",
        "(Bird: (https://en.wikipedia.org/wiki/Bird_((1988_film))))",
        "Bird: (https://en.wikipedia.org/wiki/Bird_(1988_film)):",
        "(Bird: (https://en.wikipedia.org/wiki/Bird_((1988_film)))):",
        "Bird: (https://en.wikipedia.org/wiki/Bird_(1988_film)).",
        "(Bird: (https://en.wikipedia.org/wiki/Bird_((1988_film)))).",
        "((https://en.wikipedia.org/wiki/Physics_(Aristotle)#Description_of_the_content):.&):-)",
        "https://en.wikipedia.org/w/index.php?search=Bird&title=Special%3ASearch&ns0=1",
        "sfd https://de.wikipedia.org/wiki/Wikipedia:Hauptseite =3",
        # check urls followed by punctuation
        "https://www.github.com.", "https://www.github.com:",
        "https://www.github.com,", "https://www.github.com;",
        "https://www.github.com?", "https://www.github.com!")
    ),
    c("https://www.github.com", "http://www.github.com",
      "https://www.github.com",
      "https://www.github.com", "http://www.github.com",
      "https://www.ibaw.ch/suche/?q=data+science",
      "https://en.wikipedia.org/wiki/Data_science#Modern_usage",
      "https://en.wikipedia.org/wiki/Bird_(1988_film)",
      rep(c("https://en.wikipedia.org/wiki/Bird_(1988_film)",
            "https://en.wikipedia.org/wiki/Bird_((1988_film))"),
          times = 3),
      "https://en.wikipedia.org/wiki/Physics_(Aristotle)#Description_of_the_content",
      "https://en.wikipedia.org/w/index.php?search=Bird&title=Special%3ASearch&ns0=1",
      "https://de.wikipedia.org/wiki/Wikipedia:Hauptseite",
      rep("https://www.github.com", times = 6)
    )
  )
})


test_that("check_links_in_slides() works", {
  skip_on_os("windows")
  skip_on_cran()
  expect_equal(
    # suppress the progress bar
    suppressMessages(check_links_in_slides(test_path("data"))),
    tibble(url = "https://www.doesnotexist.invalid",
           file = c("test.Rmd", "test.qmd"))
  )
})


test_that("get_gmd_language() works for files lang field", {
  files <- test_path("data", "Beurteilung",
                     paste0("Beurteilung_", c("Sandro.qmd", "Reto.Rmd")))
  expect_identical(get_qmd_languages(files), c("de_CH", "en_GB"))
})


test_that("get_gmd_language() works for files without lang field", {
  withr::with_tempfile("rmd_file", {
    writeLines(c("---", "title: 'something'", "---"), rmd_file)
    expect_identical(get_qmd_languages(rmd_file), "de_CH")
    fileext = ".Rmd"
  })
  withr::with_tempfile("qmd_file", {
    writeLines(c("x <- 3", "x + 4"), qmd_file)
    expect_identical(get_qmd_languages(qmd_file), "de_CH")
    fileext = ".qmd"
  })
})


test_that("get_gmd_language() works for files with invalid lang field", {
  withr::with_tempfile("qmd_file", {
    writeLines(c("---", "lang: invalid", "---"), qmd_file)
    expect_identical(get_qmd_languages(qmd_file), "de_CH")
    fileext = ".qmd"
  })
})