A bit more chat

mrc-ide · Oct 23, 2024 · a3a8da8 · a3a8da8
1 parent e38e4b2
commit a3a8da8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/R/location.R b/R/location.R
@@ -122,6 +122,7 @@ orderly_location_add <- function(name, type, args, verify = TRUE, root = NULL) {
   config$location <- rbind(config$location, loc)
   rownames(config$location) <- NULL
   config_update(config, root)
+  cli_alert_success("Added location '{name}' ({type})")
   invisible()
 }
 

diff --git a/tests/testthat/test-location.R b/tests/testthat/test-location.R
@@ -1157,11 +1157,13 @@ test_that("be chatty when pulling packets", {
   there <- create_temporary_root()
   res <- evaluate_promise(
     orderly_location_add_path("server", path = there$path, root = here))
-  expect_length(res$messages, 2)
+  expect_length(res$messages, 3)
   expect_match(res$messages[[1]],
                "Testing location")
   expect_match(res$messages[[2]],
                "Location configured successfully")
+  expect_match(res$messages[[3]],
+               "Added location 'server' (path)", fixed = TRUE)
 
   res <- evaluate_promise(orderly_location_pull_metadata(root = here))
   expect_length(res$messages, 2)