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
23 lines
1.1 KiB
Clojure
23 lines
1.1 KiB
Clojure
(ns expound.print-length-test
|
|
(:require [clojure.test :as ct :refer [is deftest testing]]
|
|
[clojure.spec.alpha :as s]
|
|
[expound.alpha]
|
|
[clojure.string :as string]))
|
|
|
|
(def the-value (range 10))
|
|
;; Fails on the last element of the range
|
|
(def the-spec (s/coll-of #(< % 9)))
|
|
(def the-explanation (s/explain-data the-spec the-value))
|
|
|
|
(deftest print-length-test
|
|
(testing "Expound works even in face of a low `*print-length*` and `*print-level*`, without throwing exceptions.
|
|
See https://github.com/bhb/expound/issues/217"
|
|
(doseq [length [1 5 100 *print-length*]
|
|
level [1 5 100 *print-level*]
|
|
;; Note that the `is` resides outside of the `binding`. Else test output itself can be affected.
|
|
:let [v (binding [*print-length* length
|
|
*print-level* level]
|
|
(with-out-str
|
|
(expound.alpha/printer the-explanation)))]]
|
|
;; Don't make a particularly specific test assertion, since a limited print-length isn't necessarily realistic/usual:
|
|
(is (not (string/blank? v))))))
|