Luj/eat-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Check terminal contents while testing bell

Browse source 
* eat-tests.el (eat-test-character-sets): Check terminal
contents.
This commit is contained in:
Akib Azmain Turja 2022-12-01 02:26:04 +06:00
parent 406d72b4b5
commit b65c0c40ec
No known key found for this signature in database
GPG key ID: 5535FCF54D88616B
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
eat-tests.el
View file

@ -231,20 +231,20 @@ any of the following properties:
The following functions are available within BODY: The following functions are available within BODY:
(terminal) \(terminal)
Return the terminal. Return the terminal.
(output &rest ARGS) \(output &rest ARGS)
Output ARGS to the terminal, where ARGS is a list of string. Output ARGS to the terminal, where ARGS is a list of string.
(input-event EVENT &optional REF-POS N) \(input-event EVENT &optional REF-POS N)
Input EVENT to the terminal. REF-POS is the starting position of Input EVENT to the terminal. REF-POS is the starting position of
the terminal, a mouse position list. N is how times to input EVENT. the terminal, a mouse position list. N is how times to input EVENT.
(input) \(input)
Return all unread input. Return all unread input.
(should-term SCROLLBACK DISPLAY CURSOR) \(should-term SCROLLBACK DISPLAY CURSOR)
Match the terminal with SCROLLBACK, DISPLAY and CURSOR. SCROLLBACK Match the terminal with SCROLLBACK, DISPLAY and CURSOR. SCROLLBACK
is expected content of scrollback region. DISPLAY is the expected is expected content of scrollback region. DISPLAY is the expected
display. CURSOR is the expected cursor position, as a cons (X . Y), display. CURSOR is the expected cursor position, as a cons (X . Y),
@ -255,7 +255,7 @@ The following functions are available within BODY:
properties are also compared, and \"foo\" and \"foo \" are assumed properties are also compared, and \"foo\" and \"foo \" are assumed
to be equivalent). to be equivalent).
(add-props STRING &rest INTERVALS) \(add-props STRING &rest INTERVALS)
Add text properties to STRING as specified in INTERVALS. Each Add text properties to STRING as specified in INTERVALS. Each
argument in INTERVALS is of form ((BEGIN . END) PROPERTY VALUE argument in INTERVALS is of form ((BEGIN . END) PROPERTY VALUE
PROPERTY VALUE...). Here is all PROPERTY is applied on STRING from PROPERTY VALUE...). Here is all PROPERTY is applied on STRING from
@ -5553,7 +5553,8 @@ automatic scrolling as a side effect."
(should (eq term (terminal))) (should (eq term (terminal)))
(setq bell-rang t))) (setq bell-rang t)))
(output "\a") (output "\a")
(should bell-rang)))) (should bell-rang)
(should-term :cursor '(1 . 1)))))
(ert-deftest eat-test-character-sets () (ert-deftest eat-test-character-sets ()
"Test character sets." "Test character sets."