Add author-names

nilsga · May 17, 2012 · 245d68f · 245d68f
1 parent a7af2b7
commit 245d68f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/structured_data.clj b/src/structured_data.clj
@@ -24,4 +24,7 @@
 (defn book-titles-by-author [author books]
   :-)
 
+(defn author-names [authors]
+  :-)
+
 ; %________%
diff --git a/test/structured_data_test.clj b/test/structured_data_test.clj
@@ -52,3 +52,10 @@
     => ["The City and the City" "Embassytown"]
   (book-titles-by-author "Octavia E. Butler" books)
     => ["Wild Seed"])
+
+(facts "author-names"
+  (author-names [{:name "China Miéville", :birth-year 1972}
+                 {:name "Octavia E. Butler"
+                  :birth-year 1947
+                  :death-year 2006}])
+    => ["Octavia E. Butler" "China Miéville"])