From 874281d53fc0c148b5f9eec016745edb473ba860 Mon Sep 17 00:00:00 2001 From: chloefeehan Date: Mon, 13 May 2024 14:41:24 -0700 Subject: [PATCH] adding a test if the follow up were true --- tests/testthat/test-compliments.R | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-compliments.R b/tests/testthat/test-compliments.R index dfa3360..9b83498 100644 --- a/tests/testthat/test-compliments.R +++ b/tests/testthat/test-compliments.R @@ -1,8 +1,17 @@ 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) +}) + +test_that("really_pretty works with follow up", { + + correct_result <- "You're, like, really pretty, Cady. So you agree? You think you're really pretty?" + + my_result <- really_pretty("Cady", follow_up = TRUE) expect_equal(my_result, correct_result) })