with_temp_wd <- function() {
  new_dir <- normalizePath(tempfile(), winslash = "/", mustWork = FALSE)
  dir.create(new_dir, recursive = TRUE)
  old_dir <- setwd(new_dir)
  withr::defer(setwd(old_dir), envir = parent.frame(2))
}

testthat::describe("render() accepts", {
  with_temp_wd()
  it("empty teal_report object", {
    testthat::expect_no_error(teal.reporter::render(teal_report(), quiet = TRUE))
  })
  it("empty teal_card object", {
    testthat::expect_no_error(teal.reporter::render(teal_card(), quiet = TRUE))
  })
  it("teal_report containing code chunks and outputs", {
    r <- within(teal_report(), {
      a <- 1:10
      plot(a)
    })
    testthat::expect_no_error(teal.reporter::render(r, quiet = TRUE))
  })
})

testthat::describe("render() by default", {
  it("outputs and keeps report.Rmd file in the working directory", {
    with_temp_wd()
    teal.reporter::render(teal_report(), quiet = TRUE)
    testthat::expect_true(file.exists("report.Rmd"))
  })

  it("renders report.html file in the working directory", {
    with_temp_wd()
    teal.reporter::render(teal_report(), quiet = TRUE)
    testthat::expect_true(file.exists("report.html"))
  })

  it("outputs report.Rmd file containing knitr::opts_chunk$set with tidy options set", {
    with_temp_wd()
    teal.reporter::render(teal_report(), quiet = TRUE)
    lines <- base::readLines("report.Rmd", warn = FALSE)

    # `tidy = TRUE`  if `formatR` package is installed, `FALSE` otherwise"
    testthat::expect_identical(
      lines,
      c(
        "```{R, include=FALSE}",
        sprintf(
          "knitr::opts_chunk$set(list(echo = TRUE, tidy.opts = list(width.cutoff = 60), tidy = %s))",
          requireNamespace("formatR", quietly = TRUE)
        ),
        "```"
      )
    )
  })
})

testthat::describe("render() outputs report.Rmd with", {
  withr::local_options(teal.reporter.global_knitr = list())
  it("output_dir set to other location then working directory", {
    tr <- teal_report()
    temp_dir <- normalizePath(tempfile(), winslash = "/", mustWork = FALSE)
    teal.reporter::render(tr, output_dir = temp_dir, quiet = TRUE)
    testthat::expect_true(file.exists(file.path(temp_dir, "report.Rmd")))
  })

  it("markdown content added to teal_card", {
    with_temp_wd()
    tr <- teal_report()
    teal_card(tr) <- c(teal_card(tr), "# test heading", "Lorem ipsum")
    teal.reporter::render(tr, quiet = TRUE)
    lines <- base::readLines("report.Rmd", warn = FALSE)
    testthat::expect_identical(lines, c("# test heading", "", "Lorem ipsum"))
  })

  it("yaml header containing entries set through metadata", {
    with_temp_wd()
    tr <- teal_report()
    teal_card(tr) <- c(teal_card(tr), "# test heading")
    metadata(teal_card(tr)) <- list(title = "test title", author = "me is tot")
    teal.reporter::render(tr, quiet = TRUE)
    lines <- base::readLines("report.Rmd", warn = FALSE)
    testthat::expect_identical(
      lines,
      c(
        "---",
        "author: me is tot",
        "title: test title",
        "---",
        "",
        "",
        "# test heading"
      )
    )
  })

  it("code_chunk with knitr::opts_chunk$set call using value from teal.reporter.global_knitr", {
    with_temp_wd()
    withr::local_options(teal.reporter.global_knitr = list(eval = TRUE, echo = FALSE))
    tr <- teal_report()
    teal_card(tr) <- c(teal_card(tr), "# test heading")
    teal.reporter::render(tr, quiet = TRUE)
    lines <- base::readLines("report.Rmd", warn = FALSE)
    testthat::expect_identical(
      lines,
      c(
        "```{R, include=FALSE}",
        "knitr::opts_chunk$set(list(eval = TRUE, echo = FALSE))",
        "```",
        "",
        "# test heading"
      )
    )
  })

  it("code_chunk with knitr::opts_chunk$set call using value from global_knitr argument", {
    with_temp_wd()
    tr <- teal_report()
    teal_card(tr) <- c(teal_card(tr), "# test heading")
    teal.reporter::render(tr, global_knitr = list(echo = TRUE, eval = TRUE), quiet = TRUE)
    lines <- base::readLines("report.Rmd", warn = FALSE)
    testthat::expect_identical(
      lines,
      c(
        "```{R, include=FALSE}",
        "knitr::opts_chunk$set(list(echo = TRUE, eval = TRUE))",
        "```",
        "",
        "# test heading"
      )
    )
  })

  it("arbitrary code chunk with additional parameters", {
    with_temp_wd()
    tr <- teal_report()
    teal_card(tr) <- c(teal_card(tr), "# test heading", code_chunk("a <- 1L", eval = FALSE, echo = FALSE))
    teal.reporter::render(tr, quiet = TRUE)
    lines <- base::readLines("report.Rmd", warn = FALSE)
    testthat::expect_identical(
      lines,
      c(
        "# test heading",
        "",
        "```{R, eval=FALSE, echo=FALSE}",
        "a <- 1L",
        "```"
      )
    )
  })

  it("arbitrary code cunk but chunk_output is missing", {
    with_temp_wd()
    tr <- teal_report()
    tr <- teal.code::eval_code(tr, "plot(1:10)")
    teal.reporter::render(tr, quiet = TRUE)
    lines <- base::readLines("report.Rmd", warn = FALSE)
    testthat::expect_identical(
      lines,
      c(
        "```{R}",
        "plot(1:10)",
        "```"
      )
    )
  })
})

