Fix and tests for different types of README when `tool = "quarto_webs…

…ite"` (#314)

* init

* patrick

* remove some changes

* typo

* remove patrick

* typo

* fix

R/import_readme.R

@@ -53,11 +53,7 @@
         }
     }
 
-    if (tool == "quarto_website") {
-        tar_file <- fs::path_join(c(tar_dir, "index.md"))
-    } else {
-        tar_file <- fs::path_join(c(tar_dir, "README.md"))
-    }
+    tar_file <- fs::path_join(c(tar_dir, "README.md"))
     src_file <- fs::path_join(c(src_dir, "README.md"))
     fs::file_copy(src_file, tar_file, overwrite = TRUE)
     .check_md_structure(tar_file)
@@ -74,7 +70,6 @@
                 enc2utf8("{{< include README.md >}}"),
                 fs::path_join(c(tar_dir, "index.md"))
             )
-            fs::file_copy(fs::path_join(c(src_dir, "README.md")), tar_dir)
         }
     }
 

tests/testthat/test-render_docs.R

@@ -172,6 +172,30 @@ test_that("quarto: no error for basic workflow, no Github URL", {
     expect_no_error(render_docs(verbose = .on_ci()))
 })
 
+for (tool in c("docute", "docsify", "quarto_website")) {
+    test_that("no error with different types of README", {
+        skip_on_cran()
+        skip_if(.is_windows() && .on_ci(), "Windows on CI")
+        create_local_package()
+
+        # README.md
+        cat("hello there", file = "README.md")
+        setup_docs(tool)
+        expect_no_error(render_docs(verbose = .on_ci()))
+        fs::dir_delete("docs")
+
+        # README.Rmd
+        cat("hello there", file = "README.Rmd")
+        expect_no_error(render_docs(verbose = .on_ci()))
+        fs::dir_delete("docs")
+        fs::file_delete("README.Rmd")
+
+        # README.qmd
+        cat("hello there", file = "README.qmd")
+        expect_no_error(render_docs(verbose = .on_ci()))
+    })
+}
+
 test_that("quarto: autolink", {
     skip_on_cran()
     skip_if(.is_windows() && .on_ci(), "Windows on CI")