diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-12-29 11:37:50 -0500 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-12-29 11:37:50 -0500 |
| commit | 3764e2e6a5b135b44c0b5971ad16c4eb230b2eba (patch) | |
| tree | cd52d795b1274d57bb4ac7ac0fb497c4a8e77085 /src/clojure/contrib/datalog/tests | |
| parent | 3f893e28ecc0fc2335355aea2cc9324ed5781c81 (diff) | |
check for AssertionError in tests
Diffstat (limited to 'src/clojure/contrib/datalog/tests')
| -rw-r--r-- | src/clojure/contrib/datalog/tests/test_database.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clojure/contrib/datalog/tests/test_database.clj b/src/clojure/contrib/datalog/tests/test_database.clj index 06649611..77719008 100644 --- a/src/clojure/contrib/datalog/tests/test_database.clj +++ b/src/clojure/contrib/datalog/tests/test_database.clj @@ -44,12 +44,12 @@ (deftest test-ensure-relation (is (contains? (ensure-relation test-db :bob [:sam :george] [:sam]) :bob)) (is (contains? (ensure-relation test-db :fred [:mary :sue] [:mary]) :fred)) - (is (thrown? Exception (ensure-relation test-db :fred [:bob :joe] [])))) + (is (thrown? AssertionError (ensure-relation test-db :fred [:bob :joe] [])))) (deftest test-add-tuple (let [new-db (add-tuple test-db :fred {:mary 1 :sue 2})] (is (= (select new-db :fred {:mary 1}) [{:mary 1 :sue 2}]))) - (is (thrown? Exception (add-tuple test-db :fred {:mary 1})))) + (is (thrown? AssertionError (add-tuple test-db :fred {:mary 1})))) (def test-db-1 (add-tuples test-db |