blob: e32a2ee5796467269070a28ee029308ed52f8415 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
(ns pronouns.pages-test
(:require [pronouns.pages :as pages]
[clojure.test :refer [deftest testing is are]]))
(deftest prose-comma-list
(testing "prose-comma-list turns a list of strings into a prose list"
(are [call result] (= call result)
(pages/prose-comma-list ["foo"]) "foo"
(pages/prose-comma-list ["foo" "bar"]) "foo and bar"
(pages/prose-comma-list ["foo" "bar" "baz"]) "foo, bar, and baz"
(pages/prose-comma-list ["foo" "bar" "baz" "bobble"]) "foo, bar, baz, and bobble"
(pages/prose-comma-list []) "")))
|
