Add books->author-names

Ilmari Vacklin · Ilmari Vacklin · commit a890e79a0fa5 · 2012-05-17T17:43:55.000+03:00
diff --git a/src/structured_data.clj b/src/structured_data.clj
@@ -30,4 +30,7 @@
 (defn authors [books]
   :-)
 
+(defn books->author-names [books]
+  :-)
+
 ; %________%
diff --git a/test/structured_data_test.clj b/test/structured_data_test.clj
@@ -53,3 +53,8 @@
 
 (facts "authors"
   (authors books) => #{china octavia})
+
+(facts "books->author-names"
+  (books->author-names books) => #{"Octavia E. Butler" "China Miéville"})
+
+; %____%
