speculative kaocha plugin

This kaocha plugin instruments tests
with speculative clojure.core specs.

Installation

Tools.deps

{:deps {speculative/kaocha-plugin {:mvn/version "0.0.1"}}}

Leiningen / Boot

[speculative/kaocha-plugin "0.0.1"]

Configuration

Add :speculative-kaocha.plugin/instrument to the :plugins key in
tests.edn.

By default clojure.core functions are instrumented. This can be disabled by
setting :speculative-kaocha.plugin/no-instrument to true on a per test suite
basis.

#kaocha/v1
{:plugins [:speculative-kaocha.plugin/instrument]
 :tests [{:id :unit
          :kaocha/test-paths    ["test/unit"]}
         {:id :integration
          :speculative-kaocha.plugin/no-instrument true
          :kaocha/test-paths    ["test/integration"]}]}

Demo

$ cat test/demo/core_test.cljc
(ns demo.core-test
  (:require [clojure.test :as t]))
(t/deftest foo
  (t/is (flatten 1)))
$ clojure -A:test -m kaocha.runner
[(.)]
1 tests, 1 assertions, 0 failures.
$ clojure -A:test -m kaocha.runner --plugin speculative-kaocha.plugin/instrument
[(E)]
Randomized with --seed 1206313428
ERROR in demo.core-test/foo (alpha.clj:132)
Exception: clojure.lang.ExceptionInfo: Call to #'clojure.core/flatten did not conform to spec.
{:clojure.spec.alpha/problems [{:path [:x :clojure.spec.alpha/pred], :pred clojure.core/sequential?, :val 1, :via [:speculative.specs/sequential], :in [0]} {:path [:x :clojure.spec.alpha/nil], :pred nil?, :val 1, :via [], :in [0]}], :clojure.spec.alpha/spec #object[clojure.spec.alpha$regex_spec_impl$reify__2509 0x76596288 "clojure.spec.alpha$regex_spec_impl$reify__2509@76596288"], :clojure.spec.alpha/value (1), :clojure.spec.alpha/fn clojure.core/flatten, :clojure.spec.alpha/args (1), :clojure.spec.alpha/failure :instrument, :clojure.spec.test.alpha/caller {:file "core.clj", :line 665, :var-scope clojure.core/apply}}

Selectively disabling specs

In the unfortunate event that a speculative spec is wrong, or your code is
offending a spec and you don’t want to fix it right away, you can selectively
disable specs by def‘ing them to nil after loading speculative.instrument.

E.g. (s/def clojure.core/re-find nil).

In deps.edn this can be done as follows:

:main-opts
["-e" "(require,'[speculative.instrument])"
 "-e" "(require,'[clojure.spec.alpha,:as,s])"
 "-e" "(s/def,clojure.core/re-find,nil)"
 "-m" "kaocha.runner" "--no-capture-output"]

Tests

clojure -A:test
lein kaocha

License

Distributed under the EPL License, same as Clojure. See LICENSE.