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)
 })