diff options
| -rw-r--r-- | src/clojure/contrib/datalog/tests/test_database.clj | 4 | ||||
| -rw-r--r-- | src/clojure/contrib/test_contrib/test_dataflow.clj | 2 |
2 files changed, 3 insertions, 3 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 diff --git a/src/clojure/contrib/test_contrib/test_dataflow.clj b/src/clojure/contrib/test_contrib/test_dataflow.clj index 991e7f2e..8b934dc3 100644 --- a/src/clojure/contrib/test_contrib/test_dataflow.clj +++ b/src/clojure/contrib/test_contrib/test_dataflow.clj @@ -32,7 +32,7 @@ (= (get-value df-1 'product) 0))) (is (do (update-values df-1 {'base 2}) (= (get-value df-1 'product) 18))) - (is (thrown? Exception (update-values df-1 {'base 0}))) + (is (thrown? AssertionError (update-values df-1 {'base 0}))) (is (= (get-value df-1 'product) 18))) (def df-2 |