Add asserts for some of the exercises

Author: Kylo Ginsberg

src/cljlab/functions.clj

@@ -386,6 +386,9 @@ vector
 
 ;; @@
 (defn do-nothing [x] ___)
+
+(assert (= 42   (do-nothing 42)))
+(assert (= "wtf"(do-nothing "wtf")))
 ;; @@
 
 ;; **
@@ -404,6 +407,10 @@ vector
 
 ;; @@
 (defn always-thing [__] ___)
+
+(assert (= :thing (always-thing)))
+(assert (= :thing (always-thing 42)))
+(assert (= :thing (always-thing "wtf" 42)))
 ;; @@
 
 ;; **
@@ -515,6 +522,8 @@ vector
 ;; @@
 (defn http-get [url]
   ___)
+
+(assert (.contains (http-get "http://www.w3.org") "html"))
 ;; @@
 
 ;; **
@@ -531,6 +540,9 @@ vector
 ;; @@
 (defn one-less-arg [f x]
   (fn [& args] ___))
+
+(defn add-two-numbers [x y] (+ x y))
+(assert (= 3 ((one-less-arg add-two-numbers 1) 2)))
 ;; @@
 
 ;; **
@@ -546,8 +558,13 @@ vector
 ;; @@
 (defn two-fns [f g]
   ___)
-;; @@
 
+(defn add-two   [x] (+ 2 x))
+(defn times-ten [x] (* 10 x))
+
+(assert (= 12 ((two-fns add-two times-ten) 1)))
+(assert (= 30 ((two-fns times-ten add-two) 1)))
+;; @@
 ;; **
 ;;; # Lab Solutions
 ;;;