From 8777da209d4c8532ec29dd8ab914027bc25e8ab8 Mon Sep 17 00:00:00 2001 From: Katherine Chan Date: Mon, 13 May 2024 10:58:36 -0700 Subject: [PATCH 1/2] Fix expected result for testing compliments() --- tests/testthat/test-compliments.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-compliments.R b/tests/testthat/test-compliments.R index dfa3360..6f45628 100644 --- a/tests/testthat/test-compliments.R +++ b/tests/testthat/test-compliments.R @@ -1,8 +1,8 @@ test_that("really_pretty works", { - correct_result <- "You're, like, really pretty Cady." + correct_result <- "You're, like, really pretty, Cady." - my_result <- really_pretty("Cady") + my_result <- really_pretty("Cady", follow_up = FALSE) expect_equal(my_result, correct_result) }) From 4e311bfdab28c1843589db94fad9283edeff319e Mon Sep 17 00:00:00 2001 From: Katherine Chan Date: Mon, 13 May 2024 11:05:02 -0700 Subject: [PATCH 2/2] Fix candygrams to print extra message (w/o extra whitespace) --- R/give_candygrams.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/give_candygrams.R b/R/give_candygrams.R index 8d71397..6268a11 100644 --- a/R/give_candygrams.R +++ b/R/give_candygrams.R @@ -30,7 +30,7 @@ give_candygrams <- function(person, number, number <- str_to_title(as.english(number)) - glue::glue("{number} for {person}.") + glue::glue(str_trim("{number} for {person}. {extra_message}"))