testthat::describe("render() renders output based on metadata$output field:", {
  with_temp_wd()
  withr::local_options(teal.reporter.global_knitr = list())
  it("- md_document containing markdown content, code chunks and their outputs", {
    tr <- teal_report()
    teal_card(tr) <- c(teal_card(tr), "# test heading", "Lorem ipsum")
    tr <- within(tr, plot(1:10))
    metadata(teal_card(tr)) <- list(output = "md_document")
    teal.reporter::render(tr, quiet = TRUE)
    lines <- base::readLines("report.md", warn = FALSE)

    # Pandoc >= 2.11.2 uses ATX headers (# header), older versions use Setext (header\n===)
    if (rmarkdown::pandoc_available("2.11.2")) {
      # Pandoc >= 2.11.2: Expect ATX style headers
      expected_lines <- c(
        "# test heading",
        "",
        "Lorem ipsum",
        "",
        "    plot(1:10)",
        "",
        sprintf("![](report_files/figure-markdown_strict/unnamed-chunk-3-1.png)")
      )
    } else {
      # Pandoc < 2.11.2: Expect Setext style headers
      expected_lines <- c(
        "test heading",
        "============",
        "",
        "Lorem ipsum",
        "",
        "    plot(1:10)",
        "",
        sprintf("![](report_files/figure-markdown_strict/unnamed-chunk-3-1.png)")
      )
    }

    testthat::expect_identical(lines, expected_lines)
  })

  it("- md_document containing relative path to a plot even if output_dir is set to absolute path", {
    temp_dir <- normalizePath(tempfile(), winslash = "/", mustWork = FALSE)
    tr <- teal_report()
    tr <- within(tr, plot(1:10))
    metadata(teal_card(tr)) <- list(output = "md_document")
    teal.reporter::render(tr, output_dir = temp_dir, quiet = TRUE)
    lines <- base::readLines(file.path(temp_dir, "report.md"), warn = FALSE)
    testthat::expect_identical(
      lines,
      c(
        "    plot(1:10)",
        "",
        sprintf("![](report_files/figure-markdown_strict/unnamed-chunk-3-1.png)")
      )
    )
  })
})