;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\315\316\317\320\321\322\323\324&\210\325\326\327\330\331DD\332\333\334\323\316\335\336&	\210\325\337\327\330\340DD\341\333\334\323\316\335\342&	\210\325\343\327\330\344DD\345\333\346\323\316\335\347&	\207" [require button cl-lib easymenu map seq subr-x cider-common cider-client cider-popup cider-stacktrace cider-compat cider-overlays custom-declare-group cider-test nil "Presentation and navigation for test results." :prefix "cider-test-" :group cider custom-declare-variable cider-test-show-report-on-success funcall function #[0 "\300\207" [nil] 1] "Whether to show the `*cider-test-report*` buffer on passing tests." :type boolean :package-version (cider . "0.8.0") cider-auto-select-test-report-buffer #[0 "\300\207" [t] 1] "Determines if the test-report buffer should be auto-selected." (cider . "0.9.0") cider-test-defining-forms #[0 "\300\207" [("deftest" "defspec")] 1] "Forms that define individual tests.\nCIDER considers the \"top-level\" form around point to define a test if\nthe form starts with one of these forms.\nAdd to this list to have CIDER recognize additional test defining macros." (repeat string) (cider . "0.15.0")] 10)
#@35 The summary of the last run test.
(defvar cider-test-last-summary nil (#$ . 1406))
#@35 The results of the last run test.
(defvar cider-test-last-results nil (#$ . 1495))
#@47 Buffer name in which to display test reports.
(defconst cider-test-report-buffer "*cider-test-report*" (#$ . 1584))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\300\314\315\316\304\305\306\317&\207" [custom-declare-face cider-test-failure-face ((((class color) (background light)) :background "orange red") (((class color) (background dark)) :background "firebrick")) "Face for failed tests." :group cider-test :package-version (cider . "0.7.0") cider-test-error-face ((((class color) (background light)) :background "orange1") (((class color) (background dark)) :background "orange4")) "Face for erring tests." (cider . "0.7.0") cider-test-success-face ((((class color) (background light)) :foreground "black" :background "green") (((class color) (background dark)) :foreground "black" :background "green")) "Face for passing tests." (cider . "0.7.0")] 8)
#@44 Background color for test assertion items.
(defvar cider-test-items-background-color (cider-scale-background-color) (#$ . 2492))
(byte-code "\300\301\302\303\304$\210\305\301\304\"\210\300\306\307\303\304$\210\305\306\304\"\207" [ad-add-advice enable-theme (cider-test-adapt-to-theme nil t (advice lambda nil "When theme is changed, update `cider-test-items-background-color'." (setq cider-test-items-background-color (cider-scale-background-color)))) after nil ad-activate disable-theme (cider-test-adapt-to-theme nil t (advice lambda nil "When theme is disabled, update `cider-test-items-background-color'." (setq cider-test-items-background-color (cider-scale-background-color))))] 5)
(defvar cider-test-commands-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\304#\210\302\324\306#\210\302\325\310#\210\302\326\312#\210\302\327\314#\210\302\330\316#\210\302\331\320#\210\302\332\322#\210\207" [define-prefix-command cider-test-commands-map define-key "" cider-test-rerun-failed-tests "" cider-test-run-test "" cider-test-rerun-test "" cider-test-run-ns-tests "" cider-test-run-ns-tests-with-filters "\f" cider-test-run-loaded-tests "" cider-test-run-project-tests "" cider-test-show-report "r" "t" "a" "n" "s" "l" "p" "b"] 5))
#@21 CIDER test submenu.
(defconst cider-test-menu '("Test" ["Run test" cider-test-run-test] ["Run namespace tests" cider-test-run-ns-tests] ["Run namespace tests with filters" cider-test-run-ns-tests-with-filters] ["Run all loaded tests" cider-test-run-loaded-tests] ["Run all loaded tests with filters" (apply-partially cider-test-run-loaded-tests 'prompt-for-filters)] ["Run all project tests" cider-test-run-project-tests] ["Run all project tests with filters" (apply-partially cider-test-run-project-tests 'prompt-for-filters)] ["Run tests after load-file" cider-auto-test-mode :style toggle :selected cider-auto-test-mode] "--" ["Interrupt running tests" cider-interrupt] ["Rerun failed/erring tests" cider-test-rerun-failed-tests] ["Show test report" cider-test-show-report] "--" ["Configure testing" (customize-group 'cider-test)]) (#$ . 3874))
(defvar cider-test-report-mode-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\301\307\310#\210\301\311\312#\210\301\313\306#\210\301\314\310#\210\301\315\312#\210\301\316\312#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\301\331\332#\210\301\333\334#\210\301\335\336#\210\301\337\340#\210\341\342!\210\343\344\345\346$\210\207" [make-sparse-keymap define-key "," cider-test-commands-map "" [134217840] cider-test-previous-result [134217838] cider-test-next-result [134217774] cider-test-jump [backtab] "	" "" "t" "d" cider-test-ediff "e" cider-test-stacktrace "f" cider-test-rerun-failed-tests "n" cider-test-run-ns-tests "s" cider-test-run-ns-tests-with-filters "l" cider-test-run-loaded-tests "p" cider-test-run-project-tests "g" cider-test-run-test "q" cider-popup-buffer-quit-function (lambda (def-tmp-var) (defvar cider-test-report-mode-menu def-tmp-var #1="Menu for CIDER's test result mode")) nil easy-menu-do-define cider-test-report-mode-menu #1# ("Test-Report" ["Previous result" cider-test-previous-result] ["Next result" cider-test-next-result] "--" ["Rerun current test" cider-test-run-test] ["Rerun failed/erring tests" cider-test-rerun-failed-tests] ["Run all ns tests" cider-test-run-ns-tests] ["Run all ns tests with filters" cider-test-run-ns-tests-with-filters] ["Run all loaded tests" cider-test-run-loaded-tests] ["Run all loaded tests with filters" (apply-partially cider-test-run-loaded-tests 'prompt-for-filters)] ["Run all project tests" cider-test-run-project-tests] ["Run all project tests with filters" (apply-partially cider-test-run-project-tests 'prompt-for-filters)] "--" ["Jump to test definition" cider-test-jump] ["Display test error" cider-test-stacktrace] ["Display expected/actual diff" cider-test-ediff])] 6))
(defvar cider-test-report-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [cider-test-report-mode-hook variable-documentation put "Hook run after entering Test Report mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp cider-test-report-mode-map definition-name cider-test-report-mode] 4)
(defvar cider-test-report-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [cider-test-report-mode-abbrev-table cider-test-report-mode-map variable-documentation put purecopy "Keymap for `cider-test-report-mode'." boundp cider-test-report-mode-syntax-table definition-name cider-test-report-mode (lambda (def-tmp-var) (defvar cider-test-report-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `cider-test-report-mode'." (lambda (def-tmp-var) (defvar cider-test-report-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `cider-test-report-mode'." derived-mode-parent] 5)
#@192 Major mode for presenting Clojure test results.

\{cider-test-report-mode-map}

This mode runs the hook `cider-test-report-mode-hook', as the final
or penultimate step during initialization.
(defalias 'cider-test-report-mode #[0 "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210\307\203' \306\315!\210\307\306\316!\210\317\306\320!\210\321)\322\323!\207" [delay-mode-hooks major-mode mode-name cider-test-report-mode-map cider-test-report-mode-syntax-table cider-test-report-mode-abbrev-table make-local-variable t kill-all-local-variables cider-test-report-mode "Test Report" use-local-map set-syntax-table truncate-lines sesman-system CIDER electric-indent-chars nil run-mode-hooks cider-test-report-mode-hook local-abbrev-table buffer-read-only cider-special-mode-truncate-lines] 2 (#$ . 7877) nil])
#@45 Show the test report buffer, if one exists.
(defalias 'cider-test-show-report #[0 "\301!\211\203 \302!\207\303\304!\207" [cider-test-report-buffer get-buffer switch-to-buffer message "No test report buffer"] 3 (#$ . 8709) nil])
#@56 Move point to the previous test result, if one exists.
(defalias 'cider-test-previous-result #[0 "r\301!q\210\302`\303\"\211\205& \304\303\"\203 \211b\202& \302\303\"\211\205$ \211b\262\262)\207" [cider-test-report-buffer get-buffer previous-single-property-change type get-text-property] 4 (#$ . 8946) nil])
#@52 Move point to the next test result, if one exists.
(defalias 'cider-test-next-result #[0 "r\301!q\210\302`\303\"\211\205& \304\303\"\203 \211b\202& \302\303\"\211\205$ \211b\262\262)\207" [cider-test-report-buffer get-buffer next-single-property-change type get-text-property] 4 (#$ . 9267) nil])
#@203 Find definition for test at point, if available.
The prefix ARG and `cider-prompt-for-symbol' decide whether to
prompt and whether to use a new window.  Similar to `cider-find-var'.

(fn &optional ARG)
(defalias 'cider-test-jump #[256 "\300`\301\"\300`\302\"\300`\303\"\203 \203 \304\305Q#\207\304!\207" [get-text-property ns var line cider-find-var "/"] 9 (#$ . 9577) "P"])
#@92 Display stacktrace for the erring NS VAR test with the assertion INDEX.

(fn NS VAR INDEX)
(defalias 'cider-test-stacktrace-for #[771 "\301C\302\303\304\305\306\307\310\nD\311\nD\312\nDF\313!#\"\314\315\"\"\207" [fill-column nil cider-nrepl-send-request seq-mapcat identity map-merge list ("op" "test-stacktrace") "ns" "var" "index" cider--nrepl-print-request-map make-closure #[257 "\303\304\"\303\305\"\203 \300\300\242B\240\207\211\205( \300\242\205( \306\307	\n\310\311$\312\300\242!\"\207" [V0 cider-error-buffer cider-auto-select-error-buffer nrepl-dict-get "class" "status" cider-stacktrace-render cider-popup-buffer cider-stacktrace-mode ancillary reverse] 9 "\n\n(fn RESPONSE)"]] 14 (#$ . 9967)])
#@50 Display stacktrace for the erring test at point.
(defalias 'cider-test-stacktrace #[0 "\300`\301\"\300`\302\"\300`\303\"\300`\304\"\211\203& \203& \203& \203& \305#\207\306\307!\207" [get-text-property ns var index error cider-test-stacktrace-for message "No test error at point"] 8 (#$ . 10689) nil])
#@51 The expected/actual buffers used to display diff.
(defvar cider-test-ediff-buffers nil (#$ . 11003))
#@178 Extract form N from ACTUAL, ignoring outermost not.

ACTUAL is a string like "(not (= 3 4))", of the sort returned by
clojure.test.

N = 1 => 3, N = 2 => 4, etc.

(fn ACTUAL N)
(defalias 'cider-test--extract-from-actual #[514 "\300\301\302\"r\211q\210\303\304\"\216c\210\305 \210eb\210\306\307\310\302\311$\210\312!\210\313\314!\210`\312 \210\211`{\262*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] clojure-mode re-search-forward "(" nil 2 clojure-forward-logical-sexp forward-whitespace 1] 8 (#$ . 11111)])
#@140 Show diff of the expected vs actual value for the test at point.
With the actual value, the outermost '(not ...)' s-expression is removed.
(defalias 'cider-test-ediff #[0 "\301\302!\301\303!\304`\305\"\304`\306\"\203 \304`\307\"\202! \211\205! \310\311\"\203+ @@\2023 \2053 \310\312\"\203; \211\204? \313\314!\207rq\210c\210\315 \210)rq\210\211c\210\315 \210)\316\317\320!\320!D\211\"\207" [cider-test-ediff-buffers generate-new-buffer " *expected*" " *actual*" get-text-property diffs actual expected cider-test--extract-from-actual 1 2 message "No test failure at point" clojure-mode apply ediff-buffers buffer-name] 11 (#$ . 11703) nil])
#@48 Cleanup expected/actual buffers used for diff.
(defalias 'cider-test-ediff-cleanup #[0 "\301\302\"\207" [cider-test-ediff-buffers mapc #[257 "\300!\205	 \301!\207" [get-buffer kill-buffer] 3 "\n\n(fn B)"]] 3 (#$ . 12366) nil])
(add-hook 'ediff-cleanup-hook 'cider-test-ediff-cleanup)
#@64 Return the font lock face for the test result TYPE.

(fn TYPE)
(defalias 'cider-test-type-face #[257 "\211\300\267\202\f \301\207\302\207\303\207\304\207" [#s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("pass" 6 "fail" 8 "error" 10)) cider-test-success-face cider-test-failure-face cider-test-error-face default] 3 (#$ . 12659)])
#@92 Return a face for the test result TYPE using the highlight color as foreground.

(fn TYPE)
(defalias 'cider-test-type-simple-face #[257 "\300!\301\302\303\"D\207" [cider-test-type-face :foreground face-attribute :background] 6 (#$ . 13037)])
#@70 Emit into BUFFER the report SUMMARY statistics.

(fn BUFFER SUMMARY)
(defalias 'cider-test-render-summary #[514 "rq\210\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\307\310\"c\210\307\311#c\210\312U\204; \313\307\314\"\315\316#\210\211\312U\204J \313\307\317\"\320\316#\210\\\312U\203[ \313\307\321\"\322\316#\210\323c\266\206)\207" [nrepl-dict-get "ns" "var" "test" "pass" "fail" "error" format "Tested %d namespaces\n" "Ran %d assertions, in %d test functions\n" 0 cider-insert "%d failures" cider-test-failure-face t "%d errors" cider-test-error-face "%d passed" cider-test-success-face "\n\n"] 12 (#$ . 13287)])
#@74 Emit into BUFFER report detail for the TEST assertion.

(fn BUFFER TEST)
(defalias 'cider-test-render-assertion #[514 "rq\210\301\302\"\301\303\"\301\304\"\301\305\"\301\306\"\301\307\"\301\310\"\301\311\"\301	\312\"\313\314\315``\316\f!\317\320BB\321\322!\323\324$\210\321\325\326#\210\203W \321\327\326#\210\f\203c \321\330\326#\210\203u \306!\210\f!\210\331c\210	\203\345 	\211\203\341 \211@\211\211G\332U\203\223 \211A\262\242\202\232 \333\334\335GD\"\242\211G\332U\203\254 \211A\262\242\202\263 \333\334\335GD\"\242\307!\210!\210\336!\210\337c\210!\210\f\340!\210!\210\331c\266A\266\202\202| \210\202\364 \n\203\364 \307!\210!\210\203\311!\210\341	\342\326\343\344\345\346&\210\331c\210\203\347!\210\350!c\210\351\352`\"\353#\266\331c\354`\355A!#\210\262\266\214)\207" [cider-test-items-background-color nrepl-dict-get "var" "context" "type" "message" "expected" "actual" "diffs" "error" "gen-input" #[257 "\300\301\302\"\303\"\207" [cider-insert format "%8s: " font-lock-comment-face] 5 "\n\n(fn S)"] #[257 "\300\301\"c\207" [format "%12s"] 4 "\n\n(fn S)"] #[257 "\300\301\302!\303\"!\210\304 \207" [insert-rectangle split-string cider-font-lock-as-clojure "\n" beginning-of-line] 5 "\n\n(fn S)"] cider-test-type-simple-face :background (:extend t) cider-insert capitalize nil " in " font-lock-function-name-face t font-lock-doc-face font-lock-string-face "\n" 2 signal wrong-number-of-arguments (actual (removed added)) "diff" "- " "+ " insert-text-button follow-link action (lambda (_button) (cider-test-stacktrace)) help-echo "View causes and stacktrace" "input" cider-font-lock-as-clojure overlay-put make-overlay font-lock-face add-text-properties cider-intern-keys] 27 (#$ . 13943)])
#@93 For a list of TESTS, each an `nrepl-dict`, return only those that did not pass.

(fn TESTS)
(defalias 'cider-test-non-passing #[257 "\300\301\"\207" [seq-filter #[257 "\300\301\"\302\232?\205 \211\207" [nrepl-dict-get "type" "pass"] 4 "\n\n(fn TEST)"]] 4 (#$ . 15736)])
#@93 Emit into BUFFER the report for the SUMMARY, and test RESULTS.

(fn BUFFER SUMMARY RESULTS)
(defalias 'cider-test-render-report #[771 "rq\210\301\302 \210\303\304\305\301#\210\306!\211\203' \211@\307\310\"\311\261\210A\266\202\202 \210\303\311!\210\312\"\210\313\314\"\313\315\"\\\316U\204Q \303\317\305\301\311$\210\320\321\322\"\"\210\266eb\210p*\207" [inhibit-read-only t cider-test-report-mode cider-insert "Test Summary" bold nrepl-dict-keys cider-propertize ns "\n" cider-test-render-summary nrepl-dict-get "fail" "error" 0 "Results" nrepl-dict-map make-closure #[514 "\301\302\303\300#\"\207" [V0 nrepl-dict-map make-closure #[514 "\302!\211G\303W\205* \304\305\306\301\307\"#c\210\211\205( \211@\310\300\"\210A\266\202\202 \262\207" [V0 V1 cider-test-non-passing 0 format "%s\n%d non-passing tests:\n\n" cider-propertize ns cider-test-render-assertion] 9 "\n\n(fn VAR TESTS)"]] 7 "\n\n(fn NS VARS)"]] 10 (#$ . 16015)])
#@144 Echo a running message for the test NS, which may be a keyword.
The optional arg TEST denotes an individual test name.

(fn NS &optional TEST)
(defalias 'cider-test-echo-running #[513 "\211\203 \300\301\302\303\"\302\304\"#\207\300\305\302;\203 \2024 \306\267\202. \307\2024 \310\2024 \311\2024 ;\2054 \304\";?\205= \312P\"\207" [message "Running test %s in %s..." cider-propertize bold ns "Running tests in %s..." #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:non-passing 34 :loaded 38 :project 42)) "failing" "all loaded" "all project" " namespaces"] 8 (#$ . 16976)])
#@81 Echo SUMMARY statistics for a test run returning RESULTS.

(fn SUMMARY RESULTS)
(defalias 'cider-test-echo-summary #[514 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\306!\203& \307\310\311\312\313#\314P!\207\307\310\315\312\316U\2044 \313\202? \316U\204> \317\202? \320#\321U\203R \322\323	!@\324\"\202[ \310\325\326	\"\312\327#\310\330\312\327#P&\207" [nrepl-dict-get "ns" "test" "var" "fail" "error" nrepl-dict-empty-p message propertize "No assertions (or no tests) were run." face cider-test-error-face "Did you forget to use `is' in your tests?" "%sRan %d assertions, in %d test functions. %d failures, %d errors." 0 cider-test-failure-face cider-test-success-face 1 cider-propertize nrepl-dict-keys ns format "%d namespaces" default ": "] 14 (#$ . 17603)])
#@82 Highlight the BUFFER test definition for the non-passing TEST.

(fn BUFFER TEST)
(defalias 'cider-test-highlight-problem #[514 "rq\210\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\205K \212eb\210Sy\210\306\307\310\311#\210`\312 \210\313`\314\315\316!\317\f\320\f\321\322\323&\262)\266\205)\207" [nrepl-dict-get "type" "line" "message" "expected" "actual" search-forward "(" nil t forward-sexp cider--make-overlay cider-test font-lock-face cider-test-type-face type help-echo message expected actual] 24 (#$ . 18402)])
#@103 Return the buffer visiting the file in which the NS VAR is defined.
Or nil if not found.

(fn NS VAR)
(defalias 'cider-find-var-file #[514 "\300\301Q!\211\205 \302\303\"\211\205 \304!\207" [cider-var-info "/" nrepl-dict-get "file" cider-find-file] 6 (#$ . 18953)])
#@68 Highlight all non-passing tests in the test RESULTS.

(fn RESULTS)
(defalias 'cider-test-highlight-problems #[257 "\300\301\"\207" [nrepl-dict-map #[514 "\300\301\302\"\"\207" [nrepl-dict-map make-closure #[514 "\301\300\"\211\205( \211\205& \211@\302\303\"\211\304\232\204 \305\"\210\210A\266\202\202	 \262\207" [V0 cider-find-var-file nrepl-dict-get "type" "pass" cider-test-highlight-problem] 9 "\n\n(fn VAR TESTS)"]] 6 "\n\n(fn NS VARS)"]] 4 (#$ . 19230)])
#@65 Clear highlighting of non-passing tests from the last test run.
(defalias 'cider-test-clear-highlights #[0 "\205 \301\302\"\207" [cider-test-last-results nrepl-dict-map #[514 "\300!\211\205% \211@\301\"\211\203 r\211q\210\302\303\211\304\305$\210)\210A\266\202\202 \207" [nrepl-dict-keys cider-find-var-file remove-overlays nil category cider-test] 10 "\n\n(fn NS VARS)"]] 3 (#$ . 19708) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable cider-test-infer-test-ns funcall function #[0 "\300\207" [cider-test-default-test-ns-fn] 1] "Function to infer the test namespace for NS.\nThe default implementation uses the simple Leiningen convention of appending\n'-test' to the namespace name." :type symbol :group cider-test :package-version (cider . "0.7.0")] 10)
#@160 For a NS, return the test namespace, which may be the argument itself.
This uses the Leiningen convention of appending '-test' to the namespace name.

(fn NS)
(defalias 'cider-test-default-test-ns-fn #[257 "\211\205 \300\301\"\203\f \207\211\301P\207" [string-suffix-p "-test"] 4 (#$ . 20533)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\317\310\311\312\320&	\207" [custom-declare-variable cider-test-default-include-selectors funcall function #[0 "\300\207" [nil] 1] "List of include selector strings to use when executing tests if none provided." :type (repeat string) :group cider-test :package-version (cider . "1.1.0") cider-test-default-exclude-selectors #[0 "\300\207" [nil] 1] "List of exclude selector strings to use when executing tests if none provided." (repeat string) (cider . "1.1.0")] 10)
#@104 Prompt for test selectors with MESSAGE.
The selectors can be either keywords or strings.

(fn MESSAGE)
(defalias 'cider-test--prompt-for-selectors #[257 "\300\301\302\303!!\"\207" [mapcar #[257 "\300\301\302#\207" [replace-regexp-in-string "^:+" ""] 5 "\n\n(fn STRING)"] split-string cider-read-from-minibuffer] 6 (#$ . 21403)])
#@684 Run tests for NS, which may be a keyword, optionally specifying TESTS.
This tests a single NS, or multiple namespaces when using keywords `:project',
`:loaded' or `:non-passing'.  Optional TESTS are only honored when a single
namespace is specified.  Upon test completion, results are echoed and a test
report is optionally displayed.  When test failures/errors occur, their sources
are highlighted.
If SILENT is non-nil, suppress all messages other then test results.
If PROMPT-FOR-FILTERS is non-nil, prompt the user for a test selector filters.
The include/exclude selectors will be used to filter the tests before
running them.

(fn NS &optional TESTS SILENT PROMPT-FOR-FILTERS)
(defalias 'cider-test-execute #[1025 "\302 \210\211\203 \303\304!\202 \203 \303\305!\202 	\306\307\310\311			&\"\207" [cider-test-default-include-selectors cider-test-default-exclude-selectors cider-test-clear-highlights cider-test--prompt-for-selectors "Test selectors to include (space separated): " "Test selectors to exclude (space separated): " cider-map-repls :clj-strict make-closure #[257 "\302\204 \301\203 \301G\305U\203 \306\300\301@\"\210\202 \306\300!\210\307\300;\203& \310\202A \300\311=\2030 \312\202A \300\313=\203: \312\202A \300\314=\205A \315D\303<\203S \303\203S \316\317\303D\"\262\304<\203d \304\203d \316\320\304D\"\262\300;\203q \316\321\300D\"\262\300;\203~ \316\322\301D\"\262\300;\204\211 \300\311=\203\221 \316\323\324D\"\262\325\326\327\300\302##\207" [V0 V1 V2 V3 V4 1 cider-test-echo-running "op" "test" :project "test-all" :loaded :non-passing "retest" append "include" "exclude" "ns" "tests" "load?" "true" cider-nrepl-send-request make-closure #[257 "\306\307\"\306\310\"\306\311\"\306\312\"\306\313\"\314\235\203' \301?\205\207 \315\316\317\300\320\"\"\207\203/ \321!\207\211\2037 \322!\207\205\207 \306\323\"\306\324\"\325!\210\326\"\210\\\327U\203a \f\203m \330\331\"#\207\332!\205\205 rq\210\333\334 \210*\330#\266\202\207" [V0 V1 cider-test-last-summary cider-test-last-results cider-test-show-report-on-success cider-test-report-buffer nrepl-dict-get "summary" "results" "status" "out" "err" "namespace-not-found" message "No test namespace: %s" cider-propertize ns cider-emit-interactive-eval-output cider-emit-interactive-eval-err-output "error" "fail" cider-test-highlight-problems cider-test-echo-summary 0 cider-test-render-report cider-popup-buffer get-buffer t erase-buffer cider-auto-select-test-report-buffer inhibit-read-only] 12 "\n\n(fn RESPONSE)"]] 8 "\n\n(fn CONN)"]] 15 (#$ . 21741)])
#@55 Rerun failed and erring tests from the last test run.
(defalias 'cider-test-rerun-failed-tests #[0 "\203 \301\302\"\301\303\"\211\\\304U\204 \305\306!\207\307\310!\207\307\311!\207" [cider-test-last-summary nrepl-dict-get "fail" "error" 0 cider-test-execute :non-passing message "No prior failures to retest" "No prior results to retest"] 4 (#$ . 24343) nil])
#@178 Run all tests defined in currently loaded namespaces.

If PROMPT-FOR-FILTERS is non-nil, prompt the user for a test selectors to filter the tests with.

(fn PROMPT-FOR-FILTERS)
(defalias 'cider-test-run-loaded-tests #[257 "\300\301\302\211$\207" [cider-test-execute :loaded nil] 6 (#$ . 24716) "P"])
#@198 Run all tests defined in all project namespaces, loading these as needed.

If PROMPT-FOR-FILTERS is non-nil, prompt the user for a test selectors to filter the tests with.

(fn PROMPT-FOR-FILTERS)
(defalias 'cider-test-run-project-tests #[257 "\300\301\302\211$\207" [cider-test-execute :project nil] 6 (#$ . 25024) "P"])
#@187 Run tests filtered by selectors for the current Clojure namespace context.

With a prefix arg SUPPRESS-INFERENCE it will try to run the tests in the
current ns.

(fn SUPPRESS-INFERENCE)
(defalias 'cider-test-run-ns-tests-with-filters #[257 "\300\301\302#\207" [cider-test-run-ns-tests nil t] 5 (#$ . 25354) "P"])
#@370 Run all tests for the current Clojure namespace context.

If SILENT is non-nil, suppress all messages other then test results.
With a prefix arg SUPPRESS-INFERENCE it will try to run the tests in the
current ns.  If PROMPT-FOR-FILTERS is non-nil, prompt the user for
test selectors to filter the tests with.

(fn SUPPRESS-INFERENCE &optional SILENT PROMPT-FOR-FILTERS)
(defalias 'cider-test-run-ns-tests #[769 "\203\n \302\303!\202 \302\303!!\211\203 \304\305$\207	\306=\203) \307\310!\2051 \311 \207?\2051 \312\313!\207" [cider-test-infer-test-ns major-mode cider-current-ns t cider-test-execute nil cider-test-report-mode y-or-n-p "Test report does not define a namespace. Rerun failed/erring tests?" cider-test-rerun-failed-tests message "No namespace to test in current context"] 9 (#$ . 25675) "P"])
#@57 The ns of the last test ran with `cider-test-run-test'.
(defvar cider-test-last-test-ns nil (#$ . 26494))
#@58 The var of the last test ran with `cider-test-run-test'.
(defvar cider-test-last-test-var nil (#$ . 26606))
#@88 Update the last test by setting NS and VAR.

See `cider-test-rerun-test'.

(fn NS VAR)
(defalias 'cider-test-update-last-test #[514 "\211\211\207" [cider-test-last-test-ns cider-test-last-test-var] 4 (#$ . 26720)])
#@188 Run the test at point.
The test ns/var exist as text properties on report items and on highlighted
failed/erred test definitions.  When not found, a test definition at point
is searched.
(defalias 'cider-test-run-test #[0 "\301`\302\"\301`\303\"\203 \211\203 \304\"\210\305C\"\207\306 \307 \211@A@\203: \235\203: \304C\"\210\305C\"\207\310\311!\207" [cider-test-defining-forms get-text-property ns var cider-test-update-last-test cider-test-execute clojure-find-ns clojure-find-def message "No test at point"] 9 (#$ . 26945) nil])
#@42 Re-run the test that was previously ran.
(defalias 'cider-test-rerun-test #[0 "\203 	\203 \302	\"\207\303\304!\207" [cider-test-last-test-ns cider-test-last-test-var cider-test-execute user-error "No test to re-run"] 3 (#$ . 27497) nil])
#@156 Like `cider-test-run-tests', but with less feedback.
Only notify the user if there actually were any tests to run and only after
the results are received.
(defalias 'cider--test-silently #[0 "\302 \205 \303\211\304\303\305\"*\207" [cider-test-show-report-on-success cider-auto-select-test-report-buffer cider-connected-p nil cider-test-run-ns-tests soft] 3 (#$ . 27746)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable cider-auto-test-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Cider-Auto-Test mode is enabled.\nSee the `cider-auto-test-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `cider-auto-test-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)
#@827 Toggle automatic testing of Clojure files.

This is a minor mode.  If called interactively, toggle the
`Cider-Auto-Test mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable
the mode if ARG is nil, omitted, or is a positive number.
Disable the mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value 'cider-auto-test-mode)'.

The mode's hook is called both when the mode is enabled and when
it is disabled.

When enabled this reruns tests every time a Clojure file is loaded.
Only runs tests corresponding to the loaded file's namespace and does
nothing if no tests are defined or if the file failed to load.

(fn &optional ARG)
(defalias 'cider-auto-test-mode #[256 "\302 \303\301\304=\203 \305\301!?\202! \247\203  \306W\203  \307\202! \310\"\210\311\300!\2038 \312\301\"\305\301!\2038 \301B	\203D \313\314\315\"\210\202I \316\314\315\"\210\317\320\305\301!\203U \321\202V \322\"\210\323\324!\203~ \325\301!\210\302 \203n \211\302 \232\203~ \326\327\305\301!\203z \330\202{ \331\332#\210\210\333 \210\305\301!\207" [global-minor-modes cider-auto-test-mode current-message set-default toggle default-value 1 nil t boundp delq add-hook cider-file-loaded-hook cider--test-silently remove-hook run-hooks cider-auto-test-mode-hook cider-auto-test-mode-on-hook cider-auto-test-mode-off-hook called-interactively-p any customize-mark-as-set message "Cider-Auto-Test mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 28656) (byte-code "\203\n \301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar cider-auto-test-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205# \310\211%\210\315\316!\207" [cider-auto-test-mode-map cider-auto-test-mode-hook variable-documentation put "Hook run after entering or leaving `cider-auto-test-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode cider-auto-test-mode (cider-mode " Test") boundp provide cider-test] 6)