diff options
| author | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-03-03 04:48:36 +0000 |
|---|---|---|
| committer | Jeffrey Straszheim <straszheimjeffrey@gmail.com> | 2009-03-03 04:48:36 +0000 |
| commit | f62460e60cdef2d69e5a76997708a8e25055b010 (patch) | |
| tree | 2125a5c74584d2a577e2f412e871e17da948bc2b /src/clojure/contrib | |
| parent | 7359409b75078716feb7ac8c30a34700ad539f30 (diff) | |
fixed error in test
Diffstat (limited to 'src/clojure/contrib')
| -rw-r--r-- | src/clojure/contrib/datalog/tests/test_database.clj | 65 |
1 files changed, 30 insertions, 35 deletions
diff --git a/src/clojure/contrib/datalog/tests/test_database.clj b/src/clojure/contrib/datalog/tests/test_database.clj index b3931bb7..445873dc 100644 --- a/src/clojure/contrib/datalog/tests/test_database.clj +++ b/src/clojure/contrib/datalog/tests/test_database.clj @@ -102,41 +102,36 @@ test-db-1 [[:fred {:mary 1 :sue 1}] [:fred {:mary 3 :sue 1}] - [:sally {:jen 1 :bekcy 2 :joan 0}] - [:sally {:jen 1 :bekcy 4 :joan 3}]])] - (assert (= db - (datalog-database - {:sally (datalog-relation - #{:jen :joan :becky} - #{{:jen 1, :joan 0, :becky 3} - {:jen 1, :joan 0, :becky 2} - {:jen 1, :joan 3, :becky 2} - {:jen 1, :joan 3, :becky 4}} - {:becky - {3 - #{{:jen 1, :joan 0, :becky 3}} - 4 - #{{:jen 1, :joan 3, :becky 4}} - 2 - #{{:jen 1, :joan 0, :becky 2} - {:jen 1, :joan 3, :becky 2}}} - :jen - {1 - #{{:jen 1, :joan 0, :becky 3} - {:jen 1, :joan 0, :becky 2} - {:jen 1, :joan 3, :becky 2} - {:jen 1, :joan 3, :becky 4}}}}) - :fred (datalog-relation - #{:sue :mary} - #{{:sue 2, :mary 1} - {:sue 3, :mary 2}} - {:mary - {3 - #{} - 2 - #{{:sue 3, :mary 2}} - 1 - #{{:sue 2, :mary 1}}}})}))))) + [:sally {:jen 1 :becky 2 :joan 0}] + [:sally {:jen 1 :becky 4 :joan 3}]])] + (is (= db + (datalog-database + {:sally (datalog-relation + #{:jen :joan :becky} + #{{:jen 1, :joan 0, :becky 3} + {:jen 1, :joan 3, :becky 2}} + {:becky + {3 + #{{:jen 1, :joan 0, :becky 3}} + 4 + #{} + 2 + #{{:jen 1, :joan 3, :becky 2}}} + :jen + {1 + #{{:jen 1, :joan 0, :becky 3} + {:jen 1, :joan 3, :becky 2}}}}) + :fred (datalog-relation + #{:sue :mary} + #{{:sue 2, :mary 1} + {:sue 3, :mary 2}} + {:mary + {3 + #{} + 2 + #{{:sue 3, :mary 2}} + 1 + #{{:sue 2, :mary 1}}}})}))))) |