withr::with_envvar(new = c(CLIPR_ALLOW = TRUE), {
    testthat::test_that("Rmd file is correct", {

        if (clipr::clipr_available()) {

            clipr::write_clip("plot(AirPassengers)",
                              allow_non_interactive = TRUE)
            path_rmd <- file.path(render_code(eval = FALSE), "template.Rmd")
            rmd_content <- generate_rmd_file(content = "plot(AirPassengers)",
                                             eval = FALSE)
            written_content <- readLines(path_rmd)

            testthat::expect_identical(object = rmd_content,
                                       expected = written_content)


            clipr::write_clip("plot(AirPassengers)",
                              allow_non_interactive = TRUE)
            path_rmd <- file.path(render_code(eval = TRUE), "template.Rmd")
            rmd_content <- generate_rmd_file(content = "plot(AirPassengers)",
                                             eval = TRUE)
            written_content <- readLines(path_rmd)

            testthat::expect_identical(object = rmd_content,
                                       expected = written_content)


            clipr::write_clip("Bonjour les amis",
                              allow_non_interactive = TRUE)
            path_rmd <- file.path(render_code(code = FALSE), "template.Rmd")
            rmd_content <- generate_rmd_file(content = "Bonjour les amis",
                                             code = FALSE)
            written_content <- readLines(path_rmd)

            testthat::expect_identical(object = rmd_content,
                                       expected = written_content)

        }

    })

    testthat::test_that("Rmd file is correct", {

        if (clipr::clipr_available()) {

            clipr::write_clip("plot(AirPassengers)",
                              allow_non_interactive = TRUE)
            path_rmd <- file.path(render_code(eval = FALSE), "template.Rmd")
            rmd_content <- generate_rmd_file(content = "plot(AirPassengers)",
                                             eval = FALSE)
            written_content <- readLines(path_rmd)

            testthat::expect_identical(object = rmd_content,
                                       expected = written_content)


            clipr::write_clip("plot(AirPassengers)",
                              allow_non_interactive = TRUE)
            path_rmd <- file.path(render_code(eval = TRUE), "template.Rmd")
            rmd_content <- generate_rmd_file(content = "plot(AirPassengers)",
                                             eval = TRUE)
            written_content <- readLines(path_rmd)

            testthat::expect_identical(object = rmd_content,
                                       expected = written_content)


            clipr::write_clip("Bonjour les amis", allow_non_interactive = TRUE)
            path_rmd <- file.path(render_code(code = FALSE), "template.Rmd")
            rmd_content <- generate_rmd_file(content = "Bonjour les amis",
                                             code = FALSE)
            written_content <- readLines(path_rmd)

            testthat::expect_identical(object = rmd_content,
                                       expected = written_content)

        }

    })

    testthat::test_that("Output file is correct", {

        if (clipr::clipr_available()) {

            clipr::write_clip(content = "print(AirPassengers)
plot(AirPassengers)
print(mtcars)",
                              allow_non_interactive = TRUE)

            # Check HTML file
            path_html <- file.path(render_code(output_format = "html_document"),
                                   "output.html")
            path_template_html <- testthat::test_path("output_data",
                                                      "output.html")
            txt_output_html <- htm2txt::gettxt(path_html)
            txt_template_output_html <- htm2txt::gettxt(path_template_html)

            testthat::expect_identical(object = txt_output_html,
                                       expected = txt_template_output_html)

            # Check PDF file
            path_dir <- render_code(output_format = "pdf_document")
            path_pdf <- file.path(path_dir, "output.pdf")
            # file.copy(path_pdf, "output.pdf") # nolint

            path_template_pdf <- testthat::test_path("output_data",
                                                     "output.pdf")
            txt_output_pdf <- pdftools::pdf_data(path_pdf)
            txt_template_output_pdf <- pdftools::pdf_data(path_template_pdf)


            # testthat::expect_identical(object = txt_output_pdf,
            #                            expected = txt_template_output_pdf)

            # Check .tex file
            path_tex <- file.path(path_dir, "output.tex")
            # file.copy(path_tex, "output.tex") # nolint

            path_template_tex <- testthat::test_path("output_data",
                                                     "output.tex")
            txt_output_tex <- readLines(path_tex)
            lines <- grep(x = txt_output_tex,
                          pattern = "^(?!.*\\.(pdf|ttf)).*$",
                          perl = TRUE)
            txt_output_tex <- txt_output_tex[lines]

            txt_template_output_tex <- readLines(path_template_tex)
            lines <- grep(x = txt_template_output_tex,
                          pattern = "^(?!.*\\.(pdf|ttf)).*$",
                          perl = TRUE)
            txt_template_output_tex <- txt_template_output_tex[lines]

            # testthat::expect_identical(object = txt_output_tex,
            #                            expected = txt_template_output_tex)
        }

    })

})