290 lines
10 KiB
Plaintext
290 lines
10 KiB
Plaintext
;; Being tested: SEdit
|
|
;;
|
|
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
|
;;
|
|
;; Created By: Henry Cate III
|
|
;;
|
|
;; Creation Date: February 12, 1987
|
|
;;
|
|
;; Last Update:
|
|
;;
|
|
;; Filed As: {eris}<lispcore>command-help.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 "Arglist"
|
|
:before (progn
|
|
(setq window-list (do-test-menu-Setup "Arglist")))
|
|
|
|
:after (progn
|
|
(do-test-menu-Cleanup window-list))
|
|
|
|
(do-test "Arglist: no selection/no caret"
|
|
(do-test-menu-Message window-list 'high
|
|
" Testing Arglist
|
|
If there is no free Xerox Common Lisp exec, bring up one and type: \"(cl:in-package 'xcl-test)\"
|
|
In the exec type:
|
|
|
|
(setq number 3)
|
|
(defun temp-double (number) (* 2 number))
|
|
(defun temp-add-five (number) (+ 5 number))
|
|
(defun temp-call-other (number) (+ (temp-add-five number)
|
|
(temp-double number)))
|
|
(defun temp-garbage (start) (concatenate 'string start 23 5 (4 cd \"hi\") \" more\"))
|
|
(il:df temp-call-other)
|
|
|
|
Select Arglist from the popup menu.
|
|
Does SEdit display in its prompt window:
|
|
\"Select function you want the arguments for.\"? "))
|
|
|
|
|
|
(do-test "Make sure the functions got entered in correctly"
|
|
(and
|
|
(eq 3 number)
|
|
(eq 26 (temp-double 13))
|
|
(eq 50 (temp-double 25))
|
|
(eq 10 (temp-add-five 5))
|
|
(eq 28 (temp-add-five 23))
|
|
(eq 11 (temp-call-other 2))
|
|
(eq 14 (temp-call-other 3))
|
|
))
|
|
|
|
|
|
(do-test "Arglist: no selection/edit caret"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: no selection/edit caret
|
|
Assuming SEdit is editing the function temp-call-other
|
|
Want to place the edit caret right after the litatom \"temp-double\" without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of \"temp-double\".
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window \"(TEMP-DOUBLE NUMBER)\"? "))
|
|
|
|
|
|
(do-test "Arglist: no selection/structure caret"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: no selection/structure caret
|
|
Assuming SEdit is editing the function temp-call-other
|
|
Want to place the structure caret right between the \"temp-add-five\" and \"number\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window \"(TEMP-ADD-FIVE NUMBER)\"? "))
|
|
|
|
|
|
(do-test "Arglist: select a litatom"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: select a litatom
|
|
Assuming SEdit is editing the function temp-call-other
|
|
Select the last litatom \"number\" as a structure, by pressing the middle button with the cursor over the litatom.
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Arguments not available for NUMBER\"? "))
|
|
|
|
; The response to this may change when AR 7703 is answered/fixed.
|
|
|
|
(do-test "Arglist: select a string"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: select a string
|
|
Assuming SEdit is editing the function temp-call-other
|
|
Close the SEdit window for temp-call-other
|
|
In the exec type: \"(il:df temp-garbage)\"
|
|
Select the string \" more\" as a structure, by pressing the middle button, with the cursor over the string.
|
|
Type meta-H.
|
|
Does it display a message of:
|
|
\"Arguments not available for more\"? "))
|
|
|
|
|
|
(do-test "Arglist: select a number"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: select a number
|
|
Assuming SEdit is editing the function temp-garbage.
|
|
Select the number \"5\" as a structure, by pressing the middle button, with the cursor over the number.
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Arguments not available for 5\"? "))
|
|
|
|
|
|
(do-test "Arglist: select a list"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: select a list
|
|
Assuming SEdit is editing the function temp-garbage.
|
|
Select the list \"(4 cd \"hi\")\" as a structure, by pressing the middle button, with the cursor over one of the parentheses.
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Arguments not available for (4 cd hi)\"? "))
|
|
|
|
|
|
(do-test "Arglist: select part of a litatom"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: select part of a litatom
|
|
Assuming SEdit is editing the function temp-garbage.
|
|
Select the \"d\" in the litatom \"cd\".
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Arguments not available for CD\"?"))
|
|
|
|
|
|
(do-test "Arglist: select part of a string"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: select part of a string
|
|
Assuming SEdit is editing the function temp-garbage.
|
|
Select the \"h\" in the string \"hi\".
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Select function you want the arguments for.\"? "))
|
|
|
|
|
|
(do-test "Arglist: select part of a number"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: select part of a number
|
|
Assuming SEdit is editing the function temp-garbage.
|
|
Select the \"2\" in the number \"23\".
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Arguments not available for 23\"? "))
|
|
|
|
|
|
(do-test "Arglist: delete a litatom"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: try after deleting a litatom
|
|
Assuming SEdit is editing the function temp-garbage.
|
|
Close the SEdit window for temp-garbage.
|
|
In the exec type: \"(il:df temp-call-other)\"
|
|
Place the structure caret after the second litatom \"number\".
|
|
Type in the litatom \"ab\"
|
|
Type control-W, meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"(TEMP-ADD-FIVE NUMBER)\"? "))
|
|
|
|
|
|
(do-test "Arglist: delete a string"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: try after deleting a string
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Place the structure caret after the third litatom \"number\".
|
|
Type in the string \"hello\"
|
|
Type control-W, meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"(TEMP-DOUBLE NUMBER)\"? "))
|
|
|
|
|
|
(do-test "Arglist: delete a number"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: try after deleting a number
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Place the structure caret before the third litatom \"number\".
|
|
Type in the number \"34\"
|
|
Type control-W, meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"(TEMP-DOUBLE NUMBER)\"? "))
|
|
|
|
|
|
(do-test "Arglist: delete a list"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: try after deleting a list
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Place the structure caret before the second litatom \"number\".
|
|
Type in the list \"(have a \"nice\" day)\"
|
|
Type control-W, meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"(TEMP-ADD-FIVE NUMBER)\"? "))
|
|
|
|
|
|
(do-test "Arglist: extended selection of litatoms"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: try extended selection of litatoms
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Place the edit caret after the second litatom \"number\".
|
|
Type \" ef gh\".
|
|
Now select the litatom \"number\" as a structure, and extend the selection to include the next two litatoms.
|
|
Type meta-H
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Select function you want the arguments for.\"? "))
|
|
|
|
|
|
(do-test "Arglist: extended selection of strings"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: extended selection of strings
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Place the edit caret after the litatom \"gh\".
|
|
Type \" 12 3.4 5/6 (hi) (bye) \"string\" \"string2\" (list)\".
|
|
Now select the first string as a structure, and extend the selection to include the second string.
|
|
Type meta-H
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Select function you want the arguments for.\"? "))
|
|
|
|
|
|
(do-test "Arglist: extended selection of numbers"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: extended selection of numbers
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Select the number \"12\" as a structure, and extend the selection to include the next two numbers.
|
|
Type meta-H
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Select function you want the arguments for.\"? "))
|
|
|
|
|
|
(do-test "Arglist: extended selection of lists"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: extended selection of lists
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Select the list \"(hi)\" as a structure, and extend the selection to include the next list.
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Select function you want the arguments for.\"? "))
|
|
|
|
|
|
(do-test "Arglist: extended selection of litatoms and numbers"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: extended selection of litatoms and numbers
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Select the litatoms \"ef\" as a structure, and extend the selection to include the next four items.
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Select function you want the arguments for.\"? "))
|
|
|
|
|
|
(do-test "Arglist: extended selection of strings and lists"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: extended selection of strings and lists
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Select the litatom \"hi\" as a structure, and extend the selection to include the next four items.
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Select function you want the arguments for.\"? "))
|
|
|
|
|
|
(do-test "Arglist: extended selection of several things"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: extended selection of several things
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Select the litatom \"ef\" as a structure, and extend the selection to include the rest.
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Select function you want the arguments for.\"?
|
|
Type meta-H a couple times if neccesary to see."))
|
|
|
|
|
|
(do-test "Arglist: selection of entire structure"
|
|
(do-test-menu-Message window-list 'low
|
|
" Testing: selection of entire structure
|
|
Assuming SEdit is editing the function temp-call-other.
|
|
Select the entire structure.
|
|
Type meta-H.
|
|
Does SEdit display in the SEdit prompt window:
|
|
\"Arguments not available for (DEFUN TEMP-CALL-OTHER (NUMBER) (+ (TEMP-ADD-FIVE NUMBER EF GH 12 3.4 5/6 (HI) (BYE) \"string\" \"string2\" (list)) (TEMP-DOUBLE NUMBER)))\"? "))
|
|
|
|
(do-test "Clean up"
|
|
(do-test-menu-message window-list 'high
|
|
"Close the SEdit window by selecting Close from the popup menu."))
|
|
|
|
) ; end of do-test-group
|
|
|
|
|
|
STOP
|