From a3a8da8d60628eb589d5d89a7632e0daac9010af Mon Sep 17 00:00:00 2001 From: Rich FitzJohn Date: Wed, 23 Oct 2024 08:40:53 +0100 Subject: [PATCH] A bit more chat --- R/location.R | 1 + tests/testthat/test-location.R | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/R/location.R b/R/location.R index fafc3d3c..9ca308ca 100644 --- 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 index ffc38624..b0f2baa4 100644 --- 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)