ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/ert.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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\311\312\313\314\315\316\317\320&\210\321\322\323\324\317\312%\210\321\325\326\327\317\312%\207" [require cl-lib button debug easymenu ewoc find-func help pp custom-declare-group ert nil "ERT, the Emacs Lisp regression testing tool." :prefix "ert-" :group lisp custom-declare-face ert-test-result-expected ((((class color) (background light)) :background "green1") (((class color) (background dark)) :background "green3")) "Face used for expected results in the ERT results buffer." ert-test-result-unexpected ((((class color) (background light)) :background "red1") (((class color) (background dark)) :background "red3")) "Face used for unexpected results in the ERT results buffer."] 8)
#@385 Return t if A and B have similar structure and contents.
This is like `equal-including-properties' except that it compares
the property values of text properties structurally (by
recursing) rather than with `eq'. Perhaps this is what
`equal-including-properties' should do in the first place; see
Emacs bug 6581 at URL `http://debbugs.gnu.org/cgi/bugreport.cgi?bug=6581'.
(fn A B)
(defalias 'ert-equal-including-properties #[514 "\300\"?\207" [ert--explain-equal-including-properties] 5 (#$ . 1217)])
(defalias 'ert-test-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 7) (memq (aref cl-x 0) cl-struct-ert-test-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-p 'compiler-macro 'ert-test-p--cmacro)
(defalias 'ert-test-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert-test-tags vectorp 7 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert-test-p side-effect-free error-free put ert-test cl-deftype-satisfies] 4)
(defalias 'ert-test-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-name (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-tags)) (signal 'wrong-type-argument (list 'ert-test cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-name 'compiler-macro 'ert-test-name--cmacro)
(defalias 'ert-test-name #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-tags 0 signal wrong-type-argument ert-test 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-name 'side-effect-free t)
(defalias 'ert-test-documentation--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-documentation (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-tags)) (signal 'wrong-type-argument (list 'ert-test cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-documentation 'compiler-macro 'ert-test-documentation--cmacro)
(defalias 'ert-test-documentation #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-tags 0 signal wrong-type-argument ert-test 2] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-documentation 'side-effect-free t)
(defalias 'ert-test-body--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-body (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-tags)) (signal 'wrong-type-argument (list 'ert-test cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-body 'compiler-macro 'ert-test-body--cmacro)
(defalias 'ert-test-body #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-tags 0 signal wrong-type-argument ert-test 3] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-body 'side-effect-free t)
(defalias 'ert-test-most-recent-result--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-most-recent-result (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-tags)) (signal 'wrong-type-argument (list 'ert-test cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-most-recent-result 'compiler-macro 'ert-test-most-recent-result--cmacro)
(defalias 'ert-test-most-recent-result #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-tags 0 signal wrong-type-argument ert-test 4] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-most-recent-result 'side-effect-free t)
(defalias 'ert-test-expected-result-type--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-expected-result-type (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-tags)) (signal 'wrong-type-argument (list 'ert-test cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-expected-result-type 'compiler-macro 'ert-test-expected-result-type--cmacro)
(defalias 'ert-test-expected-result-type #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-tags 0 signal wrong-type-argument ert-test 5] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-expected-result-type 'side-effect-free t)
(defalias 'ert-test-tags--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-tags (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-tags)) (signal 'wrong-type-argument (list 'ert-test cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-tags 'compiler-macro 'ert-test-tags--cmacro)
(defalias 'ert-test-tags #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-tags 0 signal wrong-type-argument ert-test 6] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert-test-tags side-effect-free t defalias copy-ert-test copy-sequence] 4)
#@101
(fn CL-WHOLE &cl-quote &key NAME DOCUMENTATION BODY MOST-RECENT-RESULT EXPECTED-RESULT-TYPE TAGS)
(defalias 'make-ert-test--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"\206 \304A@\300\305\"A@\300\306\"\206$ \307A@\300\310\"\206/ \311A@\211\203^ \211@\312>\203F \211AA\262\2023 \313>A@\203U \314\262\2023 \315\316@\"\210\2023 \210\317\320\321\314 \314 & \207" [plist-member :name :documentation :body (nil (cl-assert nil)) :most-recent-result :expected-result-type (nil ':passed) :tags (nil 'nil) (:name :documentation :body :most-recent-result :expected-result-type :tags :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :documentation :body :most-recent-result :expected-result-type :tags)" cl--defsubst-expand (name documentation body most-recent-result expected-result-type tags) (cl-block make-ert-test "Constructor for objects of type `ert-test'." (vector 'cl-struct-ert-test name documentation body most-recent-result expected-result-type tags))] 20 (#$ . 6276)])
(put 'make-ert-test 'compiler-macro 'make-ert-test--cmacro)
#@125 Constructor for objects of type `ert-test'.
(fn &key NAME DOCUMENTATION BODY MOST-RECENT-RESULT EXPECTED-RESULT-TYPE TAGS)
(defalias 'make-ert-test #[128 "\300\301\"A@\300\302\"A@\300\303\"\206 \304\305\304!\210\304DA@\300\306\"A@\300\307\"\206* \310A@\300\311\"\2065 \312A@\211\203d \211@\313>\203L \211AA\262\2029 \314>A@\203[ \304\262\2029 \315\316@\"\210\2029 \210\317\320&\207" [plist-member :name :documentation :body nil cl--assertion-failed :most-recent-result :expected-result-type (nil :passed) :tags (nil nil) (:name :documentation :body :most-recent-result :expected-result-type :tags :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:name :documentation :body :most-recent-result :expected-result-type :tags)" vector cl-struct-ert-test] 15 (#$ . 7383)])
(byte-code "\300\301\302\303\302\211\304\305\306\307& \207" [cl-struct-define ert-test nil cl-structure-object ((cl-tag-slot) (name nil) (documentation nil) (body (cl-assert nil)) (most-recent-result nil) (expected-result-type ':passed) (tags 'nil)) cl-struct-ert-test-tags cl-struct-ert-test t] 10)
#@53 Return non-nil if SYMBOL names a test.
(fn SYMBOL)
(defalias 'ert-test-boundp #[257 "\211\300N\205 \301\207" [ert--test t] 3 (#$ . 8512)])
#@79 If SYMBOL names a test, return that. Signal an error otherwise.
(fn SYMBOL)
(defalias 'ert-get-test #[257 "\300!\204 \301\302\"\210\211\303N\207" [ert-test-boundp error "No test named `%S'" ert--test] 4 (#$ . 8659)])
#@86 Make SYMBOL name the test DEFINITION, and return DEFINITION.
(fn SYMBOL DEFINITION)
(defalias 'ert-set-test #[514 "\300=\203\n \301\302!\210\303\304#\210\207" [nil error "Attempt to define a test named nil" put ert--test] 6 (#$ . 8887)])
#@56 Make SYMBOL name no test. Return SYMBOL.
(fn SYMBOL)
(defalias 'ert-make-test-unbound #[257 "\300\301\"\210\207" [cl-remprop ert--test] 4 (#$ . 9135)])
#@377 Split KEYS-AND-BODY into keyword-and-value pairs and the remaining body.
KEYS-AND-BODY should have the form of a property list, with the
exception that only keywords are permitted as keys and that the
tail -- the body -- is a list of forms that does not start with a
keyword.
Returns a two-element list containing the keys-and-values plist
and the body.
(fn KEYS-AND-BODY)
(defalias 'ert--parse-keys-and-body #[257 "\300\301\242!\2039 \211A\262\242:\204 \302\303#\210\304\"\203) \305\306#\210\211\211A\262\242BB\262\210\202 \237\262\300\211\211:\203c @\262\211A\262\242\262B\262B\262A\262\202A \211\237\266\204D\207" [nil keywordp error "Value expected after keyword %S in %S" assoc warn "Keyword %S appears more than once in %S"] 9 (#$ . 9297)])
#@542 Define NAME (a symbol) as a test.
BODY is evaluated as a `progn' when the test is run. It should
signal a condition on failure or just return if the test passes.
`should', `should-not', `should-error' and `skip-unless' are
useful for assertions in BODY.
Use `ert' to run tests interactively.
Tests that are expected to fail can be marked as such
using :expected-result. See `ert-test-result-type-p' for a
description of valid values for RESULT-TYPE.
(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags \='(TAG...)] BODY...)
(defalias 'ert-deftest '(macro . #[385 "\211\203
\211A\262\242\202 \300\301\302GD\"\211\203\" \300\301\302G\303\\D\"\210\304\211@;\2035 \211A\262\242\262\305\262\306!\211G\307U\203H \211A\262\242\202O \300\301\304GD\"\310\311\"\211\205] \211A@\305\262\310\312\"\211\205k \211A@\305\262@\211\203\231 \211@\313>\203\201 \211AA\262\202n \314>A@\203\220 \304\262\202n \315\316@\"\210\202n \210\317\320\321\322D\323\324\322D\325\205\261 \326D
\205\272 \327
D\f\205\303 \312\fD\330\331\304BBD$BBBE\332\322\302BD\333BB\322D\257\266\207\266\202\207" [signal wrong-number-of-arguments ert-deftest 0 nil t ert--parse-keys-and-body 2 plist-member :expected-result :tags (:expected-result :tags :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:expected-result :tags)" cl-macrolet ((skip-unless (form) `(ert--skip-unless ,form))) ert-set-test quote make-ert-test :name append :documentation :expected-result-type :body lambda push (current-load-list)] 27 (#$ . 10091)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\210\304\301\307\310#\210\300\301\307\310#\210\300\311\307\312#\207" [put ert-deftest edebug-form-spec (&define :name test name sexp [&optional stringp] [&rest keywordp sexp] def-body) function-put doc-string-elt 3 lisp-indent-function 2 ert-info 1] 4)
#@77 The regexp the `find-function' mechanisms use for finding test definitions.
(defvar ert--find-test-regexp (concat "^\\s-*(ert-deftest" find-function-space-re "%s\\(\\s-\\|$\\)") (#$ . 11972))
(byte-code "\300\301\302\"\210\300\303\304\"\207" [define-error ert-test-failed "Test failed" ert-test-skipped "Test skipped"] 3)
#@66 Terminate the current test and mark it passed. Does not return.
(defalias 'ert-pass #[0 "\300\301\302\"\207" [throw ert--pass nil] 3 (#$ . 12300)])
#@151 Terminate the current test and mark it failed. Does not return.
DATA is displayed to the user and should state the reason of the failure.
(fn DATA)
(defalias 'ert-fail #[257 "\300\301C\"\207" [signal ert-test-failed] 4 (#$ . 12456)])
#@150 Terminate the current test and mark it skipped. Does not return.
DATA is displayed to the user and should state the reason for skipping.
(fn DATA)
(defalias 'ert-skip #[257 "\300\301C\"\207" [signal ert-test-skipped] 4 (#$ . 12700)])
(defvar ert--should-execution-observer nil)
#@97 Tell the current `should' form observer (if any) about FORM-DESCRIPTION.
(fn FORM-DESCRIPTION)
(defalias 'ert--signal-should-execution #[257 "\205 !\207" [ert--should-execution-observer] 3 (#$ . 12987)])
#@76 Return non-nil if THING is a symbol naming a special operator.
(fn THING)
(defalias 'ert--special-operator-p #[257 "\2119\205 \300!\301!\205 \302\303!A\304\"\262\207" [indirect-function subrp eql subr-arity unevalled] 5 (#$ . 13202)])
#@90 Helper function for the `should' macro and its variants.
(fn WHOLE FORM INNER-EXPANDER)
(defalias 'ert--expand-should-1 #[771 "\302\303\300!\203\f \202 \303\301!\205 \"\211:\203 \304@!\203F \305\306!\307\310BC\311E\312\313\nD\314\313 D\315 \257#F\262\202\347 \211@A9\204f :\203b \316@\317\"\203b A<\204f \320\321!\210\305\322!\305\323!\305\306!\305\324!\307\325DD\312BDD\307\313DDC \311\326 EE\327\312\313DD\312\314\330\331CB\332CBDCBE\333\316\f\313
DE\312\315EE\307\334\335\336\313DD\337\313D\340BBEDC\341\334\312\342\326\334EEEE\257#FE\266\204\266\202\207" [macroexpand-all-environment cl-macro-environment macroexpand boundp ert--special-operator-p cl-gensym "value-" let ((cl-gensym "ert-form-evaluation-aborted-")) setq list quote :form :value eql lambda cl--assertion-failed (or (symbolp fn-name) (and (consp fn-name) (eql (car fn-name) 'lambda) (listp (cdr fn-name)))) "fn-" "args-" "ert-form-evaluation-aborted-" function apply nconc \` \, \,@ unless -explainer- and symbolp get ('ert-explainer) when :explanation] 29 (#$ . 13450)])
#@720 Helper function for the `should' macro and its variants.
Analyzes FORM and returns an expression that has the same
semantics under evaluation but records additional debugging
information.
INNER-EXPANDER should be a function and is called with two
arguments: INNER-FORM and FORM-DESCRIPTION-FORM, where INNER-FORM
is an expression equivalent to FORM, and FORM-DESCRIPTION-FORM is
an expression that returns a description of FORM. INNER-EXPANDER
should return code that calls INNER-FORM and performs the checks
and error signaling specific to the particular variant of
`should'. The code that INNER-EXPANDER returns must not call
FORM-DESCRIPTION-FORM before it has called INNER-FORM.
(fn WHOLE FORM INNER-EXPANDER)
(defalias 'ert--expand-should #[771 "\300\301\302\303\304\305!\306\"\307\310%#\207" [ert--expand-should-1 make-byte-code 771 "\301\302!\303C\300\304\305 E\306DF#E\207" vconcat vector [cl-gensym "form-description-" let unwind-protect setq ert--signal-should-execution] 12 "\n\n(fn INNER-FORM FORM-DESCRIPTION-FORM VALUE-VAR)"] 12 (#$ . 14558)])
#@109 Evaluate FORM. If it returns nil, abort the current test as failed.
Returns the value of FORM.
(fn FORM)
(defalias 'should '(macro . #[257 "\300\301D\302#\207" [ert--expand-should should #[771 "\300\301DE\207" [unless ert-fail] 7 "\n\n(fn INNER-FORM FORM-DESCRIPTION-FORM VALUE-VAR)"]] 5 (#$ . 15643)]))
(put 'should 'edebug-form-spec t)
#@99 Evaluate FORM. If it returns non-nil, abort the current test as failed.
Returns nil.
(fn FORM)
(defalias 'should-not '(macro . #[257 "\300\301D\302#\207" [ert--expand-should should-not #[771 "\300\301D\302DE\207" [unless not ert-fail] 7 "\n\n(fn INNER-FORM FORM-DESCRIPTION-FORM VALUE-VAR)"]] 5 (#$ . 15994)]))
(put 'should-not 'edebug-form-spec t)
#@213 Helper function for `should-error'.
Determines whether CONDITION matches TYPE and EXCLUDE-SUBTYPES,
and aborts the current test as failed if it doesn't.
(fn FORM-DESCRIPTION-FN CONDITION TYPE EXCLUDE-SUBTYPES)
(defalias 'ert--should-error-handle-error #[1028 "@\300N<\203
\202 9\203 C\202 \301\302\"\262\204& \303\304!\210\305\"\204; \306\307 \310\311\312F\"!\210\205T @\235?\205T \306\307 \310\311\313F\"!\207" [error-conditions error "No clause matching `%S'" cl--assertion-failed signaled-conditions cl-intersection ert-fail append :condition :fail-reason "the error signaled did not have the expected type" "the error signaled was a subtype of the expected type"] 13 (#$ . 16357)])
#@607 Evaluate FORM and check that it signals an error.
The error signaled needs to match TYPE. TYPE should be a list
of condition names. (It can also be a non-nil symbol, which is
equivalent to a singleton list containing that symbol.) If
EXCLUDE-SUBTYPES is nil, the error matches TYPE if one of its
condition names is an element of TYPE. If EXCLUDE-SUBTYPES is
non-nil, the error matches TYPE if it is an element of TYPE.
If the error matches, returns (ERROR-SYMBOL . DATA) from the
error. If not, or if no error was signaled, abort the test as
failed.
(fn FORM &rest KEYS &key TYPE EXCLUDE-SUBTYPES)
(defalias 'should-error '(macro . #[385 "\300\301\"A@C\300\302\"A@\211\2038 \211@\303>\203! \211AA\262\202 \304>A@\203/ \305\262\202 \306\307@\"\210\202 \210\242\204B \310\240\210\311\312BB\313\314\315\316\317 \"\320\"\321\322%#\207" [plist-member :type :exclude-subtypes (:type :exclude-subtypes :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:type :exclude-subtypes)" 'error ert--expand-should should-error make-byte-code 771 "\302\303!\302\304!\305\306B\307\310EDD\311\312\313\314\315BB\316\312\300\242\301\257\314 \317BBFF\320\321\322\323D\324BBDEF\207" vconcat vector [cl-gensym "errorp" "form-description-fn-" let (nil) lambda nil condition-case -condition- error setq (t) ert--should-error-handle-error (-condition-) unless ert-fail append funcall ((list :fail-reason "did not signal an error"))] 17 "\n\n(fn INNER-FORM FORM-DESCRIPTION-FORM VALUE-VAR)"] 14 (#$ . 17078)]))
(put 'should-error 'edebug-form-spec t)
#@128 Evaluate FORM. If it returns nil, skip the current test.
Errors during evaluation are caught and handled like nil.
(fn FORM)
(defalias 'ert--skip-unless '(macro . #[257 "\300\301D\302#\207" [ert--expand-should skip-unless #[771 "\300\301D\302DE\207" [unless ignore-errors ert-skip] 7 "\n\n(fn INNER-FORM FORM-DESCRIPTION-FORM VALUE-VAR)"]] 5 (#$ . 18678)]))
(put 'ert--skip-unless 'edebug-form-spec t)
#@62 Return non-nil if X is a proper list, nil otherwise.
(fn X)
(defalias 'ert--proper-list-p #[257 "\3002e \301\211\211\302\211\205
\302\262\211\203 \202 AA\262\211\203$ \202& A\262\2041 \303\300\302\"\210:\204; \303\300\301\"\210A\204E \303\300\302\"\210A:\204P \303\300\301\"\210\204_ =\203_ \303\300\301\"\210\301\262\202 \207" [--cl-block-nil-- nil t throw] 8 (#$ . 19092)])
#@53 Format the atom X for `ert--explain-equal'.
(fn X)
(defalias 'ert--explain-format-atom #[257 "\300!\203 \211\301\302\"\301\303\"E\207\211\250\203 \211\301\302\"D\207\207" [characterp format "#x%x" "?%c"] 6 (#$ . 19494)])
#@109 Return a programmer-readable explanation of why A and B are not `equal'.
Returns nil if they are.
(fn A B)
(defalias 'ert--explain-equal-rec #[514 "\300!\300!\232\204 \301E\207:\203\334 \302!\302!\303??\"\204* \304E\202\333 \203\245 GG\232\204M \305GG\306\307\n\n\310\311$\257\202\333 \3122\333 \313\314\314\211:\203\213 @\262:\203\213 @\262\315\"\262\211\203| \316\312\317E\"\210T\262A\262A\262\202W \232\204\236 \320\321\314\f\fD\314$\210\314\266\2060\202\333 \315@@\"\211\203\265 \322D\202\331 \315AA\"\211\203\305 \323D\202\327 \232\204\326 \320\324\314D\314$\210\314\262\262\207\325!\203kGG\232\204 \326GG\327!?\205\306\307\310\311$DBBBBB\207\3122\234\313\330\314\330\314\211T\211\262GW\203SH\262T\211\262GW\203SH\262\315\"\262\211\203K\316\312\331\nE\"\210T\262\202 \232\204f\320\332\314\f\fD\314$\210\314\266\2100\207:\204\225\232?\205\2349\203\214\2119\203\214\230\203\214\333E\207\334\335!\335!E\207\336\337\"\262\207" [type-of different-types ert--proper-list-p eql one-list-proper-one-improper proper-lists-of-different-length first-mismatch-at cl-mismatch :test equal --cl-block-nil-- 0 nil ert--explain-equal-rec throw list-elt cl--assertion-failed (equal a b) car cdr (equal a b) arrayp arrays-of-different-length char-table-p -1 array-elt (equal a b) different-symbols-with-the-same-name different-atoms ert--explain-format-atom error "No clause matching `%S'"] 15 (#$ . 19729)])
#@43 Explainer function for `equal'.
(fn A B)
(defalias 'ert--explain-equal #[514 "\232?\205 \300\"\207" [ert--explain-equal-rec] 5 (#$ . 21267)])
(put 'equal 'ert-explainer 'ert--explain-equal)
#@75 Return the keys of PLIST that have non-null values, in order.
(fn PLIST)
(defalias 'ert--significant-plist-keys #[257 "\300G\301\"\302U\204 \303\304\305\300G\301\"C\305$\210\3062X \211\305\211\211\211:\203O \262\211A\262\242\262\211A\262\242\262\203G >\204G \211C\244\262AA\262\202 \307\306\"\210\305\266\2050\207" [mod 2 0 cl--assertion-failed (zerop (mod (length plist) 2)) nil --cl-block-nil-- throw] 9 (#$ . 21469)])
#@266 Return a programmer-readable explanation of why A and B are different plists.
Returns nil if they are equivalent, i.e., have the same value for
each key, where absent values are treated as nil. The order of
key/value pairs in each list does not matter.
(fn A B)
(defalias 'ert--plist-difference-explanation #[514 "\300G\301\"\302U\204 \303\304\305\300G\301\"C\305$\210\300G\301\"\302U\204, \303\306\305\300G\301\"C\305$\210\307!\307!\310\311\312$\310\311\312$\313\203N \211@#\202\225 \203] \211@#\202\225 \305\314\305:\203\223 @\262\315 \"\315 \"\232\204\210 #\262\305\211\262\202\211 \314\203\223 A\262\202a \266\203\262\207" [mod 2 0 cl--assertion-failed (zerop (mod (length a) 2)) nil (zerop (mod (length b) 2)) ert--significant-plist-keys cl-set-difference :test eq #[771 "\300\"\300\"\232\203 \301\302\303\232C\303$\210\304\305\"E\207" [plist-get cl--assertion-failed (not (equal value-a value-b)) nil different-properties-for-key ert--explain-equal-including-properties] 10 "\n\n(fn A B KEY)"] t plist-get] 15 (#$ . 21919)])
#@127 Shorten string S to at most LEN chars.
If SUFFIXP is non-nil, returns a suffix of S, otherwise a prefix.
(fn S LEN SUFFIXP)
(defalias 'ert--abbreviate-string #[771 "G\211W\203\f \202 \203 Z\300O\202 \301O\207" [nil 0] 7 (#$ . 23014)])
#@188 Explainer function for `ert-equal-including-properties'.
Returns a programmer-readable explanation of why A and B are not
`ert-equal-including-properties', or nil if they are.
(fn A B)
(defalias 'ert--explain-equal-including-properties #[514 "\232\204 \300\"\207;\204 \301\302\303C\303$\210\211;\204% \301\304\303C\303$\210\305GG\"\2049 \301\306\303GGD\303$\210\3072\226 \310G\303\211\211X\203\222 \311\"\262\311\"\262\312\"\262\211\203\213 \313\307\314\315 \n\211T#\316\317\315\310#\320\321#\322\317\315T\"\320\303#\257\"\210T\262\202C \303\266\2050\207" [ert--explain-equal cl--assertion-failed (stringp a) nil (stringp b) eql (eql (length a) (length b)) --cl-block-nil-- 0 text-properties-at ert--plist-difference-explanation throw char substring-no-properties context-before ert--abbreviate-string 10 t context-after] 20 (#$ . 23270)])
(put 'ert-equal-including-properties 'ert-explainer 'ert--explain-equal-including-properties)
#@118 The stack of `ert-info' infos that currently apply.
Bound dynamically. This is a list of (PREFIX . MESSAGE) pairs.
(defvar ert--infos nil (#$ . 24256))
#@390 Evaluate MESSAGE-FORM and BODY, and report the message if BODY fails.
To be used within ERT tests. MESSAGE-FORM should evaluate to a
string that will be displayed together with the test result if
the test fails. PREFIX-FORM should evaluate to a string as well
and is displayed in front of the value of MESSAGE-FORM.
(fn (MESSAGE-FORM &key ((:prefix PREFIX-FORM) "Info: ")) &body BODY)
(defalias 'ert-info '(macro . #[128 "\211\203
\211A\262\242\202 \300\301\302GD\"\211\203! \211A\262\242\202( \300\301\302GD\"\303\304\"\2060 \305A@\211\203] \211@\306>\203F \211AA\262\2023 \307>A@\203T \310\262\2023 \311\312@\"\210\2023 \210\313\314\315\211E\316BBDCBB\207" [signal wrong-number-of-arguments ert-info plist-member :prefix (nil "Info: ") (:prefix :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:prefix)" let ert--infos cons (ert--infos)] 10 (#$ . 24417)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [put ert-info edebug-form-spec ((form &rest [sexp form]) body) function-put lisp-indent-function 1] 4)
#@77 Non-nil means enter debugger when a test fails or terminates with an error.
(defvar ert-debug-on-error nil (#$ . 25494))
(defalias 'ert-test-result-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-result-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-ert-test-result-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-result-p 'compiler-macro 'ert-test-result-p--cmacro)
(defalias 'ert-test-result-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert-test-result-tags vectorp 3 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert-test-result-p side-effect-free error-free put ert-test-result cl-deftype-satisfies] 4)
(defalias 'ert-test-result-messages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-result-messages (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-result-tags)) (signal 'wrong-type-argument (list 'ert-test-result cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-result-messages 'compiler-macro 'ert-test-result-messages--cmacro)
(defalias 'ert-test-result-messages #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-result-tags 0 signal wrong-type-argument ert-test-result 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-result-messages 'side-effect-free t)
(defalias 'ert-test-result-should-forms--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-result-should-forms (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-result-tags)) (signal 'wrong-type-argument (list 'ert-test-result cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-result-should-forms 'compiler-macro 'ert-test-result-should-forms--cmacro)
(defalias 'ert-test-result-should-forms #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-result-tags 0 signal wrong-type-argument ert-test-result 2] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert-test-result-should-forms side-effect-free t defalias copy-ert-test-result copy-sequence] 4)
#@54
(fn CL-WHOLE &cl-quote &key MESSAGES SHOULD-FORMS)
(defalias 'make-ert-test-result--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202
\304>A@\203. \305\262\202
\306\307@\"\210\202
\210\310\311\312\305\305&\207" [plist-member :messages :should-forms (:messages :should-forms :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:messages :should-forms)" cl--defsubst-expand (messages should-forms) (cl-block make-ert-test-result "Constructor for objects of type `ert-test-result'." (declare (side-effect-free t)) (vector 'cl-struct-ert-test-result messages should-forms))] 12 (#$ . 27823)])
(put 'make-ert-test-result 'compiler-macro 'make-ert-test-result--cmacro)
#@85 Constructor for objects of type `ert-test-result'.
(fn &key MESSAGES SHOULD-FORMS)
(defalias 'make-ert-test-result #[128 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202
\304>A@\203. \305\262\202
\306\307@\"\210\202
\210\310\311#\207" [plist-member :messages :should-forms (:messages :should-forms :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:messages :should-forms)" vector cl-struct-ert-test-result] 7 (#$ . 28568)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-ert-test-result side-effect-free t cl-struct-define ert-test-result nil cl-structure-object ((cl-tag-slot) (messages nil) (should-forms nil)) cl-struct-ert-test-result-tags cl-struct-ert-test-result] 10)
(defalias 'ert-test-passed-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-passed-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-ert-test-passed-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-passed-p 'compiler-macro 'ert-test-passed-p--cmacro)
(defalias 'ert-test-passed-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert-test-passed-tags vectorp 3 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert-test-passed-p side-effect-free error-free put ert-test-passed cl-deftype-satisfies] 4)
(defalias 'ert-test-passed-messages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-passed-messages (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-passed-tags)) (signal 'wrong-type-argument (list 'ert-test-passed cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-passed-messages 'compiler-macro 'ert-test-passed-messages--cmacro)
(defalias 'ert-test-passed-messages #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-passed-tags 0 signal wrong-type-argument ert-test-passed 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-passed-messages 'side-effect-free t)
(defalias 'ert-test-passed-should-forms--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-passed-should-forms (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-passed-tags)) (signal 'wrong-type-argument (list 'ert-test-passed cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-passed-should-forms 'compiler-macro 'ert-test-passed-should-forms--cmacro)
(defalias 'ert-test-passed-should-forms #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-passed-tags 0 signal wrong-type-argument ert-test-passed 2] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert-test-passed-should-forms side-effect-free t defalias copy-ert-test-passed copy-sequence] 4)
#@54
(fn CL-WHOLE &cl-quote &key MESSAGES SHOULD-FORMS)
(defalias 'make-ert-test-passed--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202
\304>A@\203. \305\262\202
\306\307@\"\210\202
\210\310\311\312\305\305&\207" [plist-member :messages :should-forms (:messages :should-forms :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:messages :should-forms)" cl--defsubst-expand (messages should-forms) (cl-block make-ert-test-passed "Constructor for objects of type `ert-test-passed'." (declare (side-effect-free t)) (vector 'cl-struct-ert-test-passed messages should-forms))] 12 (#$ . 31565)])
(put 'make-ert-test-passed 'compiler-macro 'make-ert-test-passed--cmacro)
#@85 Constructor for objects of type `ert-test-passed'.
(fn &key MESSAGES SHOULD-FORMS)
(defalias 'make-ert-test-passed #[128 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202
\304>A@\203. \305\262\202
\306\307@\"\210\202
\210\310\311#\207" [plist-member :messages :should-forms (:messages :should-forms :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:messages :should-forms)" vector cl-struct-ert-test-passed] 7 (#$ . 32310)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-ert-test-passed side-effect-free t cl-struct-define ert-test-passed nil ert-test-result ((cl-tag-slot) (messages nil) (should-forms nil)) cl-struct-ert-test-passed-tags cl-struct-ert-test-passed] 10)
(defalias 'ert-test-result-with-condition-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-result-with-condition-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-ert-test-result-with-condition-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-result-with-condition-p 'compiler-macro 'ert-test-result-with-condition-p--cmacro)
(defalias 'ert-test-result-with-condition-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert-test-result-with-condition-tags vectorp 6 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert-test-result-with-condition-p side-effect-free error-free put ert-test-result-with-condition cl-deftype-satisfies] 4)
(defalias 'ert-test-result-with-condition-messages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-result-with-condition-messages (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-result-with-condition-tags)) (signal 'wrong-type-argument (list 'ert-test-result-with-condition cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-result-with-condition-messages 'compiler-macro 'ert-test-result-with-condition-messages--cmacro)
(defalias 'ert-test-result-with-condition-messages #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-result-with-condition-tags 0 signal wrong-type-argument ert-test-result-with-condition 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-result-with-condition-messages 'side-effect-free t)
(defalias 'ert-test-result-with-condition-should-forms--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-result-with-condition-should-forms (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-result-with-condition-tags)) (signal 'wrong-type-argument (list 'ert-test-result-with-condition cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-result-with-condition-should-forms 'compiler-macro 'ert-test-result-with-condition-should-forms--cmacro)
(defalias 'ert-test-result-with-condition-should-forms #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-result-with-condition-tags 0 signal wrong-type-argument ert-test-result-with-condition 2] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-result-with-condition-should-forms 'side-effect-free t)
(defalias 'ert-test-result-with-condition-condition--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-result-with-condition-condition (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-result-with-condition-tags)) (signal 'wrong-type-argument (list 'ert-test-result-with-condition cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-result-with-condition-condition 'compiler-macro 'ert-test-result-with-condition-condition--cmacro)
(defalias 'ert-test-result-with-condition-condition #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-result-with-condition-tags 0 signal wrong-type-argument ert-test-result-with-condition 3] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-result-with-condition-condition 'side-effect-free t)
(defalias 'ert-test-result-with-condition-backtrace--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-result-with-condition-backtrace (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-result-with-condition-tags)) (signal 'wrong-type-argument (list 'ert-test-result-with-condition cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-result-with-condition-backtrace 'compiler-macro 'ert-test-result-with-condition-backtrace--cmacro)
(defalias 'ert-test-result-with-condition-backtrace #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-result-with-condition-tags 0 signal wrong-type-argument ert-test-result-with-condition 4] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-result-with-condition-backtrace 'side-effect-free t)
(defalias 'ert-test-result-with-condition-infos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-result-with-condition-infos (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-result-with-condition-tags)) (signal 'wrong-type-argument (list 'ert-test-result-with-condition cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-result-with-condition-infos 'compiler-macro 'ert-test-result-with-condition-infos--cmacro)
(defalias 'ert-test-result-with-condition-infos #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-result-with-condition-tags 0 signal wrong-type-argument ert-test-result-with-condition 5] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert-test-result-with-condition-infos side-effect-free t defalias copy-ert-test-result-with-condition copy-sequence] 4)
#@80
(fn CL-WHOLE &cl-quote &key MESSAGES SHOULD-FORMS CONDITION BACKTRACE INFOS)
(defalias 'make-ert-test-result-with-condition--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"\206 \304A@\300\305\"\206 \306A@\300\307\"\206( \310A@\211\203V \211@\311>\203> \211AA\262\202+ \312>A@\203M \313\262\202+ \314\315@\"\210\202+ \210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :messages :should-forms :condition (nil (cl-assert nil)) :backtrace (nil (cl-assert nil)) :infos (nil (cl-assert nil)) (:messages :should-forms :condition :backtrace :infos :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:messages :should-forms :condition :backtrace :infos)" cl--defsubst-expand (messages should-forms condition backtrace infos) (cl-block make-ert-test-result-with-condition "Constructor for objects of type `ert-test-result-with-condition'." (vector 'cl-struct-ert-test-result-with-condition messages should-forms condition backtrace infos))] 18 (#$ . 38273)])
(put 'make-ert-test-result-with-condition 'compiler-macro 'make-ert-test-result-with-condition--cmacro)
#@126 Constructor for objects of type `ert-test-result-with-condition'.
(fn &key MESSAGES SHOULD-FORMS CONDITION BACKTRACE INFOS)
(defalias 'make-ert-test-result-with-condition #[128 "\300\301\"A@\300\302\"A@\300\303\"\206 \304\305\304!\210\304DA@\300\306\"\206* \304\305\304!\210\304DA@\300\307\"\206: \304\305\304!\210\304DA@\211\203h \211@\310>\203P \211AA\262\202= \311>A@\203_ \304\262\202= \312\313@\"\210\202= \210\314\315&\207" [plist-member :messages :should-forms :condition nil cl--assertion-failed :backtrace :infos (:messages :should-forms :condition :backtrace :infos :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:messages :should-forms :condition :backtrace :infos)" vector cl-struct-ert-test-result-with-condition] 13 (#$ . 39392)])
(byte-code "\300\301\302\303\302\211\304\305\306\307& \207" [cl-struct-define ert-test-result-with-condition nil ert-test-result ((cl-tag-slot) (messages nil) (should-forms nil) (condition (cl-assert nil)) (backtrace (cl-assert nil)) (infos (cl-assert nil))) cl-struct-ert-test-result-with-condition-tags cl-struct-ert-test-result-with-condition t] 10)
(defalias 'ert-test-quit-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-quit-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-ert-test-quit-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-quit-p 'compiler-macro 'ert-test-quit-p--cmacro)
(defalias 'ert-test-quit-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert-test-quit-tags vectorp 6 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert-test-quit-p side-effect-free error-free put ert-test-quit cl-deftype-satisfies] 4)
(defalias 'ert-test-quit-messages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-quit-messages (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-quit-tags)) (signal 'wrong-type-argument (list 'ert-test-quit cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-quit-messages 'compiler-macro 'ert-test-quit-messages--cmacro)
(defalias 'ert-test-quit-messages #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-quit-tags 0 signal wrong-type-argument ert-test-quit 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-quit-messages 'side-effect-free t)
(defalias 'ert-test-quit-should-forms--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-quit-should-forms (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-quit-tags)) (signal 'wrong-type-argument (list 'ert-test-quit cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-quit-should-forms 'compiler-macro 'ert-test-quit-should-forms--cmacro)
(defalias 'ert-test-quit-should-forms #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-quit-tags 0 signal wrong-type-argument ert-test-quit 2] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-quit-should-forms 'side-effect-free t)
(defalias 'ert-test-quit-condition--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-quit-condition (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-quit-tags)) (signal 'wrong-type-argument (list 'ert-test-quit cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-quit-condition 'compiler-macro 'ert-test-quit-condition--cmacro)
(defalias 'ert-test-quit-condition #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-quit-tags 0 signal wrong-type-argument ert-test-quit 3] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-quit-condition 'side-effect-free t)
(defalias 'ert-test-quit-backtrace--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-quit-backtrace (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-quit-tags)) (signal 'wrong-type-argument (list 'ert-test-quit cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-quit-backtrace 'compiler-macro 'ert-test-quit-backtrace--cmacro)
(defalias 'ert-test-quit-backtrace #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-quit-tags 0 signal wrong-type-argument ert-test-quit 4] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-quit-backtrace 'side-effect-free t)
(defalias 'ert-test-quit-infos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-quit-infos (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-quit-tags)) (signal 'wrong-type-argument (list 'ert-test-quit cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-quit-infos 'compiler-macro 'ert-test-quit-infos--cmacro)
(defalias 'ert-test-quit-infos #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-quit-tags 0 signal wrong-type-argument ert-test-quit 5] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert-test-quit-infos side-effect-free t defalias copy-ert-test-quit copy-sequence] 4)
#@80
(fn CL-WHOLE &cl-quote &key MESSAGES SHOULD-FORMS CONDITION BACKTRACE INFOS)
(defalias 'make-ert-test-quit--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"\206 \304A@\300\305\"\206 \306A@\300\307\"\206( \310A@\211\203V \211@\311>\203> \211AA\262\202+ \312>A@\203M \313\262\202+ \314\315@\"\210\202+ \210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :messages :should-forms :condition (nil (cl-assert nil)) :backtrace (nil (cl-assert nil)) :infos (nil (cl-assert nil)) (:messages :should-forms :condition :backtrace :infos :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:messages :should-forms :condition :backtrace :infos)" cl--defsubst-expand (messages should-forms condition backtrace infos) (cl-block make-ert-test-quit "Constructor for objects of type `ert-test-quit'." (vector 'cl-struct-ert-test-quit messages should-forms condition backtrace infos))] 18 (#$ . 44701)])
(put 'make-ert-test-quit 'compiler-macro 'make-ert-test-quit--cmacro)
#@109 Constructor for objects of type `ert-test-quit'.
(fn &key MESSAGES SHOULD-FORMS CONDITION BACKTRACE INFOS)
(defalias 'make-ert-test-quit #[128 "\300\301\"A@\300\302\"A@\300\303\"\206 \304\305\304!\210\304DA@\300\306\"\206* \304\305\304!\210\304DA@\300\307\"\206: \304\305\304!\210\304DA@\211\203h \211@\310>\203P \211AA\262\202= \311>A@\203_ \304\262\202= \312\313@\"\210\202= \210\314\315&\207" [plist-member :messages :should-forms :condition nil cl--assertion-failed :backtrace :infos (:messages :should-forms :condition :backtrace :infos :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:messages :should-forms :condition :backtrace :infos)" vector cl-struct-ert-test-quit] 13 (#$ . 45718)])
(byte-code "\300\301\302\303\302\211\304\305\306\307& \207" [cl-struct-define ert-test-quit nil ert-test-result-with-condition ((cl-tag-slot) (messages nil) (should-forms nil) (condition (cl-assert nil)) (backtrace (cl-assert nil)) (infos (cl-assert nil))) cl-struct-ert-test-quit-tags cl-struct-ert-test-quit t] 10)
(defalias 'ert-test-failed-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-failed-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-ert-test-failed-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-failed-p 'compiler-macro 'ert-test-failed-p--cmacro)
(defalias 'ert-test-failed-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert-test-failed-tags vectorp 6 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert-test-failed-p side-effect-free error-free put ert-test-failed cl-deftype-satisfies] 4)
(defalias 'ert-test-failed-messages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-failed-messages (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-failed-tags)) (signal 'wrong-type-argument (list 'ert-test-failed cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-failed-messages 'compiler-macro 'ert-test-failed-messages--cmacro)
(defalias 'ert-test-failed-messages #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-failed-tags 0 signal wrong-type-argument ert-test-failed 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-failed-messages 'side-effect-free t)
(defalias 'ert-test-failed-should-forms--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-failed-should-forms (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-failed-tags)) (signal 'wrong-type-argument (list 'ert-test-failed cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-failed-should-forms 'compiler-macro 'ert-test-failed-should-forms--cmacro)
(defalias 'ert-test-failed-should-forms #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-failed-tags 0 signal wrong-type-argument ert-test-failed 2] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-failed-should-forms 'side-effect-free t)
(defalias 'ert-test-failed-condition--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-failed-condition (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-failed-tags)) (signal 'wrong-type-argument (list 'ert-test-failed cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-failed-condition 'compiler-macro 'ert-test-failed-condition--cmacro)
(defalias 'ert-test-failed-condition #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-failed-tags 0 signal wrong-type-argument ert-test-failed 3] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-failed-condition 'side-effect-free t)
(defalias 'ert-test-failed-backtrace--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-failed-backtrace (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-failed-tags)) (signal 'wrong-type-argument (list 'ert-test-failed cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-failed-backtrace 'compiler-macro 'ert-test-failed-backtrace--cmacro)
(defalias 'ert-test-failed-backtrace #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-failed-tags 0 signal wrong-type-argument ert-test-failed 4] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-failed-backtrace 'side-effect-free t)
(defalias 'ert-test-failed-infos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-failed-infos (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-failed-tags)) (signal 'wrong-type-argument (list 'ert-test-failed cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-failed-infos 'compiler-macro 'ert-test-failed-infos--cmacro)
(defalias 'ert-test-failed-infos #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-failed-tags 0 signal wrong-type-argument ert-test-failed 5] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert-test-failed-infos side-effect-free t defalias copy-ert-test-failed copy-sequence] 4)
#@80
(fn CL-WHOLE &cl-quote &key MESSAGES SHOULD-FORMS CONDITION BACKTRACE INFOS)
(defalias 'make-ert-test-failed--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"\206 \304A@\300\305\"\206 \306A@\300\307\"\206( \310A@\211\203V \211@\311>\203> \211AA\262\202+ \312>A@\203M \313\262\202+ \314\315@\"\210\202+ \210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :messages :should-forms :condition (nil (cl-assert nil)) :backtrace (nil (cl-assert nil)) :infos (nil (cl-assert nil)) (:messages :should-forms :condition :backtrace :infos :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:messages :should-forms :condition :backtrace :infos)" cl--defsubst-expand (messages should-forms condition backtrace infos) (cl-block make-ert-test-failed "Constructor for objects of type `ert-test-failed'." (vector 'cl-struct-ert-test-failed messages should-forms condition backtrace infos))] 18 (#$ . 51060)])
(put 'make-ert-test-failed 'compiler-macro 'make-ert-test-failed--cmacro)
#@111 Constructor for objects of type `ert-test-failed'.
(fn &key MESSAGES SHOULD-FORMS CONDITION BACKTRACE INFOS)
(defalias 'make-ert-test-failed #[128 "\300\301\"A@\300\302\"A@\300\303\"\206 \304\305\304!\210\304DA@\300\306\"\206* \304\305\304!\210\304DA@\300\307\"\206: \304\305\304!\210\304DA@\211\203h \211@\310>\203P \211AA\262\202= \311>A@\203_ \304\262\202= \312\313@\"\210\202= \210\314\315&\207" [plist-member :messages :should-forms :condition nil cl--assertion-failed :backtrace :infos (:messages :should-forms :condition :backtrace :infos :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:messages :should-forms :condition :backtrace :infos)" vector cl-struct-ert-test-failed] 13 (#$ . 52089)])
(byte-code "\300\301\302\303\302\211\304\305\306\307& \207" [cl-struct-define ert-test-failed nil ert-test-result-with-condition ((cl-tag-slot) (messages nil) (should-forms nil) (condition (cl-assert nil)) (backtrace (cl-assert nil)) (infos (cl-assert nil))) cl-struct-ert-test-failed-tags cl-struct-ert-test-failed t] 10)
(defalias 'ert-test-skipped-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-skipped-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-ert-test-skipped-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-skipped-p 'compiler-macro 'ert-test-skipped-p--cmacro)
(defalias 'ert-test-skipped-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert-test-skipped-tags vectorp 6 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert-test-skipped-p side-effect-free error-free put ert-test-skipped cl-deftype-satisfies] 4)
(defalias 'ert-test-skipped-messages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-skipped-messages (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-skipped-tags)) (signal 'wrong-type-argument (list 'ert-test-skipped cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-skipped-messages 'compiler-macro 'ert-test-skipped-messages--cmacro)
(defalias 'ert-test-skipped-messages #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-skipped-tags 0 signal wrong-type-argument ert-test-skipped 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-skipped-messages 'side-effect-free t)
(defalias 'ert-test-skipped-should-forms--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-skipped-should-forms (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-skipped-tags)) (signal 'wrong-type-argument (list 'ert-test-skipped cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-skipped-should-forms 'compiler-macro 'ert-test-skipped-should-forms--cmacro)
(defalias 'ert-test-skipped-should-forms #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-skipped-tags 0 signal wrong-type-argument ert-test-skipped 2] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-skipped-should-forms 'side-effect-free t)
(defalias 'ert-test-skipped-condition--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-skipped-condition (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-skipped-tags)) (signal 'wrong-type-argument (list 'ert-test-skipped cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-skipped-condition 'compiler-macro 'ert-test-skipped-condition--cmacro)
(defalias 'ert-test-skipped-condition #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-skipped-tags 0 signal wrong-type-argument ert-test-skipped 3] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-skipped-condition 'side-effect-free t)
(defalias 'ert-test-skipped-backtrace--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-skipped-backtrace (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-skipped-tags)) (signal 'wrong-type-argument (list 'ert-test-skipped cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-skipped-backtrace 'compiler-macro 'ert-test-skipped-backtrace--cmacro)
(defalias 'ert-test-skipped-backtrace #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-skipped-tags 0 signal wrong-type-argument ert-test-skipped 4] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-skipped-backtrace 'side-effect-free t)
(defalias 'ert-test-skipped-infos--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-skipped-infos (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-skipped-tags)) (signal 'wrong-type-argument (list 'ert-test-skipped cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-skipped-infos 'compiler-macro 'ert-test-skipped-infos--cmacro)
(defalias 'ert-test-skipped-infos #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-skipped-tags 0 signal wrong-type-argument ert-test-skipped 5] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert-test-skipped-infos side-effect-free t defalias copy-ert-test-skipped copy-sequence] 4)
#@80
(fn CL-WHOLE &cl-quote &key MESSAGES SHOULD-FORMS CONDITION BACKTRACE INFOS)
(defalias 'make-ert-test-skipped--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"\206 \304A@\300\305\"\206 \306A@\300\307\"\206( \310A@\211\203V \211@\311>\203> \211AA\262\202+ \312>A@\203M \313\262\202+ \314\315@\"\210\202+ \210\316\317\320\313\n\313\n\n\n\n\n&\n\207" [plist-member :messages :should-forms :condition (nil (cl-assert nil)) :backtrace (nil (cl-assert nil)) :infos (nil (cl-assert nil)) (:messages :should-forms :condition :backtrace :infos :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:messages :should-forms :condition :backtrace :infos)" cl--defsubst-expand (messages should-forms condition backtrace infos) (cl-block make-ert-test-skipped "Constructor for objects of type `ert-test-skipped'." (vector 'cl-struct-ert-test-skipped messages should-forms condition backtrace infos))] 18 (#$ . 57503)])
(put 'make-ert-test-skipped 'compiler-macro 'make-ert-test-skipped--cmacro)
#@112 Constructor for objects of type `ert-test-skipped'.
(fn &key MESSAGES SHOULD-FORMS CONDITION BACKTRACE INFOS)
(defalias 'make-ert-test-skipped #[128 "\300\301\"A@\300\302\"A@\300\303\"\206 \304\305\304!\210\304DA@\300\306\"\206* \304\305\304!\210\304DA@\300\307\"\206: \304\305\304!\210\304DA@\211\203h \211@\310>\203P \211AA\262\202= \311>A@\203_ \304\262\202= \312\313@\"\210\202= \210\314\315&\207" [plist-member :messages :should-forms :condition nil cl--assertion-failed :backtrace :infos (:messages :should-forms :condition :backtrace :infos :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:messages :should-forms :condition :backtrace :infos)" vector cl-struct-ert-test-skipped] 13 (#$ . 58538)])
(byte-code "\300\301\302\303\302\211\304\305\306\307& \207" [cl-struct-define ert-test-skipped nil ert-test-result-with-condition ((cl-tag-slot) (messages nil) (should-forms nil) (condition (cl-assert nil)) (backtrace (cl-assert nil)) (infos (cl-assert nil))) cl-struct-ert-test-skipped-tags cl-struct-ert-test-skipped t] 10)
(defalias 'ert-test-aborted-with-non-local-exit-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-aborted-with-non-local-exit-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 3) (memq (aref cl-x 0) cl-struct-ert-test-aborted-with-non-local-exit-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-aborted-with-non-local-exit-p 'compiler-macro 'ert-test-aborted-with-non-local-exit-p--cmacro)
(defalias 'ert-test-aborted-with-non-local-exit-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert-test-aborted-with-non-local-exit-tags vectorp 3 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert-test-aborted-with-non-local-exit-p side-effect-free error-free put ert-test-aborted-with-non-local-exit cl-deftype-satisfies] 4)
(defalias 'ert-test-aborted-with-non-local-exit-messages--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-aborted-with-non-local-exit-messages (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-aborted-with-non-local-exit-tags)) (signal 'wrong-type-argument (list 'ert-test-aborted-with-non-local-exit cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-aborted-with-non-local-exit-messages 'compiler-macro 'ert-test-aborted-with-non-local-exit-messages--cmacro)
(defalias 'ert-test-aborted-with-non-local-exit-messages #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-aborted-with-non-local-exit-tags 0 signal wrong-type-argument ert-test-aborted-with-non-local-exit 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert-test-aborted-with-non-local-exit-messages 'side-effect-free t)
(defalias 'ert-test-aborted-with-non-local-exit-should-forms--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert-test-aborted-with-non-local-exit-should-forms (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert-test-aborted-with-non-local-exit-tags)) (signal 'wrong-type-argument (list 'ert-test-aborted-with-non-local-exit cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert-test-aborted-with-non-local-exit-should-forms 'compiler-macro 'ert-test-aborted-with-non-local-exit-should-forms--cmacro)
(defalias 'ert-test-aborted-with-non-local-exit-should-forms #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert-test-aborted-with-non-local-exit-tags 0 signal wrong-type-argument ert-test-aborted-with-non-local-exit 2] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert-test-aborted-with-non-local-exit-should-forms side-effect-free t defalias copy-ert-test-aborted-with-non-local-exit copy-sequence] 4)
#@54
(fn CL-WHOLE &cl-quote &key MESSAGES SHOULD-FORMS)
(defalias 'make-ert-test-aborted-with-non-local-exit--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202
\304>A@\203. \305\262\202
\306\307@\"\210\202
\210\310\311\312\305\305&\207" [plist-member :messages :should-forms (:messages :should-forms :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:messages :should-forms)" cl--defsubst-expand (messages should-forms) (cl-block make-ert-test-aborted-with-non-local-exit "Constructor for objects of type `ert-test-aborted-with-non-local-exit'." (declare (side-effect-free t)) (vector 'cl-struct-ert-test-aborted-with-non-local-exit messages should-forms))] 12 (#$ . 62458)])
(put 'make-ert-test-aborted-with-non-local-exit 'compiler-macro 'make-ert-test-aborted-with-non-local-exit--cmacro)
#@106 Constructor for objects of type `ert-test-aborted-with-non-local-exit'.
(fn &key MESSAGES SHOULD-FORMS)
(defalias 'make-ert-test-aborted-with-non-local-exit #[128 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202
\304>A@\203. \305\262\202
\306\307@\"\210\202
\210\310\311#\207" [plist-member :messages :should-forms (:messages :should-forms :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:messages :should-forms)" vector cl-struct-ert-test-aborted-with-non-local-exit] 7 (#$ . 63330)])
(byte-code "\300\301\302\303#\210\304\305\306\307\306\211\310\311\312\303& \207" [function-put make-ert-test-aborted-with-non-local-exit side-effect-free t cl-struct-define ert-test-aborted-with-non-local-exit nil ert-test-result ((cl-tag-slot) (messages nil) (should-forms nil)) cl-struct-ert-test-aborted-with-non-local-exit-tags cl-struct-ert-test-aborted-with-non-local-exit] 10)
#@57 Record the current backtrace (as a list) and return it.
(defalias 'ert--record-backtrace #[0 "\300\301\211\302!\262\203 B\262T\262\202 \211\237\207" [6 nil backtrace-frame] 5 (#$ . 64268)])
#@71 Format the backtrace BACKTRACE to the current buffer.
(fn BACKTRACE)
(defalias 'ert--print-backtrace #[257 "\303\304\305\211\211\205\255 \211@\211:\203\237 \211@\211\204< A\211:\2031 \211@A\211\306\307B\"c\266\2028 \310\311\"\266\210\202\233 \211\303=\203\224 A\211:\203\211 \211@A\211\306\312\"c\210\313\313\303\211\205^ \303\262:\203\200 @\262\204p \314c\210\306\315\"c\210A\262\313\262\202Y \266\316c\266\202\220 \310\311\"\266\210\202\233 \310\311\"\266\210\202\246 \211\310\311\"\266A\266\202\202 \262+\207" [print-length print-level print-escape-newlines t 8 50 format " %S\n" error "No clause matching `%S'" " %S(" nil " " "%S" ")\n"] 16 (#$ . 64474)])
(defalias 'ert--test-execution-info-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--test-execution-info-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 6) (memq (aref cl-x 0) cl-struct-ert--test-execution-info-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--test-execution-info-p 'compiler-macro 'ert--test-execution-info-p--cmacro)
(defalias 'ert--test-execution-info-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert--test-execution-info-tags vectorp 6 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert--test-execution-info-p side-effect-free error-free put ert--test-execution-info cl-deftype-satisfies] 4)
(defalias 'ert--test-execution-info-test--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--test-execution-info-test (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--test-execution-info-tags)) (signal 'wrong-type-argument (list 'ert--test-execution-info cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--test-execution-info-test 'compiler-macro 'ert--test-execution-info-test--cmacro)
(defalias 'ert--test-execution-info-test #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--test-execution-info-tags 0 signal wrong-type-argument ert--test-execution-info 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert--test-execution-info-test 'side-effect-free t)
(defalias 'ert--test-execution-info-result--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--test-execution-info-result (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--test-execution-info-tags)) (signal 'wrong-type-argument (list 'ert--test-execution-info cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--test-execution-info-result 'compiler-macro 'ert--test-execution-info-result--cmacro)
(defalias 'ert--test-execution-info-result #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--test-execution-info-tags 0 signal wrong-type-argument ert--test-execution-info 2] 5 "\n\n(fn CL-X)"])
(function-put 'ert--test-execution-info-result 'side-effect-free t)
(defalias 'ert--test-execution-info-exit-continuation--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--test-execution-info-exit-continuation (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--test-execution-info-tags)) (signal 'wrong-type-argument (list 'ert--test-execution-info cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--test-execution-info-exit-continuation 'compiler-macro 'ert--test-execution-info-exit-continuation--cmacro)
(defalias 'ert--test-execution-info-exit-continuation #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--test-execution-info-tags 0 signal wrong-type-argument ert--test-execution-info 3] 5 "\n\n(fn CL-X)"])
(function-put 'ert--test-execution-info-exit-continuation 'side-effect-free t)
(defalias 'ert--test-execution-info-next-debugger--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--test-execution-info-next-debugger (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--test-execution-info-tags)) (signal 'wrong-type-argument (list 'ert--test-execution-info cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--test-execution-info-next-debugger 'compiler-macro 'ert--test-execution-info-next-debugger--cmacro)
(defalias 'ert--test-execution-info-next-debugger #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--test-execution-info-tags 0 signal wrong-type-argument ert--test-execution-info 4] 5 "\n\n(fn CL-X)"])
(function-put 'ert--test-execution-info-next-debugger 'side-effect-free t)
(defalias 'ert--test-execution-info-ert-debug-on-error--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--test-execution-info-ert-debug-on-error (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--test-execution-info-tags)) (signal 'wrong-type-argument (list 'ert--test-execution-info cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--test-execution-info-ert-debug-on-error 'compiler-macro 'ert--test-execution-info-ert-debug-on-error--cmacro)
(defalias 'ert--test-execution-info-ert-debug-on-error #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--test-execution-info-tags 0 signal wrong-type-argument ert--test-execution-info 5] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert--test-execution-info-ert-debug-on-error side-effect-free t defalias copy-ert--test-execution-info copy-sequence] 4)
#@95
(fn CL-WHOLE &cl-quote &key TEST RESULT EXIT-CONTINUATION NEXT-DEBUGGER ERT-DEBUG-ON-ERROR)
(defalias 'make-ert--test-execution-info--cmacro #[385 "\301\302\"\206 \303A@\301\304\"\206 \305A@\301\306\"\206 \307A@\301\310\"A@\301\311\"A@\211\203W \211@\312>\203? \211AA\262\202, \313>A@\203N \314\262\202, \315\316@\"\210\202, \210\317\320\321\314 \314 &\n)\207" [ert-debug-on-error plist-member :test (nil (cl-assert nil)) :result (nil (cl-assert nil)) :exit-continuation (nil (cl-assert nil)) :next-debugger :ert-debug-on-error (:test :result :exit-continuation :next-debugger :ert-debug-on-error :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:test :result :exit-continuation :next-debugger :ert-debug-on-error)" cl--defsubst-expand (test result exit-continuation next-debugger ert-debug-on-error) (cl-block make-ert--test-execution-info "Constructor for objects of type `ert--test-execution-info'." (vector 'cl-struct-ert--test-execution-info test result exit-continuation next-debugger ert-debug-on-error))] 17 (#$ . 70084)])
(put 'make-ert--test-execution-info 'compiler-macro 'make-ert--test-execution-info--cmacro)
#@135 Constructor for objects of type `ert--test-execution-info'.
(fn &key TEST RESULT EXIT-CONTINUATION NEXT-DEBUGGER ERT-DEBUG-ON-ERROR)
(defalias 'make-ert--test-execution-info #[128 "\301\302\"\206 \303\304\303!\210\303DA@\301\305\"\206 \303\304\303!\210\303DA@\301\306\"\206. \303\304\303!\210\303DA@\301\307\"A@\301\310\"A@\211\203i \211@\311>\203Q \211AA\262\202> \312>A@\203` \303\262\202> \313\314@\"\210\202> \210\315\316&)\207" [ert-debug-on-error plist-member :test nil cl--assertion-failed :result :exit-continuation :next-debugger :ert-debug-on-error (:test :result :exit-continuation :next-debugger :ert-debug-on-error :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:test :result :exit-continuation :next-debugger :ert-debug-on-error)" vector cl-struct-ert--test-execution-info] 12 (#$ . 71271)])
(byte-code "\300\301\302\303\302\211\304\305\306\307& \207" [cl-struct-define ert--test-execution-info nil cl-structure-object ((cl-tag-slot) (test (cl-assert nil)) (result (cl-assert nil)) (exit-continuation (cl-assert nil)) (next-debugger) (ert-debug-on-error)) cl-struct-ert--test-execution-info-tags cl-struct-ert--test-execution-info t] 10)
#@338 During a test run, `debugger' is bound to a closure that calls this function.
This function records failures and errors and either terminates
the test silently or calls the interactive debugger, as
appropriate.
INFO is the ert--test-execution-info corresponding to this test
run. ARGS are the arguments to `debugger'.
(fn INFO ARGS)
(defalias 'ert--run-test-debugger #[514 "\211\211\203 \211A\262\242\202 \303\304\305GD\"\306\307\"\2035 \310\311H>\204- \303\312\313D\"\210\314H\"\202 \315\316\"\203@\211@\306\317\"\203K \320\202W \306\321\"\203V \322\202W \323\262\324 \325 !\311H>\204o \303\312\313\nD\"\210\211\326\315\320\"\203\212 \327\330\305\211\n &\202\302 \315\322\"\203\241 \327\331\305\211\n &\202\302 \315\323\"\203\270 \327\332\305\211\n &\202\302 \316\333\334#\205\302 \305I\266\nT\311H>\204\331 \303\312\313\nD\"\210\335H\203\372 \310\311H>\204\362 \303\312\313 D\"\210\314H\"\210\311H>\204 \303\312\313\nD\"\210\336H \266\204\202 \316\333\337#\205 \305\207" [cl-struct-ert--test-execution-info-tags ert--infos num-nonmacro-input-events signal wrong-number-of-arguments nil memql (lambda debug t exit nil) apply 0 wrong-type-argument ert--test-execution-info 4 eql error (quit) quit (ert-test-skipped) skipped failed ert--record-backtrace reverse 2 vector cl-struct-ert-test-quit cl-struct-ert-test-skipped cl-struct-ert-test-failed "cl-ecase failed: %s, %s" (quit skipped failed) 5 3 (nil exit t debug lambda error)] 18 (#$ . 72480)])
#@142 Low-level function to run a test according to TEST-EXECUTION-INFO.
This mainly sets up debugger-related bindings.
(fn TEST-EXECUTION-INFO)
(defalias 'ert--run-test-internal #[257 "\211\306H>\204 \307\310\311D\"\210\211\211\312 I\266\211\306H>\204% \307\310\311D\"\210\211\211\313\nI\266\3142\231 \315\316!r\211q\210\317\306\320\321\322!\323\"\324$\216\325 \317\306\326\321\322!\327\"\324$\216\317\330\331\321\322!\332\"\312\333%\334\211\335\211 #\306H>\204w \307\310\311D\"\210\336H\211\306H$>\204\212 \307\310\337D\"\210\211\340H\262 \210.\210*\210\341 0\210\211\306H>\204\251 \307\310\311D\"\210\211\211\324\322\342\335\211#I\266\335\207" [cl-struct-ert--test-execution-info-tags debugger ert-debug-on-error ert--infos debug-ignored-errors debug-on-quit 0 signal wrong-type-argument ert--test-execution-info 4 5 ert--pass generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 current-window-configuration "\301\300!\207" [set-window-configuration] 128 "\301\300\"\207" [ert--run-test-debugger] "\n\n(fn &rest ARGS)" t nil 1 ert-test 3 ert-pass cl-struct-ert-test-passed debug-on-error cl-struct-ert-test-tags] 9 (#$ . 74016)])
#@139 Immediately truncate *Messages* buffer according to `message-log-max'.
This can be useful after reducing the value of `message-log-max'.
(defalias 'ert--force-message-log-buffer-truncation #[0 "r\302 q\210\250\205# \303Y\205# e\212db\210[y\210`)\304|)\266\202)\207" [message-log-max inhibit-read-only messages-buffer 0 t] 4 (#$ . 75246)])
#@295 List of tests that are currently in execution.
This list is empty while no test is running, has one element
while a test is running, two elements while a test run from
inside a test is running, etc. The list is in order of nesting,
innermost test first.
The elements are of type `ert-test'.
(defvar ert--running-tests nil (#$ . 75599))
#@105 Run ERT-TEST.
Returns the result and stores it in ERT-TEST's `most-recent-result' slot.
(fn ERT-TEST)
(defalias 'ert-run-test #[257 "\211\304H>\204 \305\306\307D\"\210\211\211\310\311I\266\3122m r\313 q\210\314 )\315\304\316\317\320!\321\"\322$\216\320\323\320\324\311\211#\325\311\211&\311C\315\304\326\317\320$\327\"\330$\216\315\331\332\317\320!\333\"\310\334%\335 B\336!,\266\202)\2620\210\211\304H>\204} \305\306\307D\"\210\211\310H\207" [cl-struct-ert-test-tags ert--running-tests message-log-max ert--should-execution-observer 0 signal wrong-type-argument ert-test 4 nil --cl-block-error-- messages-buffer point-max-marker make-byte-code "\300\301\211\223\207" vconcat vector [nil] 3 cl-struct-ert--test-execution-info cl-struct-ert-test-aborted-with-non-local-exit #[0 "\300\301\302\"\207" [throw --cl-block-error-- nil] 3] "\302\306H\f>\204 \307\310\311\302D\"\210\302\312H\211\306H
>\204! \307\310\313D\"\210\211\211\314r\315 q\210\301d{)I\266\316 \210\303\211\242\237\240\210\211\306H
>\204H \307\310\313D\"\210\211\211\312\303\242I\266\300\306H>\204` \307\310\317\300D\"\210\300\211\320I\262\207" [cl-struct-ert--test-execution-info-tags cl-struct-ert-test-result-tags 0 signal wrong-type-argument ert--test-execution-info 2 ert-test-result 1 messages-buffer ert--force-message-log-buffer-truncation ert-test 4 cl-struct-ert-test-tags] 6 257 "\300\300\242B\240\207" [] "\n\n(fn FORM-DESCRIPTION)" t ert--run-test-internal] 13 (#$ . 75945)])
#@48 Return the top-level test currently executing.
(defalias 'ert-running-test #[0 "\301!@\207" [ert--running-tests last] 2 (#$ . 77440)])
#@452 Return non-nil if RESULT matches type RESULT-TYPE.
Valid result types:
nil -- Never matches.
t -- Always matches.
:failed, :passed, :skipped -- Matches corresponding results.
(and TYPES...) -- Matches if all TYPES match.
(or TYPES...) -- Matches if some TYPES match.
(not TYPE) -- Matches if TYPE does not match.
(satisfies PREDICATE) -- Matches if PREDICATE returns true when called with
RESULT.
(fn RESULT RESULT-TYPE)
(defalias 'ert-test-result-type-p #[514 "\211\204 \303\207\211\304=\203 \304\207\211\305=\203+ \306!\205G\307Y\205\310H>\205\304\207\211\311=\203H \306!\205G\312Y\205\310H >\205\304\207\211\313=\203e \306!\205G\307Y\205\310H\n>\205\304\207\211:\203\211@A\211\314\315\"\203\232 G\314\310\"\203\204 \304\202\225 \316@\"\205\225 \316\315AB\"\262\202\314\317\"\203\304 G\314\310\"\203\256 \303\202\277 \316@\"\206\277 \316\317AB\"\262\202\314\320\"\203\341 \314G\321\"\204\327 \322\323!\210\316@\"?\202\314\324\"\203\374 \314G\321\"\204\364 \322\325!\210@!\202\326\327\330#\205\303\266\202\207\211\326\331\"\262\207" [cl-struct-ert-test-failed-tags cl-struct-ert-test-passed-tags cl-struct-ert-test-skipped-tags nil t :failed vectorp 6 0 :passed 3 :skipped eql and ert-test-result-type-p or not 1 cl--assertion-failed (eql (length operands) 1) satisfies (eql (length operands) 1) error "cl-ecase failed: %s, %s" (and or not satisfies) "No clause matching `%S'"] 11 (#$ . 77583)])
#@81 Return non-nil if TEST's expected result type matches RESULT.
(fn TEST RESULT)
(defalias 'ert-test-result-expected-p #[514 "\301\302\"\206 \301\303H>\204 \304\305\306D\"\210\307H\"\207" [cl-struct-ert-test-tags ert-test-result-type-p :skipped 0 signal wrong-type-argument ert-test 5] 8 (#$ . 79093)])
#@1659 Return a list of tests that match SELECTOR.
UNIVERSE specifies the set of tests to select from; it should be a list
of tests, or t, which refers to all tests named by symbols in `obarray'.
Valid SELECTORs:
nil -- Selects the empty set.
t -- Selects UNIVERSE.
:new -- Selects all tests that have not been run yet.
:failed, :passed -- Select tests according to their most recent result.
:expected, :unexpected -- Select tests according to their most recent result.
a string -- A regular expression selecting all tests with matching names.
a test -- (i.e., an object of the ert-test data-type) Selects that test.
a symbol -- Selects the test that the symbol names, errors if none.
(member TESTS...) -- Selects the elements of TESTS, a list of tests
or symbols naming tests.
(eql TEST) -- Selects TEST, a test or a symbol naming a test.
(and SELECTORS...) -- Selects the tests that match all SELECTORS.
(or SELECTORS...) -- Selects the tests that match any of the SELECTORS.
(not SELECTOR) -- Selects all tests that do not match SELECTOR.
(tag TAG) -- Selects all tests that have TAG on their tags list.
A tag is an arbitrary label you can apply when you define a test.
(satisfies PREDICATE) -- Selects all tests that satisfy PREDICATE.
PREDICATE is a function that takes an ert-test object as argument,
and returns non-nil if it is selected.
Only selectors that require a superset of tests, such
as (satisfies ...), strings, :new, etc. make use of UNIVERSE.
Selectors that do not, such as (member ...), just return the
set implied by them without checking whether it is really
contained in UNIVERSE.
(fn SELECTOR UNIVERSE)
(defalias 'ert-select-tests #[514 "\204 \301\207\302=\203# \211<\203 \207\211\302=\203 \303\304\"\207\211\305\306\"\207\307=\2030 \303\310\311D\"\207\312=\203= \303\310\313D\"\207\314=\203J \303\310\315D\"\207\316=\203W \303\310\317D\"\207\320=\203b \303\321\"\207;\203\221 \211\302=\203u \322\323\324\325\"\"\207\211<\203\213 \326\327\330\331\332\333!\334\"\335\336%\"\207\211\305\306\"\207\337!\203\251 G\340Y\203\251 \341H>\203\251 C\2079\203\275 \325!\204\270 \342\343!\210\323!C\207:\203\307@A\211\344\345\"\203\326 \322\346\"\202\304\344\344\"\203\363 \344G\347\"\204\351 \342\350!\210\303\345B\"\202\304\344\351\"\203 G\344\341\"\203 \303\302\"\202\303\351AB\303@ \"\"\262\202\304\344\352\"\203A\344G\347\"\204/\342\353!\210\303\302\"\354\303@\"\"\262\202\304\344\355\"\203oG\344\341\"\203Y\303\301\"\202j\356\303@\"\303\355AB \"\"\262\202\304\344\357\"\203\234\344G\347\"\204\202\342\360!\210@\303\310\327\330\361\332\333!\362\"\363\336%D\"\262\202\304\344\310\"\203\273\344G\347\"\204\257\342\364!\210\326@\303\302\"\"\202\304\305\365\366#\205\304\301\266\202\207\305\306\"\207" [cl-struct-ert-test-tags nil t ert-select-tests "" error #1="No clause matching `%S'" :new satisfies #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H?\207" [cl-struct-ert-test-tags 0 signal wrong-type-argument ert-test 4] 5 "\n\n(fn TEST)"] :failed #[257 "\301\302H>\204 \303\304\305D\"\210\306H\307\"\207" [cl-struct-ert-test-tags ert-test-result-type-p 0 signal wrong-type-argument ert-test 4 :failed] 6 "\n\n(fn TEST)"] :passed #[257 "\301\302H>\204 \303\304\305D\"\210\306H\307\"\207" [cl-struct-ert-test-tags ert-test-result-type-p 0 signal wrong-type-argument ert-test 4 :passed] 6 "\n\n(fn TEST)"] :expected #[257 "\301\211\302H>\204 \303\304\305D\"\210\306H\"\207" [cl-struct-ert-test-tags ert-test-result-expected-p 0 signal wrong-type-argument ert-test 4] 7 "\n\n(fn TEST)"] :unexpected (not :expected) mapcar ert-get-test apropos-internal ert-test-boundp cl-remove-if-not make-byte-code 257 "\211\302H >\204 \303\304\305D\"\210\211\306H\205- \307\300\310\302H >\204( \303\304\305D\"\210\306H!\"\207" vconcat vector [cl-struct-ert-test-tags 0 signal wrong-type-argument ert-test 1 string-match symbol-name] 8 "\n\n(fn TEST)" vectorp 7 0 cl--assertion-failed (ert-test-boundp selector) eql member #[257 "\2119\203 \301!\204 \302\303!\210\304!\207\305!\203) \211G\306Y\203) \211\307H>\203) \207\211\310\311\"\207" [cl-struct-ert-test-tags ert-test-boundp cl--assertion-failed (ert-test-boundp purported-test) ert-get-test vectorp 7 0 error #1#] 5 "\n\n(fn PURPORTED-TEST)"] 1 (eql (length operands) 1) and not (eql (length operands) 1) cl-set-difference or cl-union tag (eql (length operands) 1) "\300\302H >\204 \303\304\305D\"\210\306H\235\207" [cl-struct-ert-test-tags 0 signal wrong-type-argument ert-test 6] 6 (eql (length operands) 1) "cl-ecase failed: %s, %s" (member eql and not or tag satisfies)] 15 (#$ . 79412)])
#@90 Insert a human-readable presentation of SELECTOR into the current buffer.
(fn SELECTOR)
(defalias 'ert--insert-human-readable-selector #[257 "\300C\211\301\302\303\304\305!\306\"\307\310%\240\210\311\312\242!\"c\207" [nil make-byte-code 257 "\211;\203 \207\2119\203\f \207\302!\203S \211G\303Y\203S \211\304H >\203S \211\304H >\2040 \305\306\307D\"\210\211\310H\203O \311\312\313\304H >\204I \305\306\307D\"\210\310H\"!\207\311\314!\207\211:\203| \211@A\211\211\315>\203n \211\316\300\242\"B\202y \211\317>\203x \202y \320\266\202\207\211\321\322\"\207" vconcat vector [cl-struct-ert-test-tags vectorp 7 0 signal wrong-type-argument ert-test 1 make-symbol format "<%S>" "<unnamed test>" (or not and eql member) mapcar (satisfies tag) nil error "No clause matching `%S'"] 9 "\n\n(fn SELECTOR)" format "%S"] 9 (#$ . 84142)])
(defalias 'ert--stats-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 17) (memq (aref cl-x 0) cl-struct-ert--stats-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-p 'compiler-macro 'ert--stats-p--cmacro)
(defalias 'ert--stats-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert--stats-tags vectorp 17 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert--stats-p side-effect-free error-free put ert--stats cl-deftype-satisfies] 4)
(defalias 'ert--stats-selector--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-selector (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-selector 'compiler-macro 'ert--stats-selector--cmacro)
(defalias 'ert--stats-selector #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-selector 'side-effect-free t)
(defalias 'ert--stats-tests--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-tests (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-tests 'compiler-macro 'ert--stats-tests--cmacro)
(defalias 'ert--stats-tests #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 2] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-tests 'side-effect-free t)
(defalias 'ert--stats-test-map--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-test-map (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-test-map 'compiler-macro 'ert--stats-test-map--cmacro)
(defalias 'ert--stats-test-map #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 3] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-test-map 'side-effect-free t)
(defalias 'ert--stats-test-results--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-test-results (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-test-results 'compiler-macro 'ert--stats-test-results--cmacro)
(defalias 'ert--stats-test-results #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 4] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-test-results 'side-effect-free t)
(defalias 'ert--stats-test-start-times--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-test-start-times (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 5)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-test-start-times 'compiler-macro 'ert--stats-test-start-times--cmacro)
(defalias 'ert--stats-test-start-times #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 5] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-test-start-times 'side-effect-free t)
(defalias 'ert--stats-test-end-times--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-test-end-times (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 6)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-test-end-times 'compiler-macro 'ert--stats-test-end-times--cmacro)
(defalias 'ert--stats-test-end-times #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 6] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-test-end-times 'side-effect-free t)
(defalias 'ert--stats-passed-expected--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-passed-expected (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 7)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-passed-expected 'compiler-macro 'ert--stats-passed-expected--cmacro)
(defalias 'ert--stats-passed-expected #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 7] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-passed-expected 'side-effect-free t)
(defalias 'ert--stats-passed-unexpected--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-passed-unexpected (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 8)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-passed-unexpected 'compiler-macro 'ert--stats-passed-unexpected--cmacro)
(defalias 'ert--stats-passed-unexpected #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 8] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-passed-unexpected 'side-effect-free t)
(defalias 'ert--stats-failed-expected--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-failed-expected (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 9)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-failed-expected 'compiler-macro 'ert--stats-failed-expected--cmacro)
(defalias 'ert--stats-failed-expected #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 9] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-failed-expected 'side-effect-free t)
(defalias 'ert--stats-failed-unexpected--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-failed-unexpected (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 10)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-failed-unexpected 'compiler-macro 'ert--stats-failed-unexpected--cmacro)
(defalias 'ert--stats-failed-unexpected #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 10] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-failed-unexpected 'side-effect-free t)
(defalias 'ert--stats-skipped--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-skipped (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 11)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-skipped 'compiler-macro 'ert--stats-skipped--cmacro)
(defalias 'ert--stats-skipped #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 11] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-skipped 'side-effect-free t)
(defalias 'ert--stats-start-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-start-time (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 12)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-start-time 'compiler-macro 'ert--stats-start-time--cmacro)
(defalias 'ert--stats-start-time #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 12] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-start-time 'side-effect-free t)
(defalias 'ert--stats-end-time--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-end-time (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 13)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-end-time 'compiler-macro 'ert--stats-end-time--cmacro)
(defalias 'ert--stats-end-time #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 13] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-end-time 'side-effect-free t)
(defalias 'ert--stats-aborted-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-aborted-p (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 14)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-aborted-p 'compiler-macro 'ert--stats-aborted-p--cmacro)
(defalias 'ert--stats-aborted-p #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 14] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-aborted-p 'side-effect-free t)
(defalias 'ert--stats-current-test--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-current-test (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 15)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-current-test 'compiler-macro 'ert--stats-current-test--cmacro)
(defalias 'ert--stats-current-test #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 15] 5 "\n\n(fn CL-X)"])
(function-put 'ert--stats-current-test 'side-effect-free t)
(defalias 'ert--stats-next-redisplay--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--stats-next-redisplay (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--stats-tags)) (signal 'wrong-type-argument (list 'ert--stats cl-x))) (aref cl-x 16)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--stats-next-redisplay 'compiler-macro 'ert--stats-next-redisplay--cmacro)
(defalias 'ert--stats-next-redisplay #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 16] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert--stats-next-redisplay side-effect-free t defalias copy-ert--stats copy-sequence] 4)
#@235
(fn CL-WHOLE &cl-quote &key SELECTOR TESTS TEST-MAP TEST-RESULTS TEST-START-TIMES TEST-END-TIMES PASSED-EXPECTED PASSED-UNEXPECTED FAILED-EXPECTED FAILED-UNEXPECTED SKIPPED START-TIME END-TIME ABORTED-P CURRENT-TEST NEXT-REDISPLAY)
(defalias 'make-ert--stats--cmacro #[385 "\300\301\"\206 \302A@\300\303\"\206 \304A@\300\305\"\206 \306A@\300\307\"\206& \310A@\300\311\"\2060 \312A@\300\313\"\206; \314A@\300\315\"\206F \316A@\300\317\"\206Q \320A@\300 \321\"\206\\ \322A@\300\n\323\"\206g \324A@\300 \325\"\206r \326A@\300\f\327\"A@\300
\330\"A@\300\331\"A@\300\332\"A@\300\333\"\206\231 \334A@\211\203\310 \211@\335>\203\260 \211AA\262\202\235 \336>A@\203\277 \337\262\202\235 \340\341@\"\210\202\235 \210\342\343\344\337\337&\207" [plist-member :selector (nil (cl-assert nil)) :tests (nil (cl-assert nil)) :test-map (nil (cl-assert nil)) :test-results (nil (cl-assert nil)) :test-start-times (nil (cl-assert nil)) :test-end-times (nil (cl-assert nil)) :passed-expected (nil 0) :passed-unexpected (nil 0) :failed-expected (nil 0) :failed-unexpected (nil 0) :skipped (nil 0) :start-time :end-time :aborted-p :current-test :next-redisplay (nil 0.0) (:selector :tests :test-map :test-results :test-start-times :test-end-times :passed-expected :passed-unexpected :failed-expected :failed-unexpected :skipped :start-time :end-time :aborted-p :current-test :next-redisplay :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:selector :tests :test-map :test-results :test-start-times :test-end-times :passed-expected :passed-unexpected :failed-expected :failed-unexpected :skipped :start-time :end-time :aborted-p :current-test :next-redisplay)" cl--defsubst-expand (selector tests test-map test-results test-start-times test-end-times passed-expected passed-unexpected failed-expected failed-unexpected skipped start-time end-time aborted-p current-test next-redisplay) (cl-block make-ert--stats "Constructor for objects of type `ert--stats'." (vector 'cl-struct-ert--stats selector tests test-map test-results test-start-times test-end-times passed-expected passed-unexpected failed-expected failed-unexpected skipped start-time end-time aborted-p current-test next-redisplay))] 40 (#$ . 96375)])
(put 'make-ert--stats 'compiler-macro 'make-ert--stats--cmacro)
#@261 Constructor for objects of type `ert--stats'.
(fn &key SELECTOR TESTS TEST-MAP TEST-RESULTS TEST-START-TIMES TEST-END-TIMES PASSED-EXPECTED PASSED-UNEXPECTED FAILED-EXPECTED FAILED-UNEXPECTED SKIPPED START-TIME END-TIME ABORTED-P CURRENT-TEST NEXT-REDISPLAY)
(defalias 'make-ert--stats #[128 "\300\301\"\206 \302\303\302!\210\302DA@\300\304\"\206 \302\303\302!\210\302DA@\300\305\"\206. \302\303\302!\210\302DA@\300\306\"\206> \302\303\302!\210\302DA@\300\307\"\206N \302\303\302!\210\302DA@\300\310\"\206_ \302\303\302!\210\302DA@\300\311\"\206j \312A@\300\313\"\206u \314A@\300 \315\"\206\200 \316A@\300\n\317\"\206\213 \320A@\300 \321\"\206\226 \322A@\300\f\323\"A@\300
\324\"A@\300\325\"A@\300\326\"A@\300\327\"\206\275 \330A@\211\203\354 \211@\331>\203\324 \211AA\262\202\301 \332>A@\203\343 \302\262\202\301 \333\334@\"\210\202\301 \210\335\336&\207" [plist-member :selector nil cl--assertion-failed :tests :test-map :test-results :test-start-times :test-end-times :passed-expected (nil 0) :passed-unexpected (nil 0) :failed-expected (nil 0) :failed-unexpected (nil 0) :skipped (nil 0) :start-time :end-time :aborted-p :current-test :next-redisplay (nil 0.0) (:selector :tests :test-map :test-results :test-start-times :test-end-times :passed-expected :passed-unexpected :failed-expected :failed-unexpected :skipped :start-time :end-time :aborted-p :current-test :next-redisplay :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:selector :tests :test-map :test-results :test-start-times :test-end-times :passed-expected :passed-unexpected :failed-expected :failed-unexpected :skipped :start-time :end-time :aborted-p :current-test :next-redisplay)" vector cl-struct-ert--stats] 35 (#$ . 98737)])
(byte-code "\300\301\302\303\302\211\304\305\306\307& \207" [cl-struct-define ert--stats nil cl-structure-object ((cl-tag-slot) (selector (cl-assert nil)) (tests (cl-assert nil) :type vector) (test-map (cl-assert nil) :type hash-table) (test-results (cl-assert nil) :type vector) (test-start-times (cl-assert nil) :type vector) (test-end-times (cl-assert nil) :type vector) (passed-expected 0) (passed-unexpected 0) (failed-expected 0) (failed-unexpected 0) (skipped 0) (start-time nil) (end-time nil) (aborted-p nil) (current-test nil) (next-redisplay 0.0)) cl-struct-ert--stats-tags cl-struct-ert--stats t] 10)
#@76 Return the number of tests in STATS that had expected results.
(fn STATS)
(defalias 'ert-stats-completed-expected #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\301H>\204! \302\303\304D\"\210\306H\\\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 7 9] 6 (#$ . 101150)])
#@78 Return the number of tests in STATS that had unexpected results.
(fn STATS)
(defalias 'ert-stats-completed-unexpected #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\301H>\204! \302\303\304D\"\210\306H\\\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 8 10] 6 (#$ . 101462)])
#@57 Number of tests in STATS that have skipped.
(fn STATS)
(defalias 'ert-stats-skipped #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 11] 5 (#$ . 101779)])
#@60 Number of tests in STATS that have run so far.
(fn STATS)
(defalias 'ert-stats-completed #[257 "\300\301!\302!\303!#\207" [+ ert-stats-completed-expected ert-stats-completed-unexpected ert-stats-skipped] 6 (#$ . 102018)])
#@80 Number of tests in STATS, regardless of whether they have run yet.
(fn STATS)
(defalias 'ert-stats-total #[257 "\211\301H>\204 \302\303\304D\"\210\211\305HG\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 2] 5 (#$ . 102250)])
(defvar ert--current-run-stats nil)
#@147 Return the key used for TEST in the test map of ert--stats objects.
Returns the name of TEST if it has one, or TEST itself otherwise.
(fn TEST)
(defalias 'ert--stats-test-key #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\206 \211\207" [cl-struct-ert-test-tags 0 signal wrong-type-argument ert-test 1] 5 (#$ . 102547)])
#@148 Change STATS by replacing the test at position POS with TEST and RESULT.
Also changes the counters in STATS to match.
(fn STATS POS TEST RESULT)
(defalias 'ert--stats-set-test-and-result #[1028 "\301H>\204 \302\303\304D\"\210\305H\301H>\204# \302\303\304D\"\210\306HH\301H>\204: \302\303\304 D\"\210\307H\310\211 \311%\210\nI\266 I\266\312\313!\"\210\313!\314 #\266\211 \315%\210\316\262\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 2 4 3 #[1285 "\306HH\"\203\354 H\307!\203B \211G\310Y\203B \211\311H>\203B \311H >\2044 \312\313\314D\"\210\211\315\315H\\I\262\202\353 \307!\203u \211G\316Y\203u \211\311H\n>\203u \311H >\204g \312\313\314D\"\210\211\317\317H\\I\262\202\353 \307!\203\250 \211G\316Y\203\250 \211\311H >\203\250 \311H >\204\232 \312\313\314D\"\210\211\320\320H\\I\262\202\353 \211\204\260 \321\202\353 \307!\203\311 \211G\310Y\203\311 \211\311H\f>\203\311 \321\202\353 \307!\203\342 \211G\316Y\203\342 \211\311H
>\203\342 \321\202\353 \322\323\324#\205\353 \321\207H\307!\203\"\211G\310Y\203\"\211\311H>\203\"\311H >\204\312\313\314D\"\210\211\325\325H\\I\262\202\313\307!\203U\211G\316Y\203U\211\311H\n>\203U\311H >\204G\312\313\314D\"\210\211\326\326H\\I\262\202\313\307!\203\210\211G\316Y\203\210\211\311H >\203\210\311H >\204z\312\313\314D\"\210\211\320\320H\\I\262\202\313\211\204\220\321\202\313\307!\203\251\211G\310Y\203\251\211\311H\f>\203\251\321\202\313\307!\203\302\211G\316Y\203\302\211\311H
>\203\302\321\202\313\322\323\327#\205\313\321\207" [cl-struct-ert-test-passed-tags cl-struct-ert--stats-tags cl-struct-ert-test-failed-tags cl-struct-ert-test-skipped-tags cl-struct-ert-test-aborted-with-non-local-exit-tags cl-struct-ert-test-quit-tags ert-test-result-expected-p vectorp 3 0 signal wrong-type-argument ert--stats 7 6 9 11 nil error "cl-etypecase failed: %s, %s" (ert-test-passed ert-test-failed ert-test-skipped null ert-test-aborted-with-non-local-exit ert-test-quit) 8 10 (ert-test-passed ert-test-failed ert-test-skipped null ert-test-aborted-with-non-local-exit ert-test-quit)] 11 "\n\n(fn STATS POS TESTS RESULTS D)"] -1 remhash ert--stats-test-key puthash 1 nil] 15 (#$ . 102884)])
#@131 Create a new `ert--stats' object for running TESTS.
SELECTOR is the selector that was used to select TESTS.
(fn TESTS SELECTOR)
(defalias 'ert--make-stats #[514 "\300\301\"\262\302\303G\"\304\305\306\211T\211\262GW\203C H\262\307!\262\310\"\2031 \311\312!\210\211\313#\266T\262\202 \266\314\315\316\317\320\321 G\306\"\322\321
G\306\"\323\321G\306\"&\f\207" [cl-coerce vector make-hash-table :size 0 -1 nil ert--stats-test-key gethash cl--assertion-failed (not (gethash key map)) puthash make-ert--stats :selector :tests :test-map :test-results make-vector :test-start-times :test-end-times] 18 (#$ . 105196)])
#@100 Run the single test TEST and record the result using STATS and LISTENER.
(fn STATS TEST LISTENER)
(defalias 'ert-run-or-rerun-test #[771 "\303\"\304\305$\210\306H >\204 \307\310\311D\"\210\211\312I\266\313#\210\306H\n>\204? \307\310\314D\"\210\211\315\305I\266\306H >\204V \307\310\311D\"\210\316H\317 I\266\320\306\321\322\323 $\324\"\325$\216\326!*\207" [ert--current-run-stats cl-struct-ert--stats-tags cl-struct-ert-test-tags ert--stats-test-pos ert--stats-set-test-and-result nil 0 signal wrong-type-argument ert--stats 15 test-started ert-test 4 5 current-time make-byte-code "\300\306H\f>\204 \307\310\311\300D\"\210\300\312H\303\313 I\266\301\306H
>\204) \307\310\314\301D\"\210\301\315H\316\300\303\301$\210\302\317\300\301$\266\300\306H\f>\204J \307\310\311\300D\"\210\300\211\320\321I\207" vconcat vector [cl-struct-ert--stats-tags cl-struct-ert-test-tags 0 signal wrong-type-argument ert--stats 6 current-time ert-test 4 ert--stats-set-test-and-result test-ended 15 nil] 6 ert-run-test] 14 (#$ . 105851)])
#@100 Run the tests specified by SELECTOR, sending progress updates to LISTENER.
(fn SELECTOR LISTENER)
(defalias 'ert-run-tests #[514 "\302\303\"\304\"\211\305H>\204 \306\307\310D\"\210\211\211\311\312 I\266\313\"\210\303C\314\216\315 \210\316\305\317\320\321#\322\"\323$\216\324:\203W @\262\325#\210A\262\202@ \266\211\324\240\210+\262\207" [cl-struct-ert--stats-tags ert--current-run-stats ert-select-tests t ert--make-stats 0 signal wrong-type-argument ert--stats 12 current-time run-started #[0 "\300 \207" [force-mode-line-update] 1] force-mode-line-update make-byte-code "\301\304H >\204 \305\306\307\301D\"\210\301\211\310\302\242I\266\301\304H >\204& \305\306\307\301D\"\210\301\211\311\312 I\266\300\313\301\302\242#\207" vconcat vector [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 14 13 current-time run-ended] 4 nil ert-run-or-rerun-test] 13 (#$ . 106927)])
#@87 Return the position (index) of TEST in the run represented by STATS.
(fn STATS TEST)
(defalias 'ert--stats-test-pos #[514 "\301\302!\303H>\204 \304\305\306D\"\210\307H\"\207" [cl-struct-ert--stats-tags gethash ert--stats-test-key 0 signal wrong-type-argument ert--stats 3] 8 (#$ . 107853)])
#@79 Format TIME in the variant of ISO 8601 used for timestamps in ERT.
(fn TIME)
(defalias 'ert--format-time-iso8601 #[257 "\300\301\"\207" [format-time-string "%Y-%m-%d %T%z"] 4 (#$ . 108158)])
#@137 Return a character that represents the test result RESULT.
EXPECTEDP specifies whether the result was expected.
(fn RESULT EXPECTEDP)
(defalias 'ert-char-for-test-result #[514 "\305!\203 G\306Y\203 \307H>\203 \310\202\216 \305!\2032 G\311Y\2032 \307H >\2032 \312\202\216 \305!\203K G\311Y\203K \307H\n>\203K \313\202\216 \204S \314\202\216 \305!\203l G\306Y\203l \307H >\203l \315\202\216 \305!\203\205 G\311Y\203\205 \307H\f>\203\205 \316\202\216 \317\320\321#\205\216 \322\211\203\227 \307\202\230 \323\234\207" [cl-struct-ert-test-passed-tags cl-struct-ert-test-failed-tags cl-struct-ert-test-skipped-tags cl-struct-ert-test-aborted-with-non-local-exit-tags cl-struct-ert-test-quit-tags vectorp 3 0 ".P" 6 "fF" "sS" "--" "aA" "qQ" error "cl-etypecase failed: %s, %s" (ert-test-passed ert-test-failed ert-test-skipped null ert-test-aborted-with-non-local-exit ert-test-quit) nil 1] 6 (#$ . 108358)])
#@134 Return a string that represents the test result RESULT.
EXPECTEDP specifies whether the result was expected.
(fn RESULT EXPECTEDP)
(defalias 'ert-string-for-test-result #[514 "\305!\203 G\306Y\203 \307H>\203 \310\202\216 \305!\2032 G\311Y\2032 \307H >\2032 \312\202\216 \305!\203K G\311Y\203K \307H\n>\203K \313\202\216 \204S \314\202\216 \305!\203l G\306Y\203l \307H >\203l \315\202\216 \305!\203\205 G\311Y\203\205 \307H\f>\203\205 \316\202\216 \317\320\321#\205\216 \322\211\203\227 \307\202\230 \323\234\207" [cl-struct-ert-test-passed-tags cl-struct-ert-test-failed-tags cl-struct-ert-test-skipped-tags cl-struct-ert-test-aborted-with-non-local-exit-tags cl-struct-ert-test-quit-tags vectorp 3 0 ("passed" "PASSED") 6 ("failed" "FAILED") ("skipped" "SKIPPED") ("unknown" "UNKNOWN") ("aborted" "ABORTED") ("quit" "QUIT") error "cl-etypecase failed: %s, %s" (ert-test-passed ert-test-failed ert-test-skipped null ert-test-aborted-with-non-local-exit ert-test-quit) nil 1] 6 (#$ . 109291)])
#@117 Pretty-print OBJECT, indenting it to the current column of point.
Ensures a final newline is inserted.
(fn OBJECT)
(defalias 'ert--pp-with-indentation-and-newline #[257 "`\301\302p\"\210n\204 \303c\210\212\211b\210\304 *\207" [pp-escape-newlines nil pp "\n" indent-sexp] 5 (#$ . 110315)])
#@124 Insert `ert-info' infos from RESULT into current buffer.
RESULT must be an `ert-test-result-with-condition'.
(fn RESULT)
(defalias 'ert--insert-infos #[257 "\301!\203 \211G\302Y\203 \211\303H>\204 \304\305\306\307E\"\210\211\303H>\204, \304\305\306D\"\210\211\310H\211\205\217 \211@\211\211\203C \211A\262\242\202J \304\311\312GD\"`\313G\314\\\315\"\312C\316\303\317\320\321!\322\"\323$\216\324\261\210\211\325 \240\210b\210\326\261\210\327y\210`\242W\203\205 c\210\327y\210\202u )\266A\266\202\202/ \207" [cl-struct-ert-test-result-with-condition-tags vectorp 6 0 signal wrong-type-argument ert-test-result-with-condition result 5 wrong-number-of-arguments nil make-string 4 32 make-byte-code "\300\242\205\n \300\242\301\211\223\207" vconcat vector [nil] 3 "\n" point-marker " " 1] 14 (#$ . 110615)])
#@75 The maximum line length for printing backtraces in `ert-run-tests-batch'.
(defvar ert-batch-backtrace-right-margin 70 (#$ . 111451))
#@355 Run the tests specified by SELECTOR, printing results to the terminal.
SELECTOR works as described in `ert-select-tests', except if
SELECTOR is nil, in which case all tests rather than none will be
run; this makes the command line "emacs -batch -l my-tests.el -f
ert-run-tests-batch-and-exit" useful.
Returns the stats object.
(fn &optional SELECTOR)
(defalias 'ert-run-tests-batch #[256 "\211\204 \300\262\301\302\"\207" [t ert-run-tests #[385 "\306\307\"\203G \211\211G\310U\203 \211@\202 \311\312\313GD\"\314\315\316H>\204, \311\317\320D\"\210\321HG\322\316H>\204A \311\317\320D\"\210\323H!#\207\306\324\"\203\303\211\211G\321U\203_ \211A\262\242\202f \311\312\313GD\"@\325!\326!\316H>\204~ \311\317\320D\"\210\327H\314\330\204\213 \331\202\214 \332\333!\334 !\316U\203\237 \331\202\244 \335\336 \"\316U\203\257 \331\202\264 \335\337 \"\322\f\316H>\204\306 \311\317\320D\"\210\f\340H!\316U\203\326 \331\202\333 \335\341\n\"&\210\316U\204O\314\342\"\210\316H>\204\371 \311\317\320D\"\210\321H\343\313\211T\211\262GW\203HH\262\316H >\204 \311\317\344D\"\210\345H\262\346\"\204\377 \314\347\350\313\"\316H >\204@\311\317\344D\"\210\310H#\210\202\377 \266\314\351\331\"\210\316U?\205\300\314\352\"\210\316H>\204k\311\317\320D\"\210\321H\343\313\211T\211\262GW\203\272H\262\316H >\204\220\311\317\344D\"\210\345H\262\353\354\"\203q\314\347\350\313\"\316H >\204\262\311\317\344D\"\210\310H#\210\202q\266\314\351\331\"\266\203\207\306\355\"\203\314\313\207\306\356\"\203\354\211\211G\357U\203\344\211A\262\242\202\353\311\312\313GD\"\211A\262\242@\346\"\204\225\360!\203)\211G\357Y\203)\211\316H\n>\203)\314\361\316H >\204!\311\317\344D\"\210\310H\"\210\202\225\360!\203%\211G\362Y\203%\211\316H >\203%\314\363\316H >\204P\311\317\344D\"\210\310H\"\210\364\365!r\211q\210\366\316\367\370\371!\372\"\321$\216\373\316H >\204x\311\317\374D\"\210\345H!\210eb\210m\204\237`\313\210`\211\f\\^\262\314\351\375\"\"\266\310y\210\202\200*\210\364\365!r\211q\210\366\316\367\370\371!\376\"\321$\216\377!\210\201D c\210\201E \201F \201G @ A\201H \316H >\204\335\311\317\374D\"\210\357H!\210+dSb\210\201I \201J !\204\371\201K \201L !\210\201M \310!\210\314\201N \316H >\204\311\317\344D\"\210\310H\"\210\314\351\201O \"\210*\210\202\225\360!\203W\211G\357Y\203W\211\316HB>\203W\314\201P \316H >\204O\311\317\344D\"\210\310H\"\210\202\225\360!\203\211\211G\362Y\203\211\211\316HC>\203\211\314\201Q \316H >\204\201\311\317\344D\"\210\310H\"\210\202\225\201R \201S \201T #\210\201U \316H>\204\250\311\317\320D\"\210\321HG!\201V \201U G!\201W \201X \260\314\350\346\"\"\201Y \"T\316H >\204\344\311\317\344\nD\"\210\310H$\266\202\207\201R \201Z \201[ #\205\373\313\207" [cl-struct-ert--stats-tags cl-struct-ert-test-tags cl-struct-ert-test-passed-tags cl-struct-ert-test-result-with-condition-tags ert-batch-backtrace-right-margin print-length eql run-started 1 signal wrong-number-of-arguments nil message "Running %s tests (%s)" 0 wrong-type-argument ert--stats 2 ert--format-time-iso8601 12 run-ended ert-stats-completed-unexpected ert-stats-skipped 9 "\n%sRan %s tests, %s results as expected%s%s (%s)%s\n" "" "Aborted: " ert-stats-total ert-stats-completed-expected format ", %s unexpected" ", %s skipped" 13 "\n%s expected failures" "%s unexpected results:" -1 ert-test 4 ert-test-result-expected-p "%9s %S" ert-string-for-test-result "%s" "%s skipped results:" ert-test-result-type-p :skipped test-started test-ended 3 vectorp "Test %S passed unexpectedly" 6 "Test %S backtrace:" generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] ert--print-backtrace ert-test-result-with-condition buffer-substring-no-properties [buffer-name kill-buffer] ert--insert-infos print-level print-escape-newlines cl-struct-ert-test-aborted-with-non-local-exit-tags cl-struct-ert-test-quit-tags " " t 5 10 ert--pp-with-indentation-and-newline looking-at #1="\n" cl--assertion-failed (looking-at #1#) delete-char "Test %S condition:" buffer-string "Test %S aborted with non-local exit" "Quit during %S" error "cl-etypecase failed: %s, %s" (ert-test-passed ert-test-result-with-condition ert-test-aborted-with-non-local-exit ert-test-quit) prin1-to-string "%9s %" "s/" " %S" ert--stats-test-pos "cl-ecase failed: %s, %s" (run-started run-ended test-started test-ended)] 20 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)"]] 4 (#$ . 111591)])
#@291 Like `ert-run-tests-batch', but exits Emacs when done.
The exit status will be 0 if all test results were as expected, 1
on unexpected results, or 2 if the tool detected an error outside
of the tests (e.g. invalid SELECTOR or bug in the code that runs
the tests).
(fn &optional SELECTOR)
(defalias 'ert-run-tests-batch-and-exit #[256 "\300\216\301!\302\303!\304U\203 \304\202 \305!\262)\207" [#[0 "\300\216\301\302!\210\303 )\207" [#[0 "\300\301!\207" [kill-emacs 2] 2] message "Error running tests" backtrace] 2] ert-run-tests-batch kill-emacs ert-stats-completed-unexpected 0 1] 5 (#$ . 116188)])
#@256 Summarize the results of testing.
Expects to be called in batch mode, with logfiles as command-line arguments.
The logfiles should have the `ert-run-tests-batch' format. When finished,
this exits Emacs, with status as per `ert-run-tests-batch-and-exit'.
(defalias 'ert-summarize-tests-batch-and-exit #[0 "\204 \302\303!\210 G\304\211\211\211\211\305\211\211\211\211\306\307!r\211q\210\310\304\311\312\313!\314\"\315$\216 \211A\242\211\262\203\252 \316 \210\317!\210\320\321\305\322#\204I B\262\202' \n\323\324\325!!\\\262 \320\326\305\322#\204c B\262\202' \324\325!\203n B\262 \323\324\315!!\\\262\n\323\324\327!!\\\262 \324\330!\203\227 B\262\323\324\330!!\\\262\324\331!\203' \323\324\331!!\\\262\202' *\210 Z\262\332\333!\210\332\334!\210\332\335\f\"\210\332\336\n\304U\203\320 \337\202\325 \340\341 \" \304U\203\342 \337\202\347 \340\342
\" \304U\203\362 \337\202\367 \340\343
\"&\210\203 \332\344G\"\210\345\346\"\210\203\332\347G\"\210\345\350\"\210\211\203'\332\351G\"\210\345\352\"\210\353\2046\2046\304U\204:\315\202C\203B\325\202C\304!\207" [noninteractive command-line-args-left user-error "This function is only for use in batch mode" 0 nil generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 erase-buffer insert-file-contents re-search-forward "^Running \\([0-9]+\\) tests" t string-to-number match-string 1 "^\\(Aborted: \\)?Ran \\([0-9]+\\) tests, \\([0-9]+\\) results as expected\\(?:, \\([0-9]+\\) unexpected\\)?\\(?:, \\([0-9]+\\) skipped\\)?" 3 4 5 message "\nSUMMARY OF TEST RESULTS" "-----------------------" "Files examined: %d" "Ran %d tests%s, %d results as expected%s%s" "" format ", %d failed to run" ", %d unexpected" ", %d skipped" "%d files did not contain any tests:" mapc #[257 "\300\301\"\207" [message " %s"] 4 "\n\n(fn L)"] "%d files did not finish:" #[257 "\300\301\"\207" [message " %s"] 4 "\n\n(fn L)"] "%d files contained unexpected results:" #[257 "\300\301\"\207" [message " %s"] 4 "\n\n(fn L)"] kill-emacs] 20 (#$ . 116801)])
#@56 Activate font-lock keywords for some of ERT's symbols.
(defalias 'ert--activate-font-lock-keywords #[0 "\300\301\302\"\207" [font-lock-add-keywords nil (("(\\(\\<ert-deftest\\)\\>\\s *\\(\\(?:\\sw\\|\\s_\\)+\\)?" (1 font-lock-keyword-face nil t) (2 font-lock-function-name-face nil t)))] 3 (#$ . 118914)])
#@142 Remove ELEMENT from the value of LIST-VAR if present.
This can be used as an inverse of `add-to-list'.
(fn LIST-VAR ELEMENT &key KEY TEST)
(defalias 'ert--remove-from-list #[642 "\300\301\"A@\300\302\"A@\211\2037 \211@\303>\203 \211AA\262\202
\304>A@\203. \305\262\202
\306\307@\"\210\202
\210\204? \310\262\211\204F \311\262\211\312J\301\302&L\262\207" [plist-member :key :test (:key :test :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:key :test)" identity equal cl-remove] 14 (#$ . 119227)])
#@381 Read the name of a test and return it as a symbol.
Prompt with PROMPT. If DEFAULT is a valid test name, use it as a
default. HISTORY is the history to use; see `completing-read'.
If ADD-DEFAULT-TO-PROMPT is non-nil, PROMPT will be modified to
include the default, if any.
Signals an error if no test name was read.
(fn PROMPT &optional DEFAULT HISTORY ADD-DEFAULT-TO-PROMPT)
(defalias 'ert-read-test-name #[1025 ";\203 \302!\211\203 \303!\204 \304\262\210\202^ 9\203, \303!\205' \305!\262\202^ \306!\203X G\307Y\203X \310H>\203X \310H>\204P \311\312\313D\"\210\314H\262\202^ \315\316\317#\210\211\203t \204m \320\321\"\202r \320\322#\262\323 \303\324\304 \304&\302!\303!\203\216 \211\202\221 \315\325!\262\207" [cl-struct-ert-test-tags obarray intern-soft ert-test-boundp nil symbol-name vectorp 7 0 signal wrong-type-argument ert-test 1 error "cl-etypecase failed: %s, %s" (string symbol ert-test) format "%s: " "%s (default %s): " completing-read t "Input does not name a test"] 13 (#$ . 119790)])
#@213 Read the name of a test and return it as a symbol.
As a default, use the symbol at point, or the test at point if in
the ERT results buffer. Prompt with PROMPT, augmented with the
default (if any).
(fn PROMPT)
(defalias 'ert-read-test-name-at-point #[257 "\300\301 \302\303$\207" [ert-read-test-name ert-test-at-point nil t] 6 (#$ . 120836)])
#@71 Find, in another window, the definition of TEST-NAME.
(fn TEST-NAME)
(defalias 'ert-find-test-other-window #[257 "\300\301\302#\207" [find-function-do-it ert-deftest switch-to-buffer-other-window] 5 (#$ . 121188) (byte-code "\300\301!C\207" [ert-read-test-name-at-point "Find test definition: "] 2)])
#@122 Make the test TEST-NAME unbound.
Nothing more than an interactive interface to `ert-make-test-unbound'.
(fn TEST-NAME)
(defalias 'ert-delete-test #[257 "\300!\207" [ert-make-test-unbound] 3 (#$ . 121498) (byte-code "\300\301!C\207" [ert-read-test-name-at-point "Delete test"] 2)])
#@45 Make all symbols in `obarray' name no test.
(defalias 'ert-delete-all-tests #[0 "\300\301!\203 \302\303!\204 \304\305!\210\306\307\310\311\312\"\"\210\313\207" [called-interactively-p any y-or-n-p "Delete all tests? " error "Aborted" mapc ert-make-test-unbound apropos-internal "" ert-test-boundp t] 5 (#$ . 121788) nil])
(defalias 'ert--ewoc-entry-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--ewoc-entry-p (declare (side-effect-free error-free)) (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-ert--ewoc-entry-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--ewoc-entry-p 'compiler-macro 'ert--ewoc-entry-p--cmacro)
(defalias 'ert--ewoc-entry-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-ert--ewoc-entry-tags vectorp 5 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\301#\207" [function-put ert--ewoc-entry-p side-effect-free error-free put ert--ewoc-entry cl-deftype-satisfies] 4)
(defalias 'ert--ewoc-entry-test--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--ewoc-entry-test (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--ewoc-entry-tags)) (signal 'wrong-type-argument (list 'ert--ewoc-entry cl-x))) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--ewoc-entry-test 'compiler-macro 'ert--ewoc-entry-test--cmacro)
(defalias 'ert--ewoc-entry-test #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--ewoc-entry-tags 0 signal wrong-type-argument ert--ewoc-entry 1] 5 "\n\n(fn CL-X)"])
(function-put 'ert--ewoc-entry-test 'side-effect-free t)
(defalias 'ert--ewoc-entry-hidden-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--ewoc-entry-hidden-p (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--ewoc-entry-tags)) (signal 'wrong-type-argument (list 'ert--ewoc-entry cl-x))) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--ewoc-entry-hidden-p 'compiler-macro 'ert--ewoc-entry-hidden-p--cmacro)
(defalias 'ert--ewoc-entry-hidden-p #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--ewoc-entry-tags 0 signal wrong-type-argument ert--ewoc-entry 2] 5 "\n\n(fn CL-X)"])
(function-put 'ert--ewoc-entry-hidden-p 'side-effect-free t)
(defalias 'ert--ewoc-entry-expanded-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--ewoc-entry-expanded-p (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--ewoc-entry-tags)) (signal 'wrong-type-argument (list 'ert--ewoc-entry cl-x))) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--ewoc-entry-expanded-p 'compiler-macro 'ert--ewoc-entry-expanded-p--cmacro)
(defalias 'ert--ewoc-entry-expanded-p #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--ewoc-entry-tags 0 signal wrong-type-argument ert--ewoc-entry 3] 5 "\n\n(fn CL-X)"])
(function-put 'ert--ewoc-entry-expanded-p 'side-effect-free t)
(defalias 'ert--ewoc-entry-extended-printer-limits-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ert--ewoc-entry-extended-printer-limits-p (declare (side-effect-free t)) (or (and (memq (aref cl-x 0) cl-struct-ert--ewoc-entry-tags)) (signal 'wrong-type-argument (list 'ert--ewoc-entry cl-x))) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"])
(put 'ert--ewoc-entry-extended-printer-limits-p 'compiler-macro 'ert--ewoc-entry-extended-printer-limits-p--cmacro)
(defalias 'ert--ewoc-entry-extended-printer-limits-p #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ert--ewoc-entry-tags 0 signal wrong-type-argument ert--ewoc-entry 4] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\305\306\"\207" [function-put ert--ewoc-entry-extended-printer-limits-p side-effect-free t defalias copy-ert--ewoc-entry copy-sequence] 4)
#@83
(fn CL-WHOLE &cl-quote &key TEST HIDDEN-P EXPANDED-P EXTENDED-PRINTER-LIMITS-P)
(defalias 'make-ert--ewoc-entry--cmacro #[385 "\300\301\"\206 \302A@\300\303\"\206 \304A@\300\305\"\206 \306A@\300\307\"A@\211\203P \211@\310>\2038 \211AA\262\202% \311>A@\203G \312\262\202% \313\314@\"\210\202% \210\315\316\317\312 \312 & \207" [plist-member :test (nil (cl-assert nil)) :hidden-p (nil (cl-assert nil)) :expanded-p (nil t) :extended-printer-limits-p (:test :hidden-p :expanded-p :extended-printer-limits-p :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:test :hidden-p :expanded-p :extended-printer-limits-p)" cl--defsubst-expand (test hidden-p expanded-p extended-printer-limits-p) (cl-block make-ert--ewoc-entry "Constructor for objects of type `ert--ewoc-entry'." (vector 'cl-struct-ert--ewoc-entry test hidden-p expanded-p extended-printer-limits-p))] 16 (#$ . 125770)])
(put 'make-ert--ewoc-entry 'compiler-macro 'make-ert--ewoc-entry--cmacro)
#@114 Constructor for objects of type `ert--ewoc-entry'.
(fn &key TEST HIDDEN-P EXPANDED-P EXTENDED-PRINTER-LIMITS-P)
(defalias 'make-ert--ewoc-entry #[128 "\300\301\"\206 \302\303\302!\210\302DA@\300\304\"\206 \302\303\302!\210\302DA@\300\305\"\206( \306A@\300\307\"A@\211\203\\ \211@\310>\203D \211AA\262\2021 \311>A@\203S \302\262\2021 \312\313@\"\210\2021 \210\314\315%\207" [plist-member :test nil cl--assertion-failed :hidden-p :expanded-p (nil t) :extended-printer-limits-p (:test :hidden-p :expanded-p :extended-printer-limits-p :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:test :hidden-p :expanded-p :extended-printer-limits-p)" vector cl-struct-ert--ewoc-entry] 11 (#$ . 126779)])
(byte-code "\300\301\302\303\302\211\304\305\306\307& \207" [cl-struct-define ert--ewoc-entry nil cl-structure-object ((cl-tag-slot) (test (cl-assert nil)) (hidden-p (cl-assert nil)) (expanded-p t) (extended-printer-limits-p nil)) cl-struct-ert--ewoc-entry-tags cl-struct-ert--ewoc-entry t] 10)
#@58 Insert a button that links to TEST-NAME.
(fn TEST-NAME)
(defalias 'ert-insert-test-name-button #[257 "\300\301\302\"\303\304\305%\207" [insert-text-button format "%S" :type ert--test-name-button ert-test-name] 7 (#$ . 127814)])
#@104 Return a string indicating EXPECTED expected results, UNEXPECTED unexpected.
(fn EXPECTED UNEXPECTED)
(defalias 'ert--results-format-expected-unexpected #[514 "\211\300U\203 \301\302\"\207\301\303\\#\207" [0 format "%s" "%s (%s unexpected)"] 6 (#$ . 128052)])
#@148 Update the header and footer of EWOC to show certain information from STATS.
Also sets `ert--results-progress-bar-button-begin'.
(fn EWOC STATS)
(defalias 'ert--results-update-ewoc-hf #[514 "\305!p\306\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320c\210\321\312H >\204/ \322\323\324\nD\"\210\325H!\210\326c\210\327\330\331 \312H >\204L \322\323\324\fD\"\210 \332H\n\312H >\204a \322\323\324
D\"\210\n\333H\"\331\n\312H >\204x \322\323\324
D\"\210\n\334H \312H >\204\215 \322\323\324D\"\210 \335H\"\336 !\n\337
!&c\210\327\340\341 \312H >\204\264 \322\323\324\fD\"\210 \342H!\"c\210\312H >\204\315 \322\323\324 D\"\210\343H\203\330 \344\202\312H >\204\351 \322\323\324 D\"\210\345H\203\364 \346\202\312H >\204\322\323\324 D\"\210\347H\203\350\202\351\352\351\"\203 \353c\210\202\371\352\344\"\203u\312H >\2046\322\323\324\nD\"\210\345H\203o\354c\210\355\312H >\204R\322\323\324 D\"\210\345H\211\312H\n>\204e\322\323\356D\"\210\211\325H\262!\210\202\371\357c\210\202\371\352\346\"\203\312\312H >\204\215\322\323\324\nD\"\210\345H\204\230\360\361!\210\362c\210\355\312H >\204\255\322\323\324 D\"\210\345H\211\312H\n>\204\300\322\323\356D\"\210\211\325H\262!\210\202\371\352\350\"\203\363\312H >\204\342\322\323\324\nD\"\210\345H\203\355\360\363!\210\364c\210\202\371\365\366\367#\210\326c\210\312H >\204
\322\323\324\nD\"\210\347H\203P\327\370 \312H >\204'\322\323\324\fD\"\210 \343H\2032\371\2023\372\341 \312H >\204E\322\323\324D\"\210 \347H!#c\210\202S\326c\210\326c\266rq\210 )\373\374\375\376 \203n\377
!\206q\201@ %rq\210\201A \304!\210\211)\266\201B c\210\201C *\262\326#\207" [font-lock-mode cl-struct-ert--stats-tags cl-struct-ert-test-tags ert--results-progress-bar-string ert--results-progress-bar-button-begin ert-stats-completed ewoc-set-hf generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "Selector: " ert--insert-human-readable-selector signal wrong-type-argument ert--stats 1 "\n" format "Passed: %s\nFailed: %s\nSkipped: %s\nTotal: %s/%s\n\n" ert--results-format-expected-unexpected 7 8 9 10 ert-stats-skipped ert-stats-total "Started at: %s\n" ert--format-time-iso8601 12 14 aborted 15 running 13 finished preparing eql "" "Aborted during test: " ert-insert-test-name-button ert-test "Aborted." cl--assertion-failed (ert--stats-current-test stats) "Running test: " (not (ert--stats-current-test stats)) "Finished." error "cl-ecase failed: %s, %s" (preparing aborted running finished) "%s%s\n" "Aborted at: " "Finished at: " insert-text-button :type ert--results-progress-bar-button face ert-face-for-stats button make-local-variable "\n\n" buffer-string] 17 (#$ . 128325)])
#@205 How many seconds ERT should wait between redisplays while running tests.
While running tests, ERT shows the current progress, and this variable
determines how frequently the progress display is updated.
(defvar ert-test-run-redisplay-interval-secs 0.1 (#$ . 131155))
#@73 Update EWOC and the mode line to show data from STATS.
(fn EWOC STATS)
(defalias 'ert--results-update-stats-display #[514 "\302\"\210\303 \210\304\305!\210\211\306H>\204 \307\310\311D\"\210\211\211\312\313 \\I\207" [cl-struct-ert--stats-tags ert-test-run-redisplay-interval-secs ert--results-update-ewoc-hf force-mode-line-update redisplay t 0 signal wrong-type-argument ert--stats 16 float-time] 7 (#$ . 131429)])
#@154 Call `ert--results-update-stats-display' if not called recently.
EWOC and STATS are arguments for `ert--results-update-stats-display'.
(fn EWOC STATS)
(defalias 'ert--results-update-stats-display-maybe #[514 "\301 \302H>\204 \303\304\305D\"\210\306HY\205 \307\"\207" [cl-struct-ert--stats-tags float-time 0 signal wrong-type-argument ert--stats 16 ert--results-update-stats-display] 7 (#$ . 131858)])
#@69 Return a string for the mode line that shows the test run progress.
(defalias 'ert--tests-running-mode-line-indicator #[0 "\303!\304!\211Y\203 \305\306#\202c \305\307T\310H >\204+ \311\312\313 D\"\210\314H\2046 \315\202b \305\316\310H >\204I \311\312\313 D\"\210\314H\211\310H\n>\204\\ \311\312\317D\"\210\211\320H\262\"$\207" [ert--current-run-stats cl-struct-ert--stats-tags cl-struct-ert-test-tags ert-stats-total ert-stats-completed format " ERT(%s/%s,finished)" " ERT(%s/%s):%s" 0 signal wrong-type-argument ert--stats 15 "?" "%S" ert-test 1] 14 (#$ . 132275)])
#@137 Attach cross-references to function names between BEGIN and END.
BEGIN and END specify a region in the current buffer.
(fn BEGIN END)
(defalias 'ert--make-xrefs-region #[514 "\212\214}\210\301\302 +\207" [debugger-previous-backtrace nil debugger-make-xrefs] 4 (#$ . 132870)])
#@126 Return the first line of S, or S if it contains no newlines.
The return value does not include the line terminator.
(fn S)
(defalias 'ert--string-first-line #[257 "\211\300\301\302\"O\207" [0 cl-position 10] 6 (#$ . 133158)])
#@207 Return a face that shows whether a test result was expected or unexpected.
If EXPECTEDP is nil, returns the face for unexpected results; if
non-nil, returns the face for expected results..
(fn EXPECTEDP)
(defalias 'ert-face-for-test-result #[257 "\211\203 \300\207\301\207" [ert-test-result-expected ert-test-result-unexpected] 2 (#$ . 133394)])
#@50 Return a face that represents STATS.
(fn STATS)
(defalias 'ert-face-for-stats #[257 "\211\301H>\204 \302\303\304D\"\210\211\305H\203 \306\207\307!\211\301V\262\203& \310\306!\207\311\312!\313!\"\2035 \310\314!\207\306\207" [cl-struct-ert--stats-tags 0 signal wrong-type-argument ert--stats 14 nil ert-stats-completed-unexpected ert-face-for-test-result eql ert-stats-completed-expected ert-stats-total t] 5 (#$ . 133749)])
#@90 The ewoc print function for ewoc test entries. ENTRY is the entry to print.
(fn ENTRY)
(defalias 'ert--print-test-for-ewoc #[257 "\211\306H>\204 \307\310\311D\"\210\211\312H \313\"\211\204 \314\315!\210\306H\n>\204. \307\310\316D\"\210\317HH\262\306H>\204E \307\310\311D\"\210\320H\306H>\204X \307\310\311D\"\210\321H\306H>\204k \307\310\311D\"\210\317H\204\270\322\"\323\324\325\326\"\"\327\330\331 \203\216 \332!\206\217 \333%\266\334c\210\335\306H\f>\204\247 \307\310\336 D\"\210\312H!\210\337c\210\203\270\340\341\"\204\270\306H\f>\204\313 \307\310\336D\"\210\320H\203\363 \342\343\344\345 \306H\f>\204\346 \307\310\336\fD\"\210 \320H!!\346\347#\337\261\210\350!\203 G\321Y\203 \306H
>\203 \322\"\203\351c\210\202\352c\210\353c\210\202\265\350!\203wG\354Y\203w\306H:>\203w\355!\210\356\203B\357\202C\354\203K\360\202L\361 ; < =\342c\210`\362\306H:>\204h\307\310\363D\"\210\321H!\210\364`\"\266+\202\265\350!\203\223G\321Y\203\223\306H>>\203\223\365c\210\202\265\350!\203\257G\354Y\203\257\306H?>\203\257\366c\210\202\265\367\370\371#\210\337c\210\266\341\207" [cl-struct-ert--ewoc-entry-tags ert--results-stats cl-struct-ert--stats-tags font-lock-mode cl-struct-ert-test-tags cl-struct-ert-test-passed-tags 0 signal wrong-type-argument ert--ewoc-entry 1 ert--stats-test-pos cl--assertion-failed pos ert--stats 4 2 3 ert-test-result-expected-p insert-text-button format "%c" ert-char-for-test-result :type ert--results-expand-collapse-button face ert-face-for-test-result button " " ert-insert-test-name-button ert-test "\n" eql nil " " propertize ert--string-first-line substitute-command-keys font-lock-face font-lock-doc-face vectorp " passed\n" " passed unexpectedly\n" "" 6 ert--insert-infos t 12 100 10 ert--pp-with-indentation-and-newline ert-test-result-with-condition ert--make-xrefs-region " aborted\n" " quit\n" error "cl-etypecase failed: %s, %s" (ert-test-passed ert-test-result-with-condition ert-test-aborted-with-non-local-exit ert-test-quit) cl-struct-ert-test-result-with-condition-tags print-length print-level print-escape-newlines cl-struct-ert-test-aborted-with-non-local-exit-tags cl-struct-ert-test-quit-tags] 15 (#$ . 134187)])
#@160 Redraw the ERT results buffer after font-lock-mode was switched on or off.
ENABLEDP is true if font-lock-mode is switched on, false
otherwise.
(fn ENABLEDP)
(defalias 'ert--results-font-lock-function #[257 "\302 \"\210\303!\210\304!\207" [ert--results-ewoc ert--results-stats ert--results-update-ewoc-hf ewoc-refresh font-lock-default-function] 4 (#$ . 136476)])
#@178 Set up a test results buffer.
STATS is the stats object; LISTENER is the results listener;
BUFFER-NAME, if non-nil, is the buffer name to use.
(fn STATS LISTENER BUFFER-NAME)
(defalias 'ert--setup-results-buffer #[771 "\211\204 \306\262\307!r\211q\210\310\311 \210\312 \210\313 \210\312 \210\314\301!\210\315\316\317\320\211\310$\314\302!\210\211\314\303!\210\314\304!\210\321\322!\323\320\310\"\"\314\305!\210\324H >\204Z \325\326\327D\"\210\330H\331\320T\211\262GW\203} H\262\332\333\334\310\211\320%\"\210\202_ \266\335\n \"\210dSb\210\262*\207" [inhibit-read-only font-lock-function ert--results-ewoc ert--results-stats ert--results-progress-bar-string ert--results-listener "*ert*" get-buffer-create t buffer-disable-undo erase-buffer ert-results-mode make-local-variable ert--results-font-lock-function ewoc-create ert--print-test-for-ewoc nil make-string ert-stats-total ert-char-for-test-result 0 signal wrong-type-argument ert--stats 2 -1 ewoc-enter-last vector cl-struct-ert--ewoc-entry ert--results-update-ewoc-hf cl-struct-ert--stats-tags] 16 (#$ . 136851)])
#@51 List of recent test selectors read from terminal.
(defvar ert--selector-history nil (#$ . 137959))
#@338 Run the tests specified by SELECTOR and display the results in a buffer.
SELECTOR works as described in `ert-select-tests'.
OUTPUT-BUFFER-NAME and MESSAGE-FN should normally be nil; they
are used for automated self-tests and specify which buffer to use
and how to display message.
(fn SELECTOR &optional OUTPUT-BUFFER-NAME MESSAGE-FN)
(defalias 'ert-run-tests-interactively #[769 "\211\204 \300\262\301C\301C\302\303\304\305\306 $\307\"\310\311%\240\210\312\242\"\207" [message nil make-byte-code 385 "\306\307\"\203) \211\211G\310U\203 \211@\202 \311\312\313GD\"\301\314\302\242\300#\240\210\315\301\242!\207\306\316\"\203\222 \211\211G\317U\203A \211A\262\242\202H \311\312\313GD\"@\303\320\204T \321\202U \322\323!\324!\325!\211\326U\203j \321\202n \327\330\"\262\331!\211\326U\203~ \321\202\202 \327\332\"\262&\210\333r\301\242q\210\f)\"\207\306\334\"\203\372 \211\211G\317U\203\252 \211A\262\242\202\261 \311\312\313GD\"@r\301\242q\210\f\335\"\336\"\211\204\311 \337\340!\210\211\317H\211\326H
>\204\333 \311\341\342D\"\210\211\211\310I\266-\343\313\344\"I\210\345\"\210\346\"\266\203)\207\306\347\"\203\204\211\211G\350U\203\211A\262\242\202\311\312\313GD\"\211A\262\242@r\301\242q\210\f\335\"\336\"\211\317H\211\326H
>\204A\311\341\342D\"\210\211\317H\262\203g\211\317H\211\326H
>\204[\311\341\342D\"\210\211\211\317\351 \"I\266-\343\351 \"\"I\210\345\"\210\346\"\266\203)\207\352\353\354#\205\215\313\207" vconcat vector [ert--results-ewoc cl-struct-ert--ewoc-entry-tags eql run-started 1 signal wrong-number-of-arguments nil ert--setup-results-buffer pop-to-buffer run-ended 2 "%sRan %s tests, %s results were as expected%s%s" "" "Aborted: " ert-stats-total ert-stats-completed-expected ert-stats-completed-unexpected 0 format ", %s unexpected" ert-stats-skipped ", %s skipped" ert--results-update-stats-display test-started ert--stats-test-pos ewoc-nth cl--assertion-failed node wrong-type-argument ert--ewoc-entry ert-char-for-test-result t ert--results-update-stats-display-maybe ewoc-invalidate test-ended 3 ert-test-result-expected-p error "cl-ecase failed: %s, %s" (run-started run-ended test-started test-ended) ert--results-progress-bar-string] 16 "\n\n(fn EVENT-TYPE &rest EVENT-ARGS)" ert-run-tests] 17 (#$ . 138065) (byte-code "\203 @\202\n \302\303\304\204 \305\202 \306\307\" \310\311\211\300\311&!\262\311D\207" [ert--selector-history obarray "t" read completing-read "Run tests: " format "Run tests (default %s): " ert-test-boundp nil] 11)])
(defalias 'ert 'ert-run-tests-interactively)
#@165 Hook run after entering ERT-View mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar ert-simple-view-mode-hook nil (#$ . 140695))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp ert-simple-view-mode-map put definition-name ert-simple-view-mode] 4)
(defvar ert-simple-view-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [ert-simple-view-mode-map variable-documentation put purecopy "Keymap for `ert-simple-view-mode'." boundp ert-simple-view-mode-syntax-table definition-name ert-simple-view-mode] 5)
(defvar ert-simple-view-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [ert-simple-view-mode-syntax-table variable-documentation put purecopy "Syntax table for `ert-simple-view-mode'." ert-simple-view-mode-abbrev-table definition-name ert-simple-view-mode] 5)
(defvar ert-simple-view-mode-abbrev-table (progn (define-abbrev-table 'ert-simple-view-mode-abbrev-table nil) ert-simple-view-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [ert-simple-view-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `ert-simple-view-mode'." ert-simple-view-mode derived-mode-parent special-mode] 5)
#@250 Major mode for viewing auxiliary information in ERT.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `ert-simple-view-mode-hook', as the final step
during initialization.
\{ert-simple-view-mode-map}
(defalias 'ert-simple-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325C#\210\327 !\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name ert-simple-view-mode-map ert-simple-view-mode-syntax-table ert-simple-view-mode-abbrev-table make-local-variable t special-mode ert-simple-view-mode "ERT-View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks ert-simple-view-mode-hook local-abbrev-table] 5 (#$ . 142113) nil])
#@168 Hook run after entering ERT-Results mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar ert-results-mode-hook nil (#$ . 143146))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp ert-results-mode-map put definition-name ert-results-mode] 4)
(defvar ert-results-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [ert-results-mode-map variable-documentation put purecopy "Keymap for `ert-results-mode'." boundp ert-results-mode-syntax-table definition-name ert-results-mode] 5)
(defvar ert-results-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [ert-results-mode-syntax-table variable-documentation put purecopy "Syntax table for `ert-results-mode'." ert-results-mode-abbrev-table definition-name ert-results-mode] 5)
(defvar ert-results-mode-abbrev-table (progn (define-abbrev-table 'ert-results-mode-abbrev-table nil) ert-results-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [ert-results-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `ert-results-mode'." ert-results-mode derived-mode-parent special-mode] 5)
#@238 Major mode for viewing results of ERT test runs.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `ert-results-mode-hook', as the final step
during initialization.
\{ert-results-mode-map}
(defalias 'ert-results-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325C#\210\327 !\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name ert-results-mode-map ert-results-mode-syntax-table ert-results-mode-abbrev-table make-local-variable t special-mode ert-results-mode "ERT-Results" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks ert-results-mode-hook local-abbrev-table] 5 (#$ . 144491) nil])
(byte-code "\301\302\211\211:\203& @\262\211A\262\242\262\211@\262\303#\210A\262\202 \266\207" [ert-results-mode-map ((" " forward-button) ([backtab] backward-button) ("j" ert-results-jump-between-summary-and-result) ("L" ert-results-toggle-printer-limits-for-test-at-point) ("n" ert-results-next-test) ("p" ert-results-previous-test) ("R" ert-results-rerun-all-tests) ("r" ert-results-rerun-test-at-point) ("d" ert-results-rerun-test-at-point-debugging-errors) ("." ert-results-find-test-at-point-other-window) ("b" ert-results-pop-to-backtrace-for-test-at-point) ("m" ert-results-pop-to-messages-for-test-at-point) ("l" ert-results-pop-to-should-forms-for-test-at-point) ("h" ert-results-describe-test-at-point) ("D" ert-delete-test) ("T" ert-results-pop-to-timings)) nil define-key] 8)
#@30 Menu for `ert-results-mode'.
(defvar ert-results-mode-menu nil (#$ . 146293))
(byte-code "\301\302\303\304$\210\305\306\307\310\311\312%\210\305\313\307\314\311\315%\210\305\316\307\317\311\320%\207" [ert-results-mode-map easy-menu-do-define ert-results-mode-menu "Menu for `ert-results-mode'." ("ERT Results" ["Re-run all tests" ert-results-rerun-all-tests] "--" ["Re-run test" ert-results-rerun-test-at-point] ["Debug test" ert-results-rerun-test-at-point-debugging-errors] ["Show test definition" ert-results-find-test-at-point-other-window] "--" ["Show backtrace" ert-results-pop-to-backtrace-for-test-at-point] ["Show messages" ert-results-pop-to-messages-for-test-at-point] ["Show `should' forms" ert-results-pop-to-should-forms-for-test-at-point] ["Describe test" ert-results-describe-test-at-point] "--" ["Delete test" ert-delete-test] "--" ["Show execution time of each test" ert-results-pop-to-timings]) define-button-type ert--results-progress-bar-button action ert--results-progress-bar-button-action help-echo "mouse-2, RET: Reveal test result" ert--test-name-button ert--test-name-button-action "mouse-2, RET: Find test definition" ert--results-expand-collapse-button ert--results-expand-collapse-button-action "mouse-2, RET: Expand/collapse test result"] 6)
#@107 If point is on a valid ewoc node, return it; return nil otherwise.
To be used in the ERT results buffer.
(defalias 'ert--results-test-node-or-null-at-point #[0 "\302!\211\205, `\303!Y\205, \211\304H\211\305H >\204\" \306\307\310D\"\210\211\304H\262?\205, \211\207" [ert--results-ewoc cl-struct-ert--ewoc-entry-tags ewoc-locate ewoc-location 2 0 signal wrong-type-argument ert--ewoc-entry] 7 (#$ . 147574)])
#@112 If point is on a valid ewoc node, return it; signal an error otherwise.
To be used in the ERT results buffer.
(defalias 'ert--results-test-node-at-point #[0 "\300 \206 \301\302!\207" [ert--results-test-node-or-null-at-point error "No test at point"] 2 (#$ . 147994)])
#@69 Move point to the next test.
To be used in the ERT results buffer.
(defalias 'ert-results-next-test #[0 "\301\302!\303\304#\207" [ert--results-ewoc ert--results-move ewoc-locate ewoc-next "No tests below"] 4 (#$ . 148270) nil])
#@73 Move point to the previous test.
To be used in the ERT results buffer.
(defalias 'ert-results-previous-test #[0 "\301\302!\303\304#\207" [ert--results-ewoc ert--results-move ewoc-locate ewoc-prev "No tests above"] 4 (#$ . 148506) nil])
#@271 Move point from NODE to the previous or next node.
EWOC-FN specifies the direction and should be either `ewoc-prev'
or `ewoc-next'. If there are no more nodes in that direction, a
user-error is signaled with the message ERROR-MESSAGE.
(fn NODE EWOC-FN ERROR-MESSAGE)
(defalias 'ert--results-move #[771 "\3022: \"\262\204 \303\304\"\210\305H\211\306H >\204% \307\310\311D\"\210\211\305H\262\204 \312!b\210\313\302\314\"\210\202 \207" [ert--results-ewoc cl-struct-ert--ewoc-entry-tags --cl-block-nil-- user-error "%s" 2 0 signal wrong-type-argument ert--ewoc-entry ewoc-location throw nil] 8 (#$ . 148751)])
#@66 Expand or collapse the test node BUTTON belongs to.
(fn BUTTON)
(defalias 'ert--results-expand-collapse-button-action #[257 "\212\302 b\210\303 )\211\304H\211\305H >\204 \306\307\310D\"\210\211\211\311\305H >\204. \306\307\310D\"\210\311H?I\266\312\"\207" [ert--results-ewoc cl-struct-ert--ewoc-entry-tags ert--button-action-position ert--results-test-node-at-point 2 0 signal wrong-type-argument ert--ewoc-entry 3 ewoc-invalidate] 11 (#$ . 149379)])
#@100 Find the definition of the test at point in another window.
To be used in the ERT results buffer.
(defalias 'ert-results-find-test-at-point-other-window #[0 "\300 \211\204\n \301\302!\210\303!\207" [ert-test-at-point error "No test at point" ert-find-test-other-window] 3 (#$ . 149848) nil])
#@84 Find the definition of the test BUTTON belongs to, in another window.
(fn BUTTON)
(defalias 'ert--test-name-button-action #[257 "\300\301\"\302!\207" [button-get ert-test-name ert-find-test-other-window] 4 (#$ . 150148)])
#@85 Return the position of NODE in EWOC, or nil if NODE is not in EWOC.
(fn EWOC NODE)
(defalias 'ert--ewoc-position #[514 "\3002. \301\302\303\211\203 \304\301\"\202 \305\"\262\306\"\203$ \307\300\"\210T\262\302\262\202 \207" [--cl-block-nil-- 0 nil t ewoc-nth ewoc-next eql throw] 8 (#$ . 150379)])
#@228 Jump back and forth between the test run summary and individual test results.
From an ewoc node, jumps to the character that represents the
same test in the progress bar, and vice versa.
To be used in the ERT results buffer.
(defalias 'ert-results-jump-between-summary-and-result #[0 " \303 \203 \304 \305\"\\b\266\202\202j \211`X\203h `\306\307!!W\203h \310`Z\"\211\311H\211\312H\n>\204> \313\314\315D\"\210\211\311H\203_ \211\312H\n>\204S \313\314\315D\"\210\211\211\311\316I\266\317\"\210\320\"\266\202\202j \211b\207" [ert--results-ewoc ert--results-progress-bar-button-begin cl-struct-ert--ewoc-entry-tags ert--results-test-node-or-null-at-point ert--results-test-node-at-point ert--ewoc-position button-end button-at ewoc-nth 2 0 signal wrong-type-argument ert--ewoc-entry nil ewoc-invalidate ewoc-goto-node] 8 (#$ . 150697) nil])
#@67 Return the name of the test at point as a symbol, or nil if none.
(defalias 'ert-test-at-point #[0 "\302\303\"\203$ \304 \211\205 \211\305H >\204 \306\307\310D\"\210\211\311H\262\2063 \312\313!\314!\315!\2051 \211\266\202\207" [major-mode cl-struct-ert-test-tags eql ert-results-mode ert--results-test-at-point-no-redefinition 0 signal wrong-type-argument ert-test 1 thing-at-point symbol intern-soft ert-test-boundp] 5 (#$ . 151558)])
#@74 Return the test at point, or nil.
To be used in the ERT results buffer.
(defalias 'ert--results-test-at-point-no-redefinition #[0 "\305\306\"\204 \307\310!\210\311 \203* \312 \211\313H\211\314H >\204$ \315\316\317D\"\210\211\320H\262\207\n\211`X\205T `\321\322!!W\205T `Z \314H\f>\204M \315\316\323 D\"\210 \313HH\262\207" [major-mode cl-struct-ert--ewoc-entry-tags ert--results-progress-bar-button-begin ert--results-stats cl-struct-ert--stats-tags eql ert-results-mode cl--assertion-failed (eql major-mode 'ert-results-mode) ert--results-test-node-or-null-at-point ert--results-test-node-at-point 2 0 signal wrong-type-argument ert--ewoc-entry 1 button-end button-at ert--stats] 6 (#$ . 152007)])
#@599 Look up the test at point, and check whether it has been redefined.
To be used in the ERT results buffer.
Returns a list of two elements: the test (or nil) and a symbol
specifying whether the test has been redefined.
If a new test has been defined with the same name as the test at
point, replaces the test at point with the new test, and returns
the new test and the symbol `redefined'.
If the test has been deleted, returns the old test and the symbol
`deleted'.
If the test is still current, returns the test and the symbol nil.
If there is no test at point, returns a list with two nils.
(defalias 'ert--results-test-at-point-allow-redefinition #[0 "\302 \211\204\n \303\202d \211\304H>\204 \305\306\307D\"\210\211\310H\204% \211\311B\202d \211\304H>\2044 \305\306\307D\"\210\211\310H\312!\205@ \313!\314\"\203M \315B\202b \211\204W \316B\202b \317\320 \"\"\210\211\321B\266\202\207" [cl-struct-ert-test-tags ert--results-stats ert--results-test-at-point-no-redefinition (nil nil) 0 signal wrong-type-argument ert-test 1 (nil) ert-test-boundp ert-get-test eql (nil) (deleted) ert--results-update-after-test-redefinition ert--stats-test-pos (redefined)] 7 (#$ . 152722)])
#@158 Update results buffer after the test at pos POS has been redefined.
Also updates the stats object. NEW-TEST is the new test
definition.
(fn POS NEW-TEST)
(defalias 'ert--results-update-after-test-redefinition #[514 " \304\"\211\305H\306\307$\210\211\310H\n>\204! \311\312\313D\"\210\211\211\314I\266 \315\307\316\"I\266\317\"\266\307\207" [ert--results-stats ert--results-ewoc cl-struct-ert--ewoc-entry-tags ert--results-progress-bar-string ewoc-nth 2 ert--stats-set-test-and-result nil 0 signal wrong-type-argument ert--ewoc-entry 1 ert-char-for-test-result t ewoc-invalidate] 13 (#$ . 153923)])
#@65 The buffer position where the last button action was triggered.
(defalias 'ert--button-action-position #[0 "\250\203 `\207\301!\203 \302\303!!\207\304\305!\210\305\207" [last-command-event eventp posn-point event-start cl--assertion-failed nil] 3 (#$ . 154549)])
#@91 Jump to details for the test represented by the character clicked in BUTTON.
(fn BUTTON)
(defalias 'ert--results-progress-bar-button-action #[257 "\300 b\210\301 \207" [ert--button-action-position ert-results-jump-between-summary-and-result] 2 (#$ . 154823)])
#@83 Re-run all tests, using the same selector.
To be used in the ERT results buffer.
(defalias 'ert-results-rerun-all-tests #[0 "\303\304\"\204 \305\306!\210 \307H\n>\204 \310\311\312 D\"\210 \313H\314\315 \"\207" [major-mode ert--results-stats cl-struct-ert--stats-tags eql ert-results-mode cl--assertion-failed (eql major-mode 'ert-results-mode) 0 signal wrong-type-argument ert--stats 1 ert-run-tests-interactively buffer-name] 4 (#$ . 155090) nil])
#@66 Re-run the test at point.
To be used in the ERT results buffer.
(defalias 'ert-results-rerun-test-at-point #[0 "\303 \211G\304U\203 \211A\262\242\202 \305\306\307GD\"@\204# \310\311!\210\312\313\314\315\"\2031 \316\202P \317\320\"\203< \321\202P \317\322\"\203G \323\202P \310\324\325#\205P \307\326H >\204` \305\327\330D\"\210\331H#`\332\326\333\334\335!\336\"\331$\216\332\326\337\334\335 #\340\"\341$\216\342\343\"\210\344\n#*\262\266\202\207" [ert--results-stats cl-struct-ert-test-tags ert--results-listener ert--results-test-at-point-allow-redefinition 2 signal wrong-number-of-arguments nil error "No test at point" format "Running %stest %S" memql (nil) "" eql redefined "new definition of " deleted "deleted " "cl-ecase failed: %s, %s" (nil redefined deleted) 0 wrong-type-argument ert-test 1 make-byte-code "\300b\207" vconcat vector [] "\305 \301\"\210\306\307\302\300\310H\f>\204 \311\312\313\300D\"\210\300\314H\315\316\300\"\"\262#\207" [ert--results-ewoc cl-struct-ert-test-tags ert--results-update-stats-display message "%s...%s" 0 signal wrong-type-argument ert-test 4 ert-string-for-test-result ert-test-result-expected-p] 9 message "%s..." ert-run-or-rerun-test] 14 (#$ . 155550) nil])
#@103 Re-run the test at point with `ert-debug-on-error' bound to t.
To be used in the ERT results buffer.
(defalias 'ert-results-rerun-test-at-point-debugging-errors #[0 "\301\302 )\207" [ert-debug-on-error t ert-results-rerun-test-at-point] 1 (#$ . 156794) nil])
#@85 Display the backtrace for the test at point.
To be used in the ERT results buffer.
(defalias 'ert-results-pop-to-backtrace-for-test-at-point #[0 "\306 \307\"\310H >\204 \311\312\313D\"\210\314HH\315!\2036 \211G\316Y\2036 \211\310H\n>\2036 \317\320!\202\260 \315!\203\247 \211G\321Y\203\247 \211\310H >\203\247 \211\310H >\204Z \311\312\322D\"\210\211\314H\323\324!\325!\210\326 \327 \210\330 \210\331 \210\332\333!\210\326\334!\210\335 \210eb\210\336\337!c\210\340\310H&>\204\227 \311\312\341 D\"\210\342H!\210\336\343!c)\266\202\202\260 \317\344\345#\205\260 \333\207" [ert--results-stats cl-struct-ert--stats-tags cl-struct-ert-test-passed-tags cl-struct-ert-test-result-with-condition-tags inhibit-read-only truncate-lines ert--results-test-at-point-no-redefinition ert--stats-test-pos 0 signal wrong-type-argument ert--stats 4 vectorp 3 error "Test passed, no backtrace available" 6 ert-test-result-with-condition get-buffer-create "*ERT Backtrace*" pop-to-buffer t buffer-disable-undo erase-buffer ert-simple-view-mode set-buffer-multibyte nil ert--print-backtrace debugger-make-xrefs substitute-command-keys "Backtrace for test `" ert-insert-test-name-button ert-test 1 "':\n" "cl-etypecase failed: %s, %s" (ert-test-passed ert-test-result-with-condition) cl-struct-ert-test-tags] 11 (#$ . 157061) nil])
#@118 Display the part of the *Messages* buffer generated during the test at point.
To be used in the ERT results buffer.
(defalias 'ert-results-pop-to-messages-for-test-at-point #[0 "\305 \306\"\307H >\204 \310\311\312D\"\210\313HH\314\315!\316!\210\317\320 \210\321 \210\322 \210\307H >\204< \310\311\323D\"\210\324Hc\210eb\210\325\326!c\210\327\307H\f>\204Z \310\311\330D\"\210\324H!\210\325\331!c)\262\207" [ert--results-stats cl-struct-ert--stats-tags inhibit-read-only cl-struct-ert-test-result-tags cl-struct-ert-test-tags ert--results-test-at-point-no-redefinition ert--stats-test-pos 0 signal wrong-type-argument ert--stats 4 get-buffer-create "*ERT Messages*" pop-to-buffer t buffer-disable-undo erase-buffer ert-simple-view-mode ert-test-result 1 substitute-command-keys "Messages for test `" ert-insert-test-name-button ert-test "':\n"] 10 (#$ . 158400) nil])
#@110 Display the list of `should' forms executed during the test at point.
To be used in the ERT results buffer.
(defalias 'ert-results-pop-to-should-forms-for-test-at-point #[0 "\305 \306\"\307H >\204 \310\311\312D\"\210\313HH\314\315!\316!\210\317\320 \210\321 \210\322 \210\307H >\204< \310\311\323D\"\210\324H\204H \325c\210\202\206 \307H >\204W \310\311\323D\"\210\324H\326\327:\203\204 @\262\330c\210\331\332\"c\210`\333!\210\334`\"\266A\262\211T\262\202\\ \266eb\210\335\336!c\210\337\307H\f>\204\237 \310\311\340D\"\210\327H!\210\335\341!c\210\330c\210\342c\210\327y)\262\207" [ert--results-stats cl-struct-ert--stats-tags inhibit-read-only cl-struct-ert-test-result-tags cl-struct-ert-test-tags ert--results-test-at-point-no-redefinition ert--stats-test-pos 0 signal wrong-type-argument ert--stats 4 get-buffer-create "*ERT list of should forms*" pop-to-buffer t buffer-disable-undo erase-buffer ert-simple-view-mode ert-test-result 2 "\n(No should forms during this test.)\n" nil 1 "\n" format "%s: " ert--pp-with-indentation-and-newline ert--make-xrefs-region substitute-command-keys "`should' forms executed during test `" ert-insert-test-name-button ert-test "':\n" "(Values are shallow copies and may have looked different during the test if they\nhave been modified destructively.)\n"] 12 (#$ . 159292) nil])
#@105 Toggle how much of the condition to print for the test at point.
To be used in the ERT results buffer.
(defalias 'ert-results-toggle-printer-limits-for-test-at-point #[0 "\302 \211\303H\211\304H >\204 \305\306\307D\"\210\211\211\310\304H >\204( \305\306\307D\"\210\310H?I\266\311\"\207" [ert--results-ewoc cl-struct-ert--ewoc-entry-tags ert--results-test-node-at-point 2 0 signal wrong-type-argument ert--ewoc-entry 4 ewoc-invalidate] 10 (#$ . 160651) nil])
#@79 Display test timings for the last run.
To be used in the ERT results buffer.
(defalias 'ert-results-pop-to-timings #[0 "\304\305!\306H >\204 \307\310\311D\"\210\312H\313\314\306H >\204( \307\310\311D\"\210\315H\313\314\306H >\204> \307\310\311\nD\"\210\316H\313\314\211T\211\262\n\nGW\203\215 H\262T\211\262GW\203\215 H\262T\211\262GW\203\215 H\262\317\320\"!DB\262\202E \211\237\266\212\321\322\"\262\323!\210\324\325 \210\326 \210\327 \210\211\204\260 \330c\210\202\331\332\333\334\335$c\210\211\314\211\211\211\336\324:\203@\262\211A\262\242\262@\262\211\203\336 \202\341 \\\262\331\337$c\210\340\306H >\204\377 \307\310\341 D\"\210\336H!\210\342c\210A\262T\262\314\262\202\277 \266eb\210\343c\210\336y)\207" [ert--results-stats cl-struct-ert--stats-tags inhibit-read-only cl-struct-ert-test-tags get-buffer-create "*ERT timings*" 0 signal wrong-type-argument ert--stats 2 -1 nil 5 6 float-time subtract-time sort #[514 "A@A@V\207" [] 4 "\n\n(fn A B)"] pop-to-buffer t buffer-disable-undo erase-buffer ert-simple-view-mode "(No data)\n" format "%-3s %8s %8s\n" "" "time" "cumul" 1 "%3s: %8.3f %8.3f " ert-insert-test-name-button ert-test "\n" "Tests by run time (seconds):\n\n"] 17 (#$ . 161126) nil])
#@97 Display the documentation for TEST-OR-TEST-NAME (a symbol or ert-test).
(fn TEST-OR-TEST-NAME)
(defalias 'ert-describe-test #[257 "\306W\203\n \307\310!\210\311\2119\203 \262\312!\262\202Q \313!\203K G\314Y\203K \315H >\203K \315H >\204@ \316\317\320D\"\210\321H\262\262\202Q \307\322\323#\210\324\325D\326\327!\"\210\212\n\311\211\223\210\330 B\331\fB \332 \333 \334!\211 9\311\211r\333 q\210\203\206 \335\336\"\202\207 \337c\210\340c\210\205\225 \341\342\"\211\203\263 \343\344\345!\"c\210\212\346\347\350!\311\351#\210\352\321\353 $\210)\354c\210\355e`\"\210\356c\210\357!\203\320 \360\312!\"\204\337 `\361\362\261\210\355`\"\266\356c\210\347\315H >\204\361 \316\317\320 D\"\210\363H\206\371 \364!\365\261\262)\262rq\210\366\311\"\262)\367\370!\203\370\"\202\211)\266\204+\207" [emacs-major-version cl-struct-ert-test-tags help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame 24 error "Requires Emacs 24" nil ert-get-test vectorp 7 0 signal wrong-type-argument ert-test 1 "cl-etypecase failed: %s, %s" (symbol ert-test) help-setup-xref ert-describe-test called-interactively-p interactive help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup format "%S" "<anonymous test>" " is a test" symbol-file ert-deftest format-message " defined in `%s'" file-name-nondirectory re-search-backward substitute-command-keys "`\\([^`']+\\)'" t help-xref-button help-function-def "." fill-region-as-paragraph "\n\n" ert-test-boundp eql "Note: This test has been redefined or deleted, " "this documentation refers to an old definition." 2 "It is not documented." "\n" temp-buffer-window-show functionp help-window-setup standard-output] 13 (#$ . 162424) (byte-code "\300\301!C\207" [ert-read-test-name-at-point "Describe test"] 2)])
#@88 Display the documentation of the test at point.
To be used in the ERT results buffer.
(defalias 'ert-results-describe-test-at-point #[0 "\300\301 !\207" [ert-describe-test ert--results-test-at-point-no-redefinition] 2 (#$ . 164291) nil])
(byte-code "\300\301\302\"\210\300\303\304\"\210\305\306\307\"\207" [add-to-list find-function-regexp-alist (ert-deftest . ert--find-test-regexp) minor-mode-alist (ert--current-run-stats (:eval (ert--tests-running-mode-line-indicator))) add-hook emacs-lisp-mode-hook ert--activate-font-lock-keywords] 3)
#@61 Unload function to undo the side-effects of loading ert.el.
(defalias 'ert--unload-function #[0 "\300\301\302\303\304$\210\300\305\306\303\304$\210\300\307\310\"\210\311\207" [ert--remove-from-list find-function-regexp-alist ert-deftest :key car minor-mode-alist ert--current-run-stats emacs-lisp-mode-hook ert--activate-font-lock-keywords nil] 5 (#$ . 164840)])
(defvar ert-unload-hook nil)
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook ert-unload-hook ert--unload-function provide ert] 3)
Kontol Shell Bypass