tests/testthat/test-hook-readme-rmd-rendered.R

In lorenzwalthert/precommit: Pre-Commit Hooks

if (has_git()) {
  run_test("readme-rmd-rendered",
    file_name = c("README.md", "README.Rmd"),
    suffix = "",
    std_err = "out of date",
    std_out = NULL,
    file_transformer = function(files) {
      if (length(files) > 1) {
        # transformer is called once on all files and once per file
        content_2 <- readLines(files[2])
        Sys.sleep(2)
        writeLines(content_2, files[2])
        git_init()
        git2r::add(path = files)
      }
      files
    }
  )

  # only has Rmd
  run_test("readme-rmd-rendered",
    file_name = "README.Rmd",
    suffix = "",
    std_err = NULL,
    std_out = NULL,
    file_transformer = function(files) {
      git_init()
      git2r::add(path = files[1])
      files
    }
  )
  if (!on_windows_on_cran()) {
    # only one file staged
    run_test("readme-rmd-rendered",
      file_name = c("README.Rmd", "README.md"),
      suffix = "",
      std_err = "should be both staged",
      std_out = NULL,
      file_transformer = function(files) {
        if (length(files) > 1) {
          # transformer is called once on all files and once per file
          content_2 <- readLines(files[2])
          Sys.sleep(2)
          writeLines(content_2, files[2])
          git_init()
          git2r::add(path = files[1])
        }
        files
      }
    )

    # only has md
    run_test("readme-rmd-rendered",
      file_name = "README.md",
      suffix = "",
      std_err = NULL,
      std_out = NULL,
      file_transformer = function(files) {
        git_init()
        git2r::add(path = files[1])
        files
      }
    )
  }
}