665ae4dd97
* Add tests for markdown-clj and tools.namespace
See comment for why only one markdown test could be run.
Closes #1069 and #1064
* Convert 10 test libs using add-libtest
Also improved add-libtest to only require maven artifact
and rely on clojars for getting git-url most of the time
* Convert 8 more test libs using add-libtest
Also updated table and added comment for newline test
* Fix doric test
* Disable tools.namespace test that fails on windows
* Added dozen manual test libs and converted 2 test libs
add-libtest.clj supports manually-added and test-directories options
* Converts last tests to test namespaces and write libraries.csv
* Add a number of library tests from projects.md
Also add more docs around adding test libs and tweak add script
* Use :sha for gitlib and older clojure cli
* Revert "Use :sha for gitlib and older clojure cli"
This reverts commit c663ab8368.
* Fix and disable failing tests
Disabled tests that fail consistently and fixed windows one
121 lines
4.7 KiB
Clojure
121 lines
4.7 KiB
Clojure
(ns bond.assertions-test
|
|
(:require [clojure.test :refer (deftest is testing)]
|
|
[bond.assertions :as assertions]
|
|
[bond.james :as bond :include-macros true]
|
|
[bond.target-data :as target]))
|
|
|
|
(deftest called?-works
|
|
(testing "a spy was called directly"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo 1)
|
|
(is (assertions/called? target/foo))))
|
|
|
|
(testing "a spy was called indirectly"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo-caller 1)
|
|
(is (assertions/called? target/foo))))
|
|
|
|
(testing "a spy was not called"
|
|
(bond/with-spy [target/foo]
|
|
(is (not (assertions/called? target/foo)))))
|
|
|
|
(testing "called? fails when its argument is not spied"
|
|
(is (thrown? IllegalArgumentException
|
|
(assertions/called? target/foo)))))
|
|
|
|
(deftest called-times?-works
|
|
(testing "the number of times a spy was called"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo-caller 1)
|
|
(is (assertions/called-times? target/foo 1))
|
|
(target/foo 2)
|
|
(is (assertions/called-times? target/foo 2))))
|
|
|
|
(testing "the number of times a spy was not called"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo-caller 1)
|
|
(is (not (assertions/called-times? target/foo 2)))
|
|
(target/foo-caller 2)
|
|
(is (not (assertions/called-times? target/foo 1)))))
|
|
|
|
(testing "called-times? fails when its argument is not spied"
|
|
(is (thrown? IllegalArgumentException
|
|
(assertions/called-times? target/foo 0)))))
|
|
|
|
(deftest called-with-args?-works
|
|
(testing "an assertion for calling a spy with args"
|
|
(bond/with-spy [target/foo
|
|
target/bar]
|
|
(target/foo-caller 1)
|
|
(is (assertions/called-with-args? target/foo [[1]]))
|
|
(is (not (assertions/called-with-args? target/foo [[2]])))
|
|
(is (not (assertions/called-with-args? target/bar [[1]])))
|
|
(is (not (assertions/called-with-args? target/foo [[1 2]])))))
|
|
|
|
(testing "an assertion for calling a spy multiple times with args"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo-caller 1)
|
|
(target/foo-caller 2)
|
|
(is (assertions/called-with-args? target/foo [[1] [2]]))))
|
|
|
|
(testing "called-with-args? fails when its argument is not spied"
|
|
(is (thrown? IllegalArgumentException
|
|
(assertions/called-with-args? target/foo [])))))
|
|
|
|
(deftest called-once-with-args?-works
|
|
(testing "an assertion for calling a spy once with args"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo 1)
|
|
(is (assertions/called-once-with-args? target/foo [1]))
|
|
(is (not (assertions/called-once-with-args? target/foo [2])))))
|
|
|
|
(testing "an assertion for calling a spy twice with args"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo 1)
|
|
(target/foo 2)
|
|
(is (not (assertions/called-once-with-args? target/foo [1])))
|
|
(is (not (assertions/called-once-with-args? target/foo [2])))))
|
|
|
|
(testing "an assertion for calling a spy indirectly once with args"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo-caller 1)
|
|
(is (assertions/called-once-with-args? target/foo [1]))
|
|
(is (not (assertions/called-once-with-args? target/foo [2])))))
|
|
|
|
(testing "an assertion for a spy that was not called"
|
|
(bond/with-spy [target/foo]
|
|
(is (not (assertions/called-once-with-args? target/foo [])))))
|
|
|
|
(testing "called-once-with-args? fails when its argument is not spied"
|
|
(is (thrown? IllegalArgumentException
|
|
(assertions/called-once-with-args? target/foo [])))))
|
|
|
|
(deftest called-at-least-once-with-args?-works
|
|
(testing "an assertion for calling a spy multiple times"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo 1)
|
|
(target/foo 2)
|
|
(is (assertions/called-at-least-once-with-args? target/foo [1]))
|
|
(is (assertions/called-at-least-once-with-args? target/foo [2]))
|
|
(is (not (assertions/called-at-least-once-with-args? target/foo [3])))))
|
|
|
|
(testing "an assertion for calling a spy multiple times with the same value"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo 1)
|
|
(target/foo 1)
|
|
(is (assertions/called-at-least-once-with-args? target/foo [1]))
|
|
(is (not (assertions/called-at-least-once-with-args? target/foo [2])))))
|
|
|
|
(testing "an assertion for calling a spy once"
|
|
(bond/with-spy [target/foo]
|
|
(target/foo 1)
|
|
(is (assertions/called-at-least-once-with-args? target/foo [1]))
|
|
(is (not (assertions/called-at-least-once-with-args? target/foo [2])))))
|
|
|
|
(testing "an assertion for a spy that was not called"
|
|
(bond/with-spy [target/foo]
|
|
(is (not (assertions/called-at-least-once-with-args? target/foo [])))))
|
|
|
|
(testing "called-at-least-once-with-args? fails when its argument is not spied"
|
|
(is (thrown? IllegalArgumentException
|
|
(assertions/called-at-least-once-with-args? target/foo [])))))
|