diff options
| author | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-03-07 15:48:31 +0000 |
|---|---|---|
| committer | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-03-07 15:48:31 +0000 |
| commit | 222ade6869e10ee2a76bf5fce5335b3a853e0896 (patch) | |
| tree | ec45830c95e365fa32ae5d57ecf7f19f54bcfce8 /src/clojure/contrib/datalog/example.clj | |
| parent | 21cde07dcdb55cf7fa25b35c8d7ab332612e100c (diff) | |
Updated test cases
Diffstat (limited to 'src/clojure/contrib/datalog/example.clj')
| -rw-r--r-- | src/clojure/contrib/datalog/example.clj | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/clojure/contrib/datalog/example.clj b/src/clojure/contrib/datalog/example.clj index 31a7ddaf..88fcf961 100644 --- a/src/clojure/contrib/datalog/example.clj +++ b/src/clojure/contrib/datalog/example.clj @@ -109,5 +109,8 @@ (def wp-3 (build-work-plan rules (?- :bj :name '??name :boss ?x))) (run-work-plan wp-3 db {'??name "Albert"}) +(def wp-4 (build-work-plan rules (?- :works-for :employee ?x :boss ?y))) +(run-work-plan wp-4 db {}) + ;; End of file |