Normalize the path returned by find_test_file

Fixes #2355
r-lib · May 28, 2021 · 11a1a62 · 11a1a62
1 parent abe0c42
commit 11a1a62
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/active.R b/R/active.R
@@ -2,7 +2,7 @@ find_active_file <- function(arg = "file") {
   if (!rstudioapi::isAvailable()) {
     stop("Argument `", arg, "` is missing, with no default", call. = FALSE)
   }
-  rstudioapi::getSourceEditorContext()$path
+  normalizePath(rstudioapi::getSourceEditorContext()$path)
 }
 
 find_test_file <- function(path) {