Added missing function multiple-authors?.

corvidian · Oct 22, 2012 · ba5043b · ba5043b
1 parent 2fd0939
commit ba5043b
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/src/structured_data.clj b/src/structured_data.clj
@@ -42,6 +42,9 @@
 (defn author-count [book]
   :-)
 
+(defn multiple-authors? [book]
+  :-)
+
 (defn add-author [book new-author]
   :-)
 

diff --git a/test/structured_data_test.clj b/test/structured_data_test.clj
@@ -104,6 +104,11 @@
     (author-count cities)         => 1
     (author-count wild-seed)      => 1
     (author-count little-schemer) => 2)
+
+  (facts "multiple-authors?"
+         (multiple-authors? cities)         => false
+         (multiple-authors? wild-seed)      => false
+         (multiple-authors? little-schemer) => true)
 
   (facts "add-author"
     (add-author little-schemer {:name "Gerald J. Sussman"})
-Original file line number
+Diff line change
@@ Expand Up / @@ -42,6 +42,9 @@ @@
     (defn author-count [book]
       :-)
+    (defn multiple-authors? [book]
+      :-)
     (defn add-author [book new-author]
       :-)
@@ Expand Down @@