add sleep to make things work on windows with mtime

Author: lorenzwalthert

tests/testthat/test-hooks.R

@@ -270,8 +270,14 @@ run_test("readme-rmd-rendered",
   error_msg = NULL,
   msg = NULL,
   file_transformer = function(files) {
-    git2r::init()
-    git2r::add(path = 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])
+      git2r::init()
+      git2r::add(path = files)
+    }
     files
   }
 )
@@ -287,9 +293,9 @@ run_test("readme-rmd-rendered",
       content_2 <- readLines(files[2])
       Sys.sleep(2)
       writeLines(content_2, files[2])
+      git2r::init()
+      git2r::add(path = files)
     }
-    git2r::init()
-    git2r::add(path = files)
     files
   }
 )
@@ -302,8 +308,14 @@ run_test("readme-rmd-rendered",
   error_msg = "should be both staged",
   msg = NULL,
   file_transformer = function(files) {
-    git2r::init()
-    git2r::add(path = files[1])
+    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])
+      git2r::init()
+      git2r::add(path = files[1])
+    }
     files
   }
 )