Skip to content

Commit

Permalink
Fix testcase
Browse files Browse the repository at this point in the history
  • Loading branch information
MLopez-Ibanez committed Jan 6, 2024
1 parent ed44ffa commit 14c7911
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion tests/testthat/test-path.R
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@ test_path_rel2abs <- function(testcases)
cwd <- testcases[i,2L]
res <- path_rel2abs(testcases[i,1L], cwd)
if (testcases[i,3L] == "Sys.which") {
exp <- path_abs(Sys.which(testcases[i,1]), winslash = "/", mustWork = NA))
exp <- path_abs(Sys.which(testcases[i,1]))
} else {
exp <- gsub("\\", "/", path.expand(testcases[i,3L]), fixed = TRUE)
}
Expand Down

0 comments on commit 14c7911

Please sign in to comment.