summaryrefslogtreecommitdiff
path: root/test/clojure_sql/core_test.clj
diff options
context:
space:
mode:
authorCarlo Zancanaro <carlo@clearboxsystems.com.au>2013-07-03 18:32:17 +1000
committerCarlo Zancanaro <carlo@clearboxsystems.com.au>2013-07-03 18:32:17 +1000
commit7ca4f6e7876e8fd577b74998975dadd44e06e8a1 (patch)
treeb7feb3cc5c2a374a8b5016394a064fe9aad4d287 /test/clojure_sql/core_test.clj
parente9445ffea2254e05ae92972451084dce6e09160d (diff)
Remove midje dependency and now useless tests (will add tests later)
Diffstat (limited to 'test/clojure_sql/core_test.clj')
-rw-r--r--test/clojure_sql/core_test.clj43
1 files changed, 0 insertions, 43 deletions
diff --git a/test/clojure_sql/core_test.clj b/test/clojure_sql/core_test.clj
deleted file mode 100644
index 6a12698..0000000
--- a/test/clojure_sql/core_test.clj
+++ /dev/null
@@ -1,43 +0,0 @@
-(ns clojure-sql.core-test
- (:refer-clojure :exclude [sort-by])
- (:require [clojure-sql.core :refer :all]
- [midje.sweet :refer :all]))
-
-(comment
-
- (fact
- @(table :user)
- => ["SELECT * FROM \"user\""]
-
- @(-> (table :user) (project [:username]))
- => ["SELECT \"user\".\"username\" AS \"username\" FROM \"user\""]
-
- @(-> (table :user) (select '(= :username "george")))
- => ["SELECT * FROM \"user\" WHERE (\"user\".\"username\" = ?)" "george"]
-
- @(-> (table :user) (project {:username :u}))
- => ["SELECT \"user\".\"username\" AS \"u\" FROM \"user\""]
-
- @(-> (table :user) (project {'(+ :age :modifier) :u}))
- => ["SELECT (\"user\".\"age\" + \"user\".\"modifier\") AS \"u\" FROM \"user\""]
-
- @(-> (table :user)
- (project [:id])
- (join (-> (table :x)
- (project [:id])
- (join (-> (table :y)
- (project [:id]))
- :type :left))))
- => ["SELECT \"user\".\"id\" AS \"id\" FROM \"user\" INNER JOIN \"x\" ON ((\"user\".\"id\" = \"x\".\"id\"))"])
-
- (into {} (-> (table :user) (project '{(+ :username :password) :u})))
-
- (-> (table :users)
- (project '[:username (+ 1 2 3)])
- (rename '{(+ 1 2 3) :x})
- (select `(exists ~(-> (table :users)
- (select '(= 10 :username))))))
-
- (-> (table :users)
- (project {:username :un})
- (select '(= :username 10))))