From dc32795c8365cb18d3b556306fd396f25e6a9c5a Mon Sep 17 00:00:00 2001 From: Rich FitzJohn Date: Thu, 20 Jul 2023 18:24:58 +0100 Subject: [PATCH] Try and work around windows file weirdness --- tests/testthat/test-interactive-cleanup.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test-interactive-cleanup.R b/tests/testthat/test-interactive-cleanup.R index f3696e1d..5c4942e1 100644 --- 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),