Really fix tests on Windows

r-hub · Apr 9, 2024 · d78e217 · d78e217
1 parent 8aadd01
commit d78e217
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-platforms.R b/tests/testthat/test-platforms.R
@@ -8,8 +8,8 @@ test_that("get_platforms", {
   )
 
   plt <- get_platforms()
-  plt[[1]] <- sub("\r\n", "\n", plt[[1]], fixed = TRUE)
-  plt[[2]] <- sub("\r\n", "\n", plt[[2]], fixed = TRUE)
+  plt[[1]] <- gsub("\r\n", "\n", plt[[1]], fixed = TRUE)
+  plt[[2]] <- gsub("\r\n", "\n", plt[[2]], fixed = TRUE)
   expect_snapshot({
     cli::hash_obj_sha1(plt[[1]])
     cli::hash_obj_sha1(plt[[2]])
@@ -138,4 +138,4 @@ test_that("select_platforms", {
   expect_snapshot(error = TRUE, {
     select_platforms()
   })
-})
+})