Added first real Midje test - with beginning of refactoring the SQL c…

…ode\!

src/defdrink/models/drinks.clj

@@ -1,13 +1,11 @@
 (ns defdrink.models.drinks
-  (:require [clojure.java.jdbc :as sql]))
+  (:require [clojure.java.jdbc :as sql2])
+  (:require [defdrink.utils.sql :as sql]))
 
 (defn all []
-  (sql/with-connection (System/getenv "DATABASE_URL")
-                       (sql/with-query-results results
-                                               ["select * from drinks order by name asc"]
-                                               (into [] results))))
+  (sql/select :drinks))
 
 (defn insert [name]
-  (sql/with-connection (System/getenv "DATABASE_URL")
-                       (sql/insert-record :drinks {:name name})))
+  (sql2/with-connection (System/getenv "DATABASE_URL")
+                       (sql2/insert-record :drinks {:name name})))
 

src/defdrink/utils/sql.clj

@@ -0,0 +1,12 @@
+(ns defdrink.utils.sql
+  (:require [clojure.java.jdbc :as sql]))
+
+(defn- run-query [query]
+  (sql/with-query-results results [query] (into [] results)))
+
+(defn select [table]
+  (sql/with-connection 
+    (System/getenv "DATABASE_URL")
+    (run-query (format "select * from %s" table))))
+
+

test/defdrink/test/models/drinks.clj

@@ -1,5 +1,8 @@
 (ns defdrink.test.models.drinks
   (:use clojure.test)
-  (:use midje.sweet))
+  (:use midje.sweet)
+  (:use defdrink.models.drinks)
+  (:require [defdrink.utils.sql :as sql]))
 
-(fact (+ 1 1) => even?)
+(fact (all) => [...drink1... ...drink2...]
+      (provided (sql/select :drinks) => [...drink1... ...drink2...]))