Try and work around windows file weirdness

mrc-ide · Jul 20, 2023 · dc32795 · dc32795
1 parent e9d437a
commit dc32795
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/testthat/test-interactive-cleanup.R b/tests/testthat/test-interactive-cleanup.R
@@ -11,7 +11,8 @@ test_that("can cleanup explicit things quite well", {
                   c("name", "root", "path", "role", "status", "delete"))
   expect_equal(status$name, "explicit")
   expect_equal(status$root, orderly_root(path, FALSE)$path)
-  expect_equal(status$path, file.path(status$root, "src", status$name))
+  expect_equal(normalizePath(status$path, mustWork = TRUE),
+               normalizePath(file.path(status$root, "src", status$name)))
   paths <- c("data.csv", "mygraph.png", "orderly.R")
   expect_equal(status$role,
                cbind(orderly = set_names(c(FALSE, FALSE, TRUE), paths),