192 lines
6.7 KiB
Plaintext
192 lines
6.7 KiB
Plaintext
;; Being tested: SEdit
|
|
;;
|
|
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
|
;;
|
|
;; Created By: Henry Cate III
|
|
;;
|
|
;; Creation Date: February 5, 1987
|
|
;;
|
|
;; Last Update:
|
|
;;
|
|
;; Filed As: {eris}<lispcore>test>SEdit>interrupts.u
|
|
;;
|
|
;;
|
|
;;
|
|
|
|
|
|
(do-test "load the functions for the prompter for interactive tests"
|
|
(if (not (fboundp 'do-test-menu-setup))
|
|
(load "{ERINYES}<test>TOOLS>DO-TEST-MENU.dfasl"))
|
|
T)
|
|
|
|
|
|
(do-test-group "Interrupts"
|
|
:before (progn
|
|
(setq window-list (do-test-menu-Setup "Interrupts")))
|
|
|
|
:after (progn
|
|
(do-test-menu-Cleanup window-list))
|
|
|
|
(do-test "no selection/no caret"
|
|
(do-test-menu-Message window-list 'high
|
|
"If you are not in the XCL-TEST package. Stop this assistant and change packages.
|
|
Create a second EXEC if needed.
|
|
Testing no selection/no caret
|
|
Type:
|
|
|
|
(setq tempx '(xy \"hi\" 5 (a 23 4 \"bye\")))
|
|
(il:dv tempx)
|
|
|
|
Type control-G. A menu should come up asking \"Interrupt which possess?\" just click outside of the menu.
|
|
Type control-B. A break window for SEdit should pop up. Continue on by typing \"ok\".
|
|
Did both interrupts go correctly?"))
|
|
|
|
|
|
(do-test "no selection/edit caret"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing no selection/edit caret
|
|
Assuming tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Want to place the edit caret right after the 5 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 5.
|
|
Type control-G. A menu should come up asking \"Interrupt which possess?\" just click outside of the menu.
|
|
Type control-B. A break window for SEdit should pop up. Continue on by typing \"ok\".
|
|
Did both interrupts go correctly?"))
|
|
|
|
|
|
(do-test "no selection/structure caret"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing no selection/structure caret
|
|
Assuming tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Want to place the structure caret right between \"hi\" and the 5 without selecting either \"hi\" or the 5. Do this by positioning the mouse cursor between the two items and press the middle button.
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "select a litatom"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing select a litatom
|
|
Assuming tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Select the litatom \"xy\" as a structure, by pressing the middle button.
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "select a string"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing select a string
|
|
Assuming tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Select the string \"hi\" as a structure.
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "select a number"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing select a number
|
|
Assuming tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Select the number \"5\" as a structure.
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "select a list"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing select a list
|
|
Assuming tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Select the list (a 23 4 \"bye\") as a structure.
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "select part of a litatom"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing select part of a litatom
|
|
Assuming tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Select the \"x\" in the litatom \"xy\" by pressing the left button.
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "select part of a string"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing select part of a string
|
|
Assuming tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Select the \"h\" in the string \"hi\".
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "select part of a number"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing select part of a number
|
|
Assuming tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Select the \"2\" in the number \"23\".
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "delete a litatom"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing delete a litatom
|
|
Assuming tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Delete the litatom \"xy\" by selecting it as a structure and pressing the delete key.
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "delete a string"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing delete a string
|
|
Assuming tempx currently equals (\"hi\" 5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Delete the string \"hi\".
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "delete of a number"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing delete a number
|
|
Assuming tempx currently equals (5 (a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Delete the number \"5\".
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "extended selection of objects of same type"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing extended selection of objects of same type
|
|
Assuming tempx currently equals ((a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Select the numbers 23 and 4, by picking the 23 with the left button, and the 4 with the right button.
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
(do-test "extended selection of objects of different types"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing extended selection of objects of different types
|
|
Assuming tempx currently equals ((a 23 4 \"bye\"))
|
|
If needed, type: \"(il:dv tempx)\"
|
|
Select all items in the smaller list.
|
|
Type control-G, click outside the menu, then type control-B, and \"ok\".
|
|
Do both perform as specified before?"))
|
|
|
|
|
|
) ; end of do-test-group
|
|
|
|
|
|
|
|
|
|
STOP
|