diff options
| author | Carlo Zancanaro <carlo@clearboxsystems.com.au> | 2013-05-24 10:02:16 +1000 |
|---|---|---|
| committer | Carlo Zancanaro <carlo@clearboxsystems.com.au> | 2013-05-24 10:02:16 +1000 |
| commit | e2bd4b4939d34fc9400c9843b691428d3888ecc4 (patch) | |
| tree | 884dff7985b66cbd2ae84153e45d40e8139f5c92 /test | |
| parent | 5ccaca496f4babb4fef2d34e272b8772e077fa25 (diff) | |
Fix a bug in `resolve-fields`
The recursive calls to `resolve-fields` were not being made due to programmer
error. This has been fixed, so now the field resolution stuff should work
properly again.
This is really highlighting the need for better testing. Get on that!
Diffstat (limited to 'test')
| -rw-r--r-- | test/clojure_sql/core_test.clj | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/test/clojure_sql/core_test.clj b/test/clojure_sql/core_test.clj index b5d65e7..236e421 100644 --- a/test/clojure_sql/core_test.clj +++ b/test/clojure_sql/core_test.clj @@ -18,8 +18,13 @@ (into {} (-> (table :user) (project '{(+ :username :password) :u}))) -(-> (table {(-> (table :users) - (project '[:username (+ 1 2 3)]) - (rename '{(+ 1 2 3) :x}) - (select `(exists ~(table :users)))) :u}) +(-> (table :users) + (project '[:username (+ 1 2 3)]) + (rename '{(+ 1 2 3) :x}) + (select `(exists ~(-> (table :users) + (select '(= 10 :username))))) println) + +(-> (table :users) + (project {:username :un}) + (select '(= :username 10))) |