Add generic-doublificate.

corvidian · May 24, 2012 · 1457b68 · 1457b68
1 parent 4f3021c
commit 1457b68
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/i_am_a_horse_in_the_land_of_booleans.clj b/src/i_am_a_horse_in_the_land_of_booleans.clj
@@ -12,4 +12,7 @@
 (defn not-teen? [age]
   ":(")
 
+(defn generic-doublificate [x]
+  ":(")
+
 ; '_______'
diff --git a/test/i_am_a_horse_in_the_land_of_booleans_test.clj b/test/i_am_a_horse_in_the_land_of_booleans_test.clj
@@ -26,3 +26,11 @@
   (not-teen? 12) => true
   (not-teen? 19) => false
   (not-teen? 20) => true)
+
+(facts "generic-doublificate"
+  (generic-doublificate 1)        => 2
+  (generic-doublificate [1 2])    => [2 4]
+  (generic-doublificate '(65 21)) => [130 42]
+  (generic-doublificate {})       => nil
+  (generic-doublificate [])       => nil
+  (generic-doublificate {:a 1})   => true)