;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302\303\"\210\300\304!\210\300\305!\207" [require sly-mrepl sly-tests "lib/sly-tests" cl-lib ert-x] 3) #@38 (fn &optional (PROMPT "CL-USER>")) (defalias 'sly-mrepl-tests--assert-prompt #[128 "\211\203 \211A\262\242\202\300\203\301\302\303GTD\"\210\304\3052I\306\211S\211\262\307Y\205F\310\311\312\"`\313Z\"\203?\314\262\315\305\304\"\210\316\317!\210\202!\2620\210\211\206[\320\311\321\322ed\323Z]d\"\"!\207" ["CL-USER>" signal wrong-number-of-arguments sly-mrepl-tests--assert-prompt nil --cl-block-nil-- 5 0 looking-back format "%s $" 100 t throw sit-for 0.3 ert-fail "Proper prompt not seen in time (saw last 20 chars as \"%s\")" buffer-substring-no-properties 20] 10 (#$ . 220)]) (defalias 'sly-mrepl-tests--assert-dedicated-stream #[0 "\301\30223\303\211S\211\262\304Y\2050\203(\305!\203(\306!\203(\307\262\310\302\301\"\210\311\304\312\"\210\202\2620\210\211\206;\313\314!\207" [sly-mrepl--dedicated-stream nil --cl-block-nil-- 5 0 processp process-live-p t throw sleep-for 300 ert-fail "Dedicated stream not setup correctly"] 5]) (defvar sly-mrepl-tests--debug nil) (byte-code "\301\211\207" [sly-mrepl-tests--debug nil] 2) #@19 (fn &rest BODY) (defalias 'sly-mrepl-tests--with-basic-repl-setup '(macro . #[128 "\300\301\302\303\304\305\306\307BBB\310BBEE\207" [let ((sly-buffer-package "COMMON-LISP-USER")) with-current-buffer (sly-mrepl-new (sly-current-connection) "test-only-repl") unwind-protect progn (sly-mrepl-tests--assert-prompt) (sly-mrepl-tests--assert-dedicated-stream) ((unless sly-mrepl-tests--debug (kill-buffer (current-buffer))))] 10 (#$ . 1284)])) (put 'sly-mrepl-tests--with-basic-repl-setup 'edebug-form-spec '(&rest form)) (defalias 'sly-mrepl-tests--current-input-string #[0 "\300\301 d\"\207" [buffer-substring-no-properties sly-mrepl--mark] 3]) (byte-code "\301\302\303\304\302\305\306\307\310\311&\"\210\301\312\303\304\312\305\313\307\310\314&\"\210\315Y\203>\301\316\303\304\316\305\317\307\310\320&\"\210\301\321\303\304\321\305\322\307\310\323&\"\210\324\325!\207" [emacs-major-version ert-set-test basic-repl-setup record ert-test "No docstring for this test." #[0 "\301r\302\303 \304\"q\210\305\216\306 \210\307 +\207" [sly-buffer-package #1="COMMON-LISP-USER" sly-mrepl-new sly-current-connection #2="test-only-repl" #[0 "?\205\301p!\207" [sly-mrepl-tests--debug kill-buffer] 2] sly-mrepl-tests--assert-prompt sly-mrepl-tests--assert-dedicated-stream] 3] nil :passed (sly contrib mrepl-tests) repl-values-and-button-navigation #[0 "\301r\302\303 \304\"q\210\305\216\306 \210\307 \210\310c\210\311 \210\306 \210\312\313!\210\312\314!\210\312C\3151/\316C0\202:\317\240\210\211@AD\262\320C\321C\321\322\323\"\3241b\322\325%\216\326\242\"\240)0\210\202q\327\262\330\331\321$\210\240\266\204\332\333 \334\335D\"!\210\266\312\336!+\207" [sly-buffer-package #1# sly-mrepl-new sly-current-connection #2# #[0 "?\205\301p!\207" [sly-mrepl-tests--debug kill-buffer] 2] sly-mrepl-tests--assert-prompt sly-mrepl-tests--assert-dedicated-stream "(values (list 1 2 3) #(1 2 3))" sly-mrepl-return ert-simulate-command (sly-button-backward 1) (sly-button-backward 1) (error) #3=(sly-button-backward 1) signal #4=#:ert-form-evaluation-aborted-8081 nil make-closure #[0 "\300\242\207" [V0] 1] (error) #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should-error (ert-simulate-command '#3#)) :form #4# :value ert-simulate-command ert-explainer :explanation apply ert--signal-should-execution] 7] apply t ert--should-error-handle-error error ert-fail append :fail-reason "did not signal an error" (sly-button-forward 1)] 12] (sly contrib mrepl-tests) 25 repl-completion-pop-up-window #[0 "\301r\302\303 \304\"q\210\305\216\306 \210\307 \210\310c\210\311u\210\312\313!\210\314C\3151(\316C0\2023\317\240\210\211@AD\262\320C\321C\322\323%\216\324\242\"\240)\204O\325\242!\210\210\211\242\262\266\202+\207" [sly-buffer-package #1# sly-mrepl-new sly-current-connection #2# #[0 "?\205\301p!\207" [sly-mrepl-tests--debug kill-buffer] 2] sly-mrepl-tests--assert-prompt sly-mrepl-tests--assert-dedicated-stream "(setq echonumberli)" -1 ert-simulate-command (completion-at-point) get-buffer-window (error) #5="*sly-completions*" signal #6=#:ert-form-evaluation-aborted-8088 nil make-closure #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (get-buffer-window #5#)) :form #6# :value get-buffer-window ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail] 10] (sly contrib mrepl-tests) repl-completion-choose-candidates #[0 "\302r\303\304 \305\"q\210\306\216\307 \210\310 \210\311c\210\312u\210\313c\210\314\315!\210\316C\3171+\320C0\2026\321\240\210\211@AD\262\322C\323C\324\325%\216\326\242\"\240)\204R\327\242!\210\266\314\330!\210\331C\3321i\333\334\335 )D0\202t\321\240\210\211@AD\262\336C\323C\324\337%\216\326\242\"\240)\204\220\327\242!\210\266\340 \210\341 \210\313c\210\314\342!\210\314\343!\210\314\344!\210\331C\3451\270\333\346\335 )D0\202\303\321\240\210\211@AD\262\347C\323C\324\350%\216\326\242\"\240)\204\337\327\242!\210\210\211\242\262\266\202+\207" [sly-buffer-package signal-hook-function #1# sly-mrepl-new sly-current-connection #2# #[0 "?\205\301p!\207" [sly-mrepl-tests--debug kill-buffer] 2] sly-mrepl-tests--assert-prompt sly-mrepl-tests--assert-dedicated-stream "'()" -1 "multiple-value-t" ert-simulate-command (completion-at-point) get-buffer-window (error) #7="*sly-completions*" signal #8=#:ert-form-evaluation-aborted-8093 nil make-closure #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (get-buffer-window #7#)) :form #8# :value get-buffer-window ert-explainer :explanation apply ert--signal-should-execution] 7] apply ert-fail (sly-choose-completion) string= (error) ert--should-signal-hook #9="'(multiple-value-setq)" sly-mrepl-tests--current-input-string #10=#:ert-form-evaluation-aborted-8098 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (string= #9# (sly-mrepl-tests--current-input-string))) :form #10# :value string= ert-explainer :explanation apply ert--signal-should-execution] 7] backward-sexp kill-sexp (completion-at-point) (sly-next-completion 1) (sly-choose-completion) (error) #11="'(multiple-value-list)" #12=#:ert-form-evaluation-aborted-8103 #[0 "\303\304C\305\300\242\301BD\244\302\242\306=?\205\307\302\242D\244\302\242\306=?\205.\310\311N\211\205,\312\313\301\"D\262\244\240\210\314\303\242!\207" [V0 V1 V2 V3 (should (string= #11# (sly-mrepl-tests--current-input-string))) :form #12# :value string= ert-explainer :explanation apply ert--signal-should-execution] 7]] 10] (sly contrib mrepl-tests) provide sly-mrepl-tests] 10)