with_envvar uses named character

Author: cderv

tests/testthat/test-utils-projects.R

@@ -17,7 +17,7 @@ test_that("project_path() uses Quarto environment variables", {
   withr::local_dir(temp_dir)
   dir.create("project")
   withr::with_envvar(
-    list(
+    c(
       QUARTO_PROJECT_ROOT = xfun::normalize_path(file.path(
         temp_dir,
         "project"
@@ -30,13 +30,13 @@ test_that("project_path() uses Quarto environment variables", {
     )
   )
   withr::with_envvar(
-    list(
+    c(
       QUARTO_PROJECT_ROOT = "",
       QUARTO_PROJECT_DIR = xfun::normalize_path(file.path(temp_dir, "project"))
     ),
     {
       expect_identical(
-        get_running(),
+        get_running_project_root(),
         xfun::normalize_path(file.path(temp_dir, "project"))
       )
 
@@ -133,31 +133,31 @@ test_that("project_path() handles xfun::proj_root() errors gracefully", {
 
 test_that("is_running_quarto_project() detects environment variables", {
   withr::with_envvar(
-    list(
+    c(
       QUARTO_PROJECT_ROOT = "",
       QUARTO_PROJECT_DIR = ""
     ),
     expect_null(get_running_project_root())
   )
 
   withr::with_envvar(
-    list(
+    c(
       QUARTO_PROJECT_ROOT = "/some/path",
       QUARTO_PROJECT_DIR = ""
     ),
     expect_identical(get_running_project_root(), "/some/path")
   )
 
   withr::with_envvar(
-    list(
+    c(
       QUARTO_PROJECT_ROOT = "",
       QUARTO_PROJECT_DIR = "/some/path"
     ),
     expect_identical(get_running_project_root(), "/some/path")
   )
 
   withr::with_envvar(
-    list(
+    c(
       QUARTO_PROJECT_ROOT = "/path1",
       QUARTO_PROJECT_DIR = "/path2"
     ),