fix for windows

Author: lorenzwalthert

tests/testthat/test-testing.R

@@ -1,13 +1,20 @@
 test_that("local_test_setup changes back to old cache location", {
+  split_path <- function(x) {
+    if (Sys.info()[1] == "Windows") {
+      # not on other platforms as normalizePath messes up /private/var and /var
+      x <- normalizePath(x, mustWork = FALSE)
+    }
+    unlist(strsplit(x, .Platform$file.sep, fixed = TRUE))
+  }
   withr::defer(cache_deactivate(verbose = FALSE))
   old <- cache_info(format = "tabular")
   cache_activate(verbose = FALSE)
 
   test <- function() {
     local_test_setup()
-    base <- unlist(strsplit(tempfile(), .Platform$file.sep, fixed = TRUE))[2]
+    base <- split_path(tempfile())[2]
     expect_equal(
-      unlist(strsplit(cache_info(format = "tabular")$location, .Platform$file.sep, fixed = TRUE))[2],
+      split_path(cache_info(format = "tabular")$location)[2],
       base
     )
   }
@@ -19,12 +26,19 @@ test_that("local_test_setup changes back to old cache location", {
 test_that("local_test_setup changes back to old cache location", {
   old <- cache_info(format = "tabular")
   # don't activate
+  split_path <- function(x) {
+    if (Sys.info()[1] == "Windows") {
+      # not on other platforms as normalizePath messes up /private/var and /var
+      x <- normalizePath(x, mustWork = FALSE)
+    }
+    unlist(strsplit(x, .Platform$file.sep, fixed = TRUE))
+  }
 
   test <- function() {
     local_test_setup()
-    base <- unlist(strsplit(tempfile(), .Platform$file.sep, fixed = TRUE))[2]
+    base <- split_path(tempfile())[2]
     expect_equal(
-      unlist(strsplit(cache_info(format = "tabular")$location, .Platform$file.sep, fixed = TRUE))[2],
+      split_path(cache_info(format = "tabular")$location)[2],
       base
     )
   }