;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303!\210\304\303\305\306\307\310\311\312\313\314&	\210\315\316\317\320\321DD\322\307\303\323\324&\210\315\325\317\320\326DD\327\307\303\323\330&\210\315\331\317\320\332DD\333\307\303\323\334&\210\315\335\317\320\336DD\337\307\303\323\340&\210\315\341\317\320\342DD\343\307\303\323\344&\210\315\345\317\320\346DD\347\307\303\323\350&\210\315\351\317\320\352DD\353\307\303\323\354&\210\355\356\357\360\307\303%\210\355\361\362\363\307\303%\207" [require edebug provide testcover custom-declare-group nil "Code-coverage tester." :group lisp :prefix "testcover-" :version "21.1" custom-declare-variable testcover-constants funcall function #[0 "\300\207" [(nil t emacs-build-time emacs-version emacs-major-version emacs-minor-version)] 1 #1=""] "Variables whose values never change.\nNo brown splotch is shown for these.  This list is quite\nincomplete!" :type (repeat variable) testcover-1value-functions #[0 "\300\207" [(backward-char barf-if-buffer-read-only beginning-of-line buffer-disable-undo buffer-enable-undo current-global-map deactivate-mark delete-backward-char delete-char delete-region ding forward-char function* insert insert-and-inherit kill-all-local-variables kill-line kill-paragraph kill-region kill-sexp minibuffer-complete-and-exit narrow-to-region next-line push-mark put-text-property run-hooks set-match-data signal substitute-key-definition suppress-keymap undo use-local-map while widen yank)] 1 #1#] "Functions that always return the same value, according to `equal'.\nNo brown splotch is shown for these.  This list is quite\nincomplete!  Notes: Nobody ever changes the current global map." (repeat symbol) testcover-noreturn-functions #[0 "\300\207" [(error noreturn throw signal)] 1 #1#] "Subset of `testcover-1value-functions' -- these never return.\nWe mark them as having returned nil just before calling them." (repeat symbol) testcover-compose-functions #[0 "\300\207" [(+ - * / = append length list make-keymap make-sparse-keymap message propertize replace-regexp-in-string run-with-idle-timer set-buffer-modified-p)] 1 #1#] "Functions that are 1-valued if all their args are either constants or\ncalls to one of the `testcover-1value-functions', so if that's true then no\nbrown splotch is shown for these.  This list is quite incomplete!  Most\nside-effect-free functions should be here." (repeat symbol) testcover-progn-functions #[0 "\300\207" [(define-key fset function goto-char mapc overlay-put progn save-current-buffer save-excursion save-match-data save-restriction save-selected-window save-window-excursion set set-default set-marker-insertion-type setq setq-default with-current-buffer with-output-to-temp-buffer with-syntax-table with-temp-buffer with-temp-file with-temp-message with-timeout)] 1 #1#] "Functions whose return value is the same as their last argument.\nNo brown splotch is shown for these if the last argument is a\nconstant or a call to one of the `testcover-1value-functions'.\nThis list is probably incomplete!" (repeat symbol) testcover-prog1-functions #[0 "\300\207" [(prog1 unwind-protect)] 1 #1#] "Functions whose return value is the same as their first argument.\nNo brown splotch is shown for these if the first argument is a\nconstant or a call to one of the `testcover-1value-functions'." (repeat symbol) testcover-potentially-1value-functions #[0 "\300\207" [(add-hook and beep or remove-hook unless when)] 1 #1#] "Functions that are potentially 1-valued.\nNo brown splotch if actually 1-valued, no error if actually\nmulti-valued." (repeat symbol) custom-declare-face testcover-nohits ((t (:background "DeepPink2"))) "Face for forms that had no hits during coverage test." testcover-1value ((t (:background "Wheat2"))) "Face for forms that always produced the same value during coverage test."] 10)
#@81 Symbols declared with defconst in the last file processed by `testcover-start'.
(defvar testcover-module-constants nil (#$ . 3898))
#@131 Symbols declared with defun in the last file processed by
`testcover-start', whose functions should always return the same value.
(defvar testcover-module-1value-functions nil (#$ . 4037))
#@130 Symbols declared with defun in the last file processed by
`testcover-start', whose functions might always return the same value.
(defvar testcover-module-potentially-1value-functions nil (#$ . 4233))
#@60 Locally bound to coverage vector for function in progress.
(defvar testcover-vector nil (#$ . 4439))
#@191 Use Edebug to instrument for coverage all macros and functions in FILENAME.
If BYTE-COMPILE is non-nil, byte compile each function after instrumenting.

(fn FILENAME &optional BYTE-COMPILE)
(defalias 'testcover-start #[513 "\306!\307\211\307\211\310\311\312\313
!\210+\210\211\205@\314!\211\205>\211@\315
@!\2037\316\317@\"\210\320
@!\210
A\266\202\202\262
\207" [edebug-form-data testcover-module-constants testcover-module-1value-functions testcover-module-potentially-1value-functions edebug-new-definition-function edebug-after-instrumentation-function find-file nil t testcover-after-instrumentation testcover-init-definition eval-buffer reverse fboundp message "Compiling %s..." byte-compile edebug-all-defs] 8 (#$ . 4547) "fStart covering file: "])
#@41 Start coverage on function under point.
(defalias 'testcover-this-defun #[0 "\303\304\305\306\307!+\207" [edebug-new-definition-function edebug-after-instrumentation-function edebug-all-defs t testcover-after-instrumentation testcover-init-definition eval-defun nil] 3 (#$ . 5325) nil])
#@82 Turn off instrumentation of all macros and functions in FILENAME.

(fn FILENAME)
(defalias 'testcover-end #[257 "\300
!\301
!\207" [find-file-noselect eval-buffer] 4 (#$ . 5621) "fStop covering file: "])
#@44 Analyze FORM for code coverage.

(fn FORM)
(defalias 'testcover-after-instrumentation #[257 "\300
!\210\207" [testcover-analyze-coverage] 3 (#$ . 5831)])
#@44 Mark SYM as under test coverage.

(fn SYM)
(defalias 'testcover-init-definition #[257 "\300\301\"\210\302
\303\304#\207" [message "Testcover: %s" put edebug-behavior testcover] 5 (#$ . 5991)])
#@179 Begin execution of a function under coverage testing.
Bind `testcover-vector' to the code-coverage vector for FUNC and
return the result of evaluating BODY.

(fn FUNC ARGS BODY)
(defalias 'testcover-enter #[771 "\301N\211 )\207" [testcover-vector edebug-coverage] 5 (#$ . 6192)])
#@133 Update code coverage before a form is evaluated.
BEFORE-INDEX is the form's index into the code-coverage vector.

(fn BEFORE-INDEX)
(defalias 'testcover-before #[257 "
H\211\242\301=\205\211A
\302I\262
\207" [testcover-vector noreturn edebug-ok-coverage] 6 (#$ . 6481)])
#@177 Update code coverage with the result of a form's evaluation.
AFTER-INDEX is the form's index into the code-coverage
vector.  Return VALUE.

(fn BEFORE-INDEX AFTER-INDEX VALUE)
(defalias 'testcover-after #[771 "H\211\301\267\202$\302!I\266\207\303I\266\207\302!BI\266\207\211\242\304=\203D\30517\211A\2320\2029\210\306\204D\307\310#\266\207\3111O

\2320\202Q\210\312\204Y\303I\210\210\207" [testcover-vector #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (edebug-unknown 9 maybe 18 testcover-1value 25)) testcover--copy-object edebug-ok-coverage testcover-1value (circular-list) t error "Value of form expected to be constant does vary, from %s to %s" (circular-list) nil] 9 (#$ . 6763)])
(byte-code "\301\236\204\n\302B\301\207" [edebug-behavior-alist testcover (testcover testcover-enter testcover-before testcover-after)] 2)
#@251 Make a copy of OBJ.
If OBJ is a cons cell, copy both its car and its cdr.
Contrast to `copy-tree' which does the same but fails on circular
structures, and `copy-sequence', which copies only along the
cdrs.  Copy vectors as well as conses.

(fn OBJ)
(defalias 'testcover--copy-object #[257 "\300\301\302\"\303\304#\207" [make-hash-table :test eq testcover--copy-object1 t] 6 (#$ . 7667)])
#@235 Make a copy of OBJ, using a HASH-TABLE of objects already copied.
If OBJ is a cons cell, this recursively copies its car and
iteratively copies its cdr.  When VECP is non-nil, copy
vectors as well as conses.

(fn OBJ VECP HASH-TABLE)
(defalias 'testcover--copy-object1 #[771 ":\204
\203\300!\204\207\301\302#\211\204\231:\203o\302\211C\262\262
\303#\210\211\304@#\240\210
A\262
:\204O\211\304#\241\266\207\301\302#\203b\211\301\302#\241\266\207\211\302C\241\211\262\204(\266\207\305!\262
\303#\210\211G\306\211W\203\227
\304H#I\210\211T\262
\202}\266\207" [vectorp gethash nil puthash testcover--copy-object1 copy-sequence 0] 12 (#$ . 8065)])
#@625 Mark one DEF (a function or macro symbol) to highlight its contained forms
that did not get completely tested during coverage tests.
  A marking with the face `testcover-nohits' (default = red) indicates that the
form was never evaluated.  A marking using the `testcover-1value' face
(default = tan) indicates that the form always evaluated to the same value.
  The forms throw, error, and signal are not marked.  They do not return and
would always get a red mark.  Some forms that always return the same
value (e.g., setq of a constant), always get a tan mark that can't be
eliminated by adding more test cases.

(fn DEF)
(defalias 'testcover-mark #[257 "\211\300N\211@\3018\211G\302 \303N\304\211\203\203\204$\305\306\n\"\210\307V\205\213\310!q\210\311\312\313	\211\n\nSH\\T\"\"\210\307V\203\210S\262H\262\314=\204A\242\315>\204AH\\\211\262\203A\316
S\"\262\317\320\n\321>\203\202\322\202\203\323#\210\202A\324!\207" [edebug 2 buffer-modified-p edebug-coverage nil error "Missing edebug data for function %s" 0 marker-buffer mapc delete-overlay overlays-in edebug-ok-coverage (testcover-1value maybe noreturn) make-overlay overlay-put face (edebug-unknown maybe testcover-1value) testcover-nohits testcover-1value set-buffer-modified-p] 16 (#$ . 8774)])
#@145 Mark all forms in BUFFER that did not get completely tested during
coverage tests.  This function creates many overlays.

(fn &optional BUFFER)
(defalias 'testcover-mark-all #[256 "\211\203\301
!\210\302b\210\211\205%\211@\211@\303N\203\304
@!\210
A\266\202\202\f\207" [edebug-form-data switch-to-buffer 1 edebug testcover-mark] 5 (#$ . 10086) "bMark forms in buffer: "])
#@49 Remove all overlays from FILENAME.

(fn BUFFER)
(defalias 'testcover-unmark-all #[257 "\3001\211q\210\301\302\303\304\305 \"\"0\207\210\306\207" [(error) mapc delete-overlay overlays-in 1 buffer-size nil] 6 (#$ . 10471) "bUnmark forms in buffer: "])
#@63 Move point to next line in current buffer that has a splotch.
(defalias 'testcover-next-mark #[0 "\300`!b\210\301\207" [next-overlay-change nil] 2 (#$ . 10729) nil])
#@252 Analyze FORM and initialize coverage vectors for definitions found within.
Return 1value, maybe or nil depending on if the form is determined
to return only a single value, potentially return only a single value,
or return multiple values.

(fn FORM)
(defalias 'testcover-analyze-coverage #[257 "\304
:\203\372
\242\211\305\267\202\356\243\211:\203l
\211\242\211:\203`
\211\242\211\306=\203R

\243\211:\203D
\211\242
\243\211\2043
\243\211:\203$
\211\243\211:\203
\211\242\211:\203
\211\242\211\307=\203\367
\243\211:\203\350\211\242\211:\203\331\211\242\211\310=\203\312
\243\211:\203\273\211\242\211\204\254
\243\243\211\204\233	\243\211\204\214
\311N\312!)\207\313!\203\225\314\207!\207\313!\203\246\266\314\207!\207\313!\203\265\314\207!\207\313!\203\304\314\207!\207\313!\203\323\314\207!\207\313!\203\342\314\207
!\207\313!\203\361\314\207\f!\207\313
!\203
\314\207
!\207\313\f!\203
\314\207\n\f!\207\313!\203
\314\207	!\207\313\n!\203-
\314\207\n!\207\313	!\203>
\266\314\207	!\207\313!\203M
\314\207!\207\313!\203[
\314\207!\207\313!\203h
\314\207!\207\313!\203t
\314\207!\207\243\211:\203E\211\242\211:\203\361\211\242\211\315=\203\235
\243\211:\203H\211\242
\243\211\204\363
\243\211:\203\344
\211\242
\243\211:\203\323
\211\242
\243\211\204\302
\316	%\207\313!\203\315
\266\314\207\f!\207\313\f!\203\336
\266\314\207\n\f!\207\313\n!\203\355
\314\207\n!\207\243\211:\2039\211\242
\243\211:\203(\211\242
\243\211\204\316\211%\207\313!\203\"\266\314\207\f!\207\313\f!\2033\266\314\207\n\f!\207\313\n!\203B\314\207\n!\207\243\211:\203\216\211\242
\243\211:\203}\211\242
\243\211\204l\316\f	\211%\207\313\f!\203w\266\314\207\n\f!\207\313\n!\203\210\266\314\207\n!\207\313!\203\227\314\207!\207\243\211:\203\343\211\242
\243\211:\203\322\211\242
\243\211\204\301\316\211%\207\313!\203\314\266\314\207	!\207\313	!\203\335\266\314\207	!\207\313!\203\354\314\207!\207
\243\211:\2037\211\242
\243\211:\203&\211\242
\243\211\204\316\n\211%\207\313\n!\203 \266\314\207\n!\207\313!\2031\266\314\207!\207\313!\203@\314\207!\207\313!\203M\314\207!\207\243\211:\203g\211\242
\243
	B\312
!\266\314\207\313!\203o\314\207!\207\243\211:\203\261\211\242
\243\211:\203\241\211\243\312
!\211\314=\203\225\nB\202\237\211\317=\203\237B\320\207\313!\203\254\266\314\207!\207\313!\203\271\314\207!\207\314\207\243\211:\203\342\211\242
\243\211\204\322\321!\207\313!\203\335\266\314\207!\207\313!\203\352\314\207!\207\313!\203\366\314\207
!\207
\322>\203\314\207\313!\203\n\314\207\323!\203\324\325\320\"\326\"\207
9\203\320\207
:\204&\314\207\211!\207" [testcover-vector testcover-module-constants testcover-module-1value-functions testcover-module-potentially-1value-functions #[257 "\300
\301\"\207" [testcover-analyze-coverage-compose testcover-analyze-coverage] 4 "\n\n(fn FORM)"] #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (edebug-enter 14 edebug-after 376 defconst 849 defun 883 quote 957 \` 959)) quote function lambda edebug-coverage testcover-analyze-coverage-progn keywordp testcover-1value edebug-before testcover-analyze-coverage-edebug-after maybe nil testcover-analyze-coverage-backquote-form (nil t) vectorp testcover-analyze-coverage-compose append testcover-analyze-coverage] 23 (#$ . 10903)])
#@318 Analyze FORMS, which should be a list of forms, for code coverage.
Analyze all the forms in FORMS and return 1value, maybe or nil
depending on the analysis of the last one.  Find the coverage
vectors referenced by `edebug-enter' forms nested within FORMS and
update them with the results of the analysis.

(fn FORMS)
(defalias 'testcover-analyze-coverage-progn #[257 "\300
:\203\301\211A\262\242!\262
\202
\207" [testcover-1value testcover-analyze-coverage] 5 (#$ . 14467)])
#@435 Analyze a _FORM wrapped by `edebug-after' for code coverage.
_FORM should be either:
    (edebug-after (edebug-before BEFORE-ID) AFTER-ID WRAPPED-FORM)
or:
    (edebug-after 0 AFTER-ID WRAPPED-FORM)

where BEFORE-FORM is bound to either (edebug-before BEFORE-ID) or
0.  WRAPPER may be 1value or noreturn, and if so it forces the
form to be treated accordingly.

(fn FORM BEFORE-FORM BEFORE-ID AFTER-ID WRAPPED-FORM &optional WRAPPER)
(defalias 'testcover-analyze-coverage-edebug-after #[1541 "\302\303=\204\f\304I\210\305!\262

\306=\204\211\203$\206\"\307I\210
\310=\2041\242	>\203@\310BI\210\307I\210\307\207\242\306=\203O\307\262
\307I\210\207" [testcover-vector testcover-noreturn-functions nil 0 edebug-ok-coverage testcover-analyze-coverage-wrapped-form 1value testcover-1value noreturn] 11 (#$ . 14954)])
#@126 Analyze a FORM for code coverage which was wrapped by `edebug-after'.
FORM is treated as if it will be evaluated.

(fn FORM)
(defalias 'testcover-analyze-coverage-wrapped-form #[257 "\302
!\203\303\207\2119\203\211>\204\211	>\205\334\303\207\211:\204\"\303\207\211:\205\334\211\242\211\304\267\202\322
\243\211:\203O\211\242
\243\211\204F\305!\266\202\202S\306\"\266\202\202S\306\"\262
\202\332
\243\211:\203\203\211\242
\243\211:\203z\211\242	B\307
!\210\303\262
\266\202\202\207\306\"\266\202\202\207\306\"\262
\202\332
\243\211:\203\324\211\242\211:\203\313\211\243\211:\203\302\211\242
\243\243\307!\210\310
!\210\310!\203\272\211\202\273\303\262
\266\203\202\306\306\"\262
\202\317\306\"\262
\202\330\306\"\262
\202\332
\243\211:\203\364\211\242
\243\310!\210\310
!\266\202\202\370\306\"\262
\202\332
\243\211:\2032
\211\242
\243\211:\203)
\211\242
\243\307!\210\307!\307!
\205$
\211\205$
\311\266\206\2026
\306\"\266\202\2026
\306\"\262
\202\332
\243\312
\310\"\205E
\311\262
\202\332
\243\211:\203}
\211\243\211:\203t
\211\242
\243\307!\312\313\314\"\310\"
\205o
\211\205o
\311\266\204\202x
\306\"\262
\202\201
\306\"\262
\202\332
\243\211:\203\360
\211\242\211:\203\347
\211\242\211\315=\203\336

\243\211:\203\325
\211\242\2119\203\312

\243\211\204\277
\243
B\316
!\262
\262
\202\305
\306\"\262
\202\320
\306\"\262
\202\331
\306\"\262
\202\342
\306\"\262
\202\353
\306\"\262
\202\364
\306\"\262
\202\332
\243\211:\203\311\211\242
\243\211\204\300\317=\203\317\202\311:\203\264\242\211\320=\203\254\243\211:\203\244\211\242\211:\203^\211\242\211\321=\203
\243\211:\203\322\211\242
\243\211\204\214\243\211:\203\203\211\242
\243\211:\203z\211\242
\243\211\204q\322	&\266
\202\270\307!\266
\202\270\307
!\266\202\270\307!\266	\202\270\243\211:\203\311\211\242
\243\211:\203\300\211\242
\243\211\204\267\322\211&\266
\202\270\307!\266
\202\270\307
!\266\202\270\307!\266	\202\270\243\211:\203\211\242
\243\211:\203\211\242
\243\211\204\375\322
	\211&\266\202\270\307
!\266\202\270\307!\266	\202\270\307	!\266\202\270\243\211:\203U\211\242
\243\211:\203L\211\242
\243\211\204C\322\f\211&\266\n\202\270\307\f!\266\n\202\270\307\n!\266\202\270\307!\266\202\270
\243\211:\203\233\211\242
\243\211:\203\222\211\242
\243\211\204\211\322\211&\266	\202\270\307!\266	\202\270\307	!\266\202\270\307!\266\202\270\307!\266\202\270\307!\266\202\270\307!\210\211\262
\266\202\202\315\306\"\266\202\202\315\306\"\262
\202\332
\243\306\"\262
\262
\207" [testcover-constants testcover-module-constants keywordp testcover-1value #s(hash-table size 12 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (\` 47 defconst 88 dolist 140 dotimes 140 let* 221 let 221 if 253 cond 315 condition-case 330 apply 390 noreturn 505 1value 505)) testcover-analyze-coverage-backquote-form testcover-analyze-coverage-wrapped-application testcover-analyze-coverage testcover-analyze-coverage-progn maybe testcover-analyze-coverage-compose mapcar cdr quote testcover-analyze-coverage-wrapped-form 1value edebug-after edebug-before testcover-analyze-coverage-edebug-after] 25 (#$ . 15798)])
#@76 Analyze the application of FUNC to ARGS for code coverage.

(fn FUNC ARGS)
(defalias 'testcover-analyze-coverage-wrapped-application #[514 "
\306=\203\307\207
>\204
	>\203\310
!\210\307\207
\n>\204&
>\203,\310
!\210\311\207
\f>\2036\310
!\207

>\203F\310
A!\210\312
@!\207

>\203R\313
\312\"\207\310
!\210\314\207" [testcover-1value-functions testcover-module-1value-functions testcover-potentially-1value-functions testcover-module-potentially-1value-functions testcover-progn-functions testcover-prog1-functions quote testcover-1value testcover-analyze-coverage-progn maybe testcover-analyze-coverage testcover-analyze-coverage-compose nil testcover-compose-functions] 5 (#$ . 19129)])
#@211 Combine RESULT with VAL and return the new result.
If either argument is nil, return nil, otherwise if either
argument is maybe, return maybe.  Return 1value only if both arguments
are 1value.

(fn RESULT VAL)
(defalias 'testcover-coverage-combine #[514 "\211\300\267\202
\207
\205\301\207\302\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (testcover-1value 6 maybe 8)) maybe nil] 4 (#$ . 19838)])
#@145 Analyze a list of FORMS for code coverage using FUNC.
The list is 1valued if all of its constituent elements are also 1valued.

(fn FORMS FUNC)
(defalias 'testcover-analyze-coverage-compose #[514 "\300:\203\301
@!\"\262
A\262\202
\203\"\301
!\"\262
\207" [testcover-1value testcover-coverage-combine] 7 (#$ . 20292)])
#@82 Analyze BQ-LIST, the body of a backquoted list, for code coverage.

(fn BQ-LIST)
(defalias 'testcover-analyze-coverage-backquote #[257 "\300
:\203/
@\301
\302\303D>\203\304A!\262
\301\262\202&\305!\262
A\262\306\"\266\203\202
\207" [testcover-1value nil \, \,@ testcover-analyze-coverage testcover-analyze-coverage-backquote-form testcover-coverage-combine] 7 (#$ . 20628)])
#@76 Analyze a single FORM from a backquoted list for code coverage.

(fn FORM)
(defalias 'testcover-analyze-coverage-backquote-form #[257 "\300
!\203
\301\302\303\"!\207\211:\204\304\207\211@\305\306D>\203#\307
A@!\207\301
!\207" [vectorp testcover-analyze-coverage-backquote append nil testcover-1value \, \,@ testcover-analyze-coverage] 5 (#$ . 21021)])