diff --git a/exercises/practice/bob/bob-test.el b/exercises/practice/bob/bob-test.el index 2c8a2544..ea481e6f 100644 --- a/exercises/practice/bob/bob-test.el +++ b/exercises/practice/bob/bob-test.el @@ -33,19 +33,19 @@ (ert-deftest responds-to-talking-forcefully () (should - (string= "Whatever." (response-for "Let's go make out behind the gym!")))) + (string= "Whatever." (response-for "Hi there!")))) (ert-deftest responds-to-using-acronyms-in-regular-speech () (should - (string= "Whatever." (response-for "It's OK if you don't want to go to the DMV.")))) + (string= "Whatever." (response-for "It's OK if you don't want to go work for NASA.")))) (ert-deftest responds-to-forceful-question () (should - (string= "Calm down, I know what I'm doing!" (response-for "WHAT THE HELL WERE YOU THINKING?")))) + (string= "Calm down, I know what I'm doing!" (response-for "WHAT'S GOING ON?")))) (ert-deftest responds-to-shouting-numbers () (should - (string= "Whoa, chill out!" (response-for "1, 2, 3, GO!")))) + (string= "Whoa, chill out!" (response-for "1, 2, 3 GO!")))) (ert-deftest responds-to-only-numbers () (should @@ -61,7 +61,7 @@ (ert-deftest responds-to-shouting-with-no-exclamation-mark () (should - (string= "Whoa, chill out!" (response-for "I HATE YOU")))) + (string= "Whoa, chill out!" (response-for "I HATE THE DENTIST")))) (ert-deftest responds-to-statement-containing-question-mark () (should diff --git a/exercises/practice/bob/bob.el b/exercises/practice/bob/bob.el index 92089eb4..d2e36b7d 100644 --- a/exercises/practice/bob/bob.el +++ b/exercises/practice/bob/bob.el @@ -1,10 +1,13 @@ -;;; bob.el --- Bob exercise (exercism) -*- lexical-binding: t; -*- +;;; bob.el --- Bob (exercism) -*- lexical-binding: t; -*- ;;; Commentary: -(defun response-for (phrase) ;;; Code: -) + + +(defun response-for (phrase) + (error "Delete this S-Expression and write your own implementation")) + (provide 'bob) ;;; bob.el ends here