core_test.clj

(deftest text->words-test-case
  (testing "no text"
    (is (= (text->words "") nil)))
  (testing "one word"
    (is (= (text->words "foo") ["foo"])))
  (testing "one word in a sentence"
    (is (= (text->words "Hello!") ["hello"])))
  (testing "two words"
    (is (= (text->words "foo bar") ["foo" "bar"])))
  (testing "short-hand for “what is“"
    (is (= (text->words "what's") ["what's"])))
  (testing "two sentences"
    (is (= (text->words "Hello, world! What's up?")
           ["hello" "world" "what's" "up"]))))