Remove explicit old versions from cloned repo (#392)
it took a long time to figure out how to restore old versions, using the './scripts/restore-versions file'. Now that it's there and tested it should be ok to remove them from new 'git clone' of medley
This commit is contained in:
Larry Masinter
GitHub
@@ -1,289 +0,0 @@
|
||||
;; 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 "{ERIS}<LispCore>Integration>do-test-menu.def"))
|
||||
T)
|
||||
|
||||
|
||||
(do-test-group "Help"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Help")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
(do-test "Help: no selection/no caret"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing Help
|
||||
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 Help from the popup menu.
|
||||
Does SEdit display in it's 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 "Help: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the function temp-call-other
|
||||
Want to place the edit caret right after the function call to \"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 "Help: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping 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 "Help: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping 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 "Help: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping 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 "Help: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping 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 "Help: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping 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 "Help: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping 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 "Help: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping 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 "Help: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping 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 "Help: delete a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a litatom
|
||||
Assumping 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 "Help: delete a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a string
|
||||
Assumping 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 "Help: delete a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a number
|
||||
Assumping 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 "Help: delete a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a list
|
||||
Assumping 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 "Help: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the function temp-call-other.
|
||||
Place the edit caret after the second litatom \"number\".
|
||||
Type \" ef gh\".
|
||||
Type meta-H
|
||||
Now select the litatom \"number\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select function you want the arguments for.\"? "))
|
||||
|
||||
|
||||
(do-test "Help: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping 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 "Help: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping 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 "Help: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping 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 "Help: extended selection of litatoms and numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping 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 "Help: extended selection of strings and lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping 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 "Help: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping 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 "Help: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping 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
|
||||
@@ -1,289 +0,0 @@
|
||||
;; 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
|
||||
@@ -1,336 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 19, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-extract.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 "Extract"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Extract")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Extract: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Extract
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Extract from the pop up menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Extract: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: no selection/structure caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Want to place the structure caret right between \"(b)\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-/.
|
||||
Were you able to get this far "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) "hi" (b) cd 4) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Extract: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) \"hi\" (b) cd 4)
|
||||
Type meta-U.
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Nothing to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Nothing to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Nothing to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-/.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" bye ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Extract: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" bye (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"not implemented for comments.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U twice.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: pending delete a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"4.5\" in pending delete mode.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: pending delete of a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a comment
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Place the structure caret the number \"1\".
|
||||
Type in \"; hello\"
|
||||
Select the comment in pending delete mode.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U twice.
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-/
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-/
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next number.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of litatoms and numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of strings and lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the entire structure.
|
||||
Type meta-0.
|
||||
Reselect the enterie structure.
|
||||
Type meta-/, and control-L
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Extract: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type control-x.
|
||||
Select the entire structure in pending delete mode.
|
||||
Type meta-m.
|
||||
Pick the extract command on the attached menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,335 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 19, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-extract.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 "Extract"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Extract")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Extract: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Extract
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Extract from the pop up menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Extract: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: no selection/structure caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Want to place the structure caret right between \"(b)\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-/.
|
||||
Did the parentheses around ("hi" (B) CD 4) disappear? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) "hi" (b) cd 4) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Extract: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) \"hi\" (b) cd 4)
|
||||
Type meta-U.
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Nothing to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Nothing to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Nothing to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-/.
|
||||
Did the parentheses around (bye) disappear? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" bye ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Extract: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" bye (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-/.
|
||||
Did the semicolon disappear and \"hello\" become just another atom in the list? "))
|
||||
|
||||
|
||||
(do-test "Extract: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U three times.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: pending delete a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"4.5\" in pending delete mode.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: pending delete of a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a comment
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Place the structure caret the number \"1\".
|
||||
Type in \"; hello\"
|
||||
Select the comment in pending delete mode.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U twice.
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-/
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-/
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next number.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: 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 variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: 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 variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-/.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Extract: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the entire structure.
|
||||
Type meta-0.
|
||||
Reselect the entire structure.
|
||||
Type meta-/, and control-L
|
||||
Did you get back the original list? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Extract: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type control-x.
|
||||
Select the entire structure in pending delete mode.
|
||||
Type meta-m.
|
||||
Pick the extract command on the attached menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,324 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 10, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-find.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 "Find"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Find")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
(do-test "Find: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Find
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Find from the popup menu. Type in \"cd\".
|
||||
Does it find the litatom \"cd\" and select it? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd "hello" "BYE" ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4))
|
||||
Type control-x.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-F. Type in \"6/7\".
|
||||
Does it find the number \"6/7\" and select it? "))
|
||||
|
||||
|
||||
(do-test "Find: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4))
|
||||
Want to place the structure caret right between \"a\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-F. Enter the string \"hello\".
|
||||
Does it find the number \"hello\" and select it? "))
|
||||
|
||||
|
||||
(do-test "Find: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4))
|
||||
Select the first litatom \"cd\" as a structure, by pressing the middle button with the cursor over the litatom.
|
||||
Press the find key.
|
||||
Does it find the second occurance of the litatom and select it? "))
|
||||
|
||||
|
||||
(do-test "Find: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the middle button, with the cursor over the string.
|
||||
Type meta-F.
|
||||
Does it display a message of \"\"hello\" - Not found.\"? "))
|
||||
|
||||
|
||||
(do-test "Find: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4))
|
||||
Place the structure caret right after the string \"BYE\".
|
||||
Type \" 4.5 (bye) (bye)\", and then control-x
|
||||
Select the first number \"4.5\" as a structure, by pressing the middle button, with the cursor over the number.
|
||||
Type meta-F.
|
||||
Does it find the second occurance of the number and select it?"))
|
||||
(good-value (equal '(1 4.5 6/7 a cd "hello" "BYE" 4.5 (bye) (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Select the first list \"(bye)\" as a structure, by pressing the middle button, with the cursor over one of the parentheses.
|
||||
Type meta-F.
|
||||
Does it find the second occurance of the list and select it?"))
|
||||
|
||||
|
||||
(do-test "Find: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-F.
|
||||
Does it display a message of \"(il:* il:\\; \" hello\") - Not found.\"? "))
|
||||
|
||||
|
||||
(do-test "Find: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Select the comment as a structure and press the delete key.
|
||||
Type control-x.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-F. Enter the litatom \"bye\"
|
||||
(If it doesn't ask what to find indicate failure to the prompter.)
|
||||
Does it find the first litatom \"bye\" and underline only it?"))
|
||||
|
||||
|
||||
(do-test "Find: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-F. Enter the number \"4\"
|
||||
(If it doesn't ask what to find indicate failure to the prompter.)
|
||||
Does it find the number \"4\" and underline only it?"))
|
||||
|
||||
|
||||
(do-test "Find: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-F. Enter the list \"(\"hi\" b cd 4)\"
|
||||
(If it doesn't ask what to find indicate failure to the prompter.)
|
||||
Does it find the list \"(\"hi\" b cd 4)\" and underline only it?"))
|
||||
(good-value (equal '(1 4.5 6/7 a cd "hello" "BYE" 4.5 (bye) (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: delete a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the litatom \"a\".
|
||||
Type control-W, meta-F. Enter the number \"4.5\".
|
||||
Does it find the second \"4.5\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 cd "hello" "BYE" 4.5 (bye) (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: delete a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Place the structure caret after the string \"hello\".
|
||||
Type control-W, meta-F. Enter the litatom \"bye\".
|
||||
Does it find the first litatom \"bye\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 cd "BYE" 4.5 (bye) (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: delete a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 cd \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret right after the number \"6/7\" with no selection.
|
||||
Type control-W, meta-F. Just press the carriage return.
|
||||
Does it find the first litatom \"bye\"? "))
|
||||
(good-value (equal '(1 4.5 cd "BYE" 4.5 (bye) (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: delete a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Pick the first list of \"(bye)\" as a structure and press the delete key.
|
||||
Type meta-F. And press the carriage return.
|
||||
Does it find the litatom \"bye\"? "))
|
||||
(good-value (equal '(1 4.5 cd "BYE" 4.5 (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: delete a comment"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a comment
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Place the structure caret after the litatom \"cd\" and type \"; hello\", then select this as a structure with the caret to the right.
|
||||
Press the delete key, type meta-F, and press the carriage return.
|
||||
Does it find the litatom \"bye\"? "))
|
||||
(good-value (equal '(1 4.5 cd "BYE" 4.5 (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the litatom \"cd\".
|
||||
Type \" ef gh\", and control-x.
|
||||
Now select the litatom \"cd\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-m, in the Find field type in the string \"BYE\", then left button the Find item on the menu.
|
||||
Does it find the string \"BYE\"? "))
|
||||
(good-value (equal '(1 4.5 cd ef gh "BYE" 4.5 (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the litatom \"gh\".
|
||||
Type \"(hi) (bye) \"string\" \"string2\" (list)\".
|
||||
Now select the first string as a structure, and extend the selection to include the second string.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it find the string \"BYE\"? "))
|
||||
(good-value (equal '(1 4.5 cd ef gh (hi) (bye) "string" "string2" (list) "BYE" 4.5 (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next number.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it find the litatom \"BYE\"? "))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(hi)\" as a structure, and extend the selection to include the next list.
|
||||
In the attach menu, change the Find field to be \"4.5\", then left button the Find item on the menu.
|
||||
Does it find the second number \"4.5\"? "))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of litatoms and numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next four items.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it find the second number \"4.5\"? "))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of strings and lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the litatom \"hi\" as a structure, and extend the selection to include the next four items.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it find the second number \"4.5\"? "))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it say \"4.5 - Not found\"? "))
|
||||
|
||||
|
||||
(do-test "Find: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the entire structure.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it say \"4.5 - Not found\"? "))
|
||||
(good-value (equal '(1 4.5 cd ef gh (hi) (bye) "string" "string2" (list) "BYE" 4.5 (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,324 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 10, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-find.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 "Find"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Find")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
(do-test "Find: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Find
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Find from the popup menu. Type in \"cd\".
|
||||
Does it find the litatom \"cd\" and select it? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd "hello" "BYE" ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4))
|
||||
Type control-x.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-F. Type in \"6/7\".
|
||||
Does it find the number \"6/7\" and select it? "))
|
||||
|
||||
|
||||
(do-test "Find: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4))
|
||||
Want to place the structure caret right between \"a\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and pressing the middle button.
|
||||
Type meta-F. Enter the string \"hello\".
|
||||
Does it find the string \"hello\" and select it? "))
|
||||
|
||||
|
||||
(do-test "Find: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4))
|
||||
Select the first litatom \"cd\" as a structure, by pressing the middle button with the cursor over the litatom.
|
||||
Press the find key.
|
||||
Does it find the second occurance of the litatom and select it? "))
|
||||
|
||||
|
||||
(do-test "Find: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the middle button, with the cursor over the string.
|
||||
Type meta-F.
|
||||
Does it display a message of \"\"hello\" - Not found.\"? "))
|
||||
|
||||
|
||||
(do-test "Find: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" (\"hi\" b cd 4))
|
||||
Place the structure caret right after the string \"BYE\".
|
||||
Type \" 4.5 (bye) (bye)\", and then control-x
|
||||
Select the first number \"4.5\" as a structure, by pressing the middle button, with the cursor over the number.
|
||||
Type meta-F.
|
||||
Does it find the second occurance of the number and select it?"))
|
||||
(good-value (equal '(1 4.5 6/7 a cd "hello" "BYE" 4.5 (bye) (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Select the first list \"(bye)\" as a structure, by pressing the middle button, with the cursor over one of the parentheses.
|
||||
Type meta-F.
|
||||
Does it find the second occurance of the list and select it?"))
|
||||
|
||||
|
||||
(do-test "Find: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-F.
|
||||
Does it display a message of \"(il:* il:\\; \" hello\") - Not found.\"? "))
|
||||
|
||||
|
||||
(do-test "Find: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Select the comment as a structure and press the delete key.
|
||||
Type control-x.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-F. Enter the litatom \"bye\"
|
||||
(If it doesn't ask what to find indicate failure to the prompter.)
|
||||
Does it find the first litatom \"bye\" and underline only it?"))
|
||||
|
||||
|
||||
(do-test "Find: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-F. Enter the number \"4\"
|
||||
(If it doesn't ask what to find indicate failure to the prompter.)
|
||||
Does it find the number \"4\" and underline only it?"))
|
||||
|
||||
|
||||
(do-test "Find: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-F. Enter the list \"(\"hi\" b cd 4)\"
|
||||
(If it doesn't ask what to find indicate failure to the prompter.)
|
||||
Does it find the list \"(\"hi\" b cd 4)\" and underline only it?"))
|
||||
(good-value (equal '(1 4.5 6/7 a cd "hello" "BYE" 4.5 (bye) (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: delete a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the litatom \"a\".
|
||||
Type control-W, meta-F. Enter the number \"4.5\".
|
||||
Does it find the second \"4.5\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 cd "hello" "BYE" 4.5 (bye) (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: delete a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 cd \"hello\" \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Place the structure caret after the string \"hello\".
|
||||
Type control-W, meta-F. Enter the litatom \"bye\".
|
||||
Does it find the first litatom \"bye\" (and not the string)? "))
|
||||
(good-value (equal '(1 4.5 6/7 cd "BYE" 4.5 (bye) (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: delete a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 cd \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret right after the number \"6/7\" with no selection.
|
||||
Type control-W, meta-F. Just press the carriage return.
|
||||
Does it find the first litatom \"bye\" (and not the string)? "))
|
||||
(good-value (equal '(1 4.5 cd "BYE" 4.5 (bye) (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: delete a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Pick the first list of \"(bye)\" as a structure and press the delete key.
|
||||
Type meta-F. And press the carriage return.
|
||||
Does it find the litatom \"bye\"? "))
|
||||
(good-value (equal '(1 4.5 cd "BYE" 4.5 (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: delete a comment"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a comment
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd \"BYE\" 4.5 (bye) (bye) (\"hi\" b cd 4))
|
||||
Place the structure caret after the litatom \"cd\" and type \"; hello\", then select this as a structure with the caret to the right.
|
||||
Press the delete key, type meta-F, and press the carriage return.
|
||||
Does it find the litatom \"bye\"? "))
|
||||
(good-value (equal '(1 4.5 cd "BYE" 4.5 (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the litatom \"cd\".
|
||||
Type \" ef gh\", and control-x.
|
||||
Now select the litatom \"cd\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-m, in the Find field type in the string \"BYE\", then left button the Find item on the menu.
|
||||
Does it find the string \"BYE\"? "))
|
||||
(good-value (equal '(1 4.5 cd ef gh "BYE" 4.5 (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the litatom \"gh\".
|
||||
Type \"(hi) (bye) \"string\" \"string2\" (list)\".
|
||||
Now select the first string as a structure, and extend the selection to include the second string.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it find the string \"BYE\"? "))
|
||||
(good-value (equal '(1 4.5 cd ef gh (hi) (bye) "string" "string2" (list) "BYE" 4.5 (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next number.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it find the string \"BYE\"? "))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(hi)\" as a structure, and extend the selection to include the next list.
|
||||
In the attach menu, change the Find field to be \"4.5\", then left button the Find item on the menu.
|
||||
Does it find the second number \"4.5\"? "))
|
||||
|
||||
|
||||
(do-test "Find: 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 variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next four items.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it find the second number \"4.5\"? "))
|
||||
|
||||
|
||||
(do-test "Find: 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 variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the litatom \"hi\" as a structure, and extend the selection to include the next four items.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it find the second number \"4.5\"? "))
|
||||
|
||||
|
||||
(do-test "Find: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it say \"4.5 - Not found\"? "))
|
||||
|
||||
|
||||
(do-test "Find: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 cd ef gh (hi) (bye) \"string\" \"string2\" (list) \"BYE\" 4.5 (bye) (\"hi\" b cd 4))
|
||||
Select the entire structure.
|
||||
In the attach menu, left button the Find item on the menu.
|
||||
Does it say \"At end; no more structure to search.\"? "))
|
||||
(good-value (equal '(1 4.5 cd ef gh (hi) (bye) "string" "string2" (list) "BYE" 4.5 (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,175 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 4, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-high.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 "High level, high priority test"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "High-level")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
(do-test "Trouble typing with parentheses"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
" Testing parentheses
|
||||
If needed, bring up a second exec and type: \"(cl:in-package 'xcl-test)\"
|
||||
Then in the exec type:
|
||||
|
||||
(setq tempx '(5))
|
||||
(il:SEdit tempx)
|
||||
|
||||
Put the edit caret after the five in the SEdit window.
|
||||
Type:\"(()6 7 8\"
|
||||
Now complete the edit by typing control x.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(5 (nil 6 7 8)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Trouble creating dotted pairs"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
"Assumping SEdit is editing tempx which currently equals (5 (nil 6 7 8))
|
||||
Testing dotted pairs.
|
||||
Put the edit caret after the 8.
|
||||
Type: \" .9\"
|
||||
Put the edit caret after the smaller list.
|
||||
Type: \" .10\"
|
||||
Now complete the edit by selecting DONE from the pop-up menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(5 (nil 6 7 8 . 9) . 10) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Trouble with single quote"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
"Assumping SEdit is editing tempx which currently equals (5 (nil 6 7 8 . 9) . 10)
|
||||
Testing single quotes.
|
||||
Pick the smaller list as a structure by holding both keys down over the open parenthensis.
|
||||
Press the delete key.
|
||||
Type: \"'(5 6 7\"
|
||||
Now complete the edit by selecting DONE from the pop-up menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(5 (quote (5 6 7)) . 10) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Trouble with control x"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
"Assumping SEdit is editing tempx which currently equals (5 (quote (5 6 7)) . 10)
|
||||
Testing control-w.
|
||||
Pick the smaller list as a structure by holding both keys down over the close parenthensis.
|
||||
Type control W.
|
||||
Now complete the edit by typing control x.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(5 . 10) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Trouble with control ("
|
||||
(do-test-menu-Message window-list 'high
|
||||
"Assumping SEdit is editing tempx which currently equals (5 . 10)
|
||||
Testing meta-(.
|
||||
Select 10 as a structure.
|
||||
Pick meta-( from the pop menu.
|
||||
Check to see if the caret is in front of the ten.
|
||||
Now complete the edit by typing control x.
|
||||
Was the caret in front of the ten?"))
|
||||
|
||||
|
||||
(do-test "Trouble with control ("
|
||||
(do-test-menu-Message window-list 'high
|
||||
"Assumping SEdit is editing tempx which currently equals (5 10)
|
||||
Testing meta-A.
|
||||
Place the edit caret after the ten.
|
||||
Type: \" 11 12 13\"
|
||||
Pick control-A from the pop-up menu.
|
||||
Confirm yes it is ok to abort.
|
||||
Were you able to get this far?"))
|
||||
|
||||
|
||||
(do-test "Trouble with control-B"
|
||||
(do-test-menu-Message window-list 'high
|
||||
"Assumping tempx is currently equals (5 10)
|
||||
Testing meta-B.
|
||||
Type: \"(il:dv tempx)\"
|
||||
Pick control-B from the pop menu and enter 3.
|
||||
Now complete the edit by selecting DONE from the pop-up menu.
|
||||
Do you see (#3r12 #3r101)?"))
|
||||
|
||||
|
||||
(do-test "Trouble with control-J"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
"Assumping SEdit is editing tempx which currently equals (5 10)
|
||||
Testing meta-J.
|
||||
First restore the base by picking control-B from the popup menu and entering 10.
|
||||
Delete everything inside the big list.
|
||||
Type: \"x x x\"
|
||||
Then select these three elements.
|
||||
Pick control-J from the pop menu.
|
||||
Now complete the edit by selecting DONE from the pop-up menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(xxx) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Trouble with control-M"
|
||||
(do-test-menu-Message window-list 'high
|
||||
"Assumping SEdit is editing tempx which currently equals (xxx)
|
||||
Testing meta-M.
|
||||
Pick control-M from the pop menu.
|
||||
Now complete the edit by selecting DONE from the pop-up menu.
|
||||
Does the menu come up and stay up?"))
|
||||
|
||||
|
||||
(do-test "Trouble with control-U"
|
||||
(do-test-menu-Message window-list 'high
|
||||
"Assumping SEdit is editing tempx which currently equals (xxx)
|
||||
Testing meta-U.
|
||||
Place the edit structure caret after the symbol xxx.
|
||||
Type: \" yyy\"
|
||||
Select Undo from the menu.
|
||||
Were you able to get this far?"))
|
||||
|
||||
|
||||
(do-test "Trouble with control-R"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
"Assumping SEdit is editing tempx which currently equals (xxx)
|
||||
Testing meta-R.
|
||||
Place the edit structure caret after the symbol xxx.
|
||||
Type: \" yyy\"
|
||||
Select Undo, Redo, and Exit from the menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(xxx yyy) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,175 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 4, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-high.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 "High level, high priority test"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "High-level")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
(do-test "Trouble typing with parentheses"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
" Testing parentheses
|
||||
If needed, bring up a second exec and type: \"(cl:in-package 'xcl-test)\"
|
||||
Then in the exec type:
|
||||
|
||||
(setq tempx '(5))
|
||||
(il:dv tempx)
|
||||
|
||||
Put the edit caret after the five in the SEdit window.
|
||||
Type \"(() 6 7 8)\"
|
||||
Now complete the edit by typing control x.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(5 (nil 6 7 8)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Trouble creating dotted pairs"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
" Testing dotted pairs.
|
||||
Assuming SEdit is editing tempx which currently equals (5 (nil 6 7 8))
|
||||
Put the edit caret after the 8.
|
||||
Type \" .9\".
|
||||
Put the edit caret after the smaller list.
|
||||
Type \" .10\".
|
||||
Now complete the edit by selecting DONE from the pop-up menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(5 (nil 6 7 8 . 9) . 10) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Trouble with single quote"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
" Testing single quotes.
|
||||
Assuming SEdit is editing tempx which currently equals (5 (nil 6 7 8 . 9) . 10)
|
||||
Pick the smaller list as a structure by pressing the middle button down over the open parenthensis.
|
||||
Press the delete key.
|
||||
Type \"'(5 6 7)\".
|
||||
Now complete the edit by selecting DONE from the pop-up menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(5 (quote (5 6 7)) . 10) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Trouble with control-w"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
" Testing control-w.
|
||||
Assuming SEdit is editing tempx which currently equals (5 '(5 6 7) . 10)
|
||||
Pick the smaller list as a structure by pressing the middle button down over the close parenthensis.
|
||||
Type control W.
|
||||
Now complete the edit by typing control x.
|
||||
Do you now have "(5 . 10)?"))
|
||||
(good-value (equal '(5 . 10) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Trouble with meta-("
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing meta-(.
|
||||
Assuming SEdit is editing tempx which currently equals (5 . 10)
|
||||
Select 10 as a structure.
|
||||
Pick meta-( from the pop menu.
|
||||
Check to see if the caret is in front of the ten.
|
||||
Now complete the edit by typing control x.
|
||||
Was the caret in front of the ten? "))
|
||||
|
||||
|
||||
(do-test "Trouble with meta-A"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing meta-A.
|
||||
Assuming SEdit is editing tempx which currently equals (5 10)
|
||||
Place the edit caret after the ten.
|
||||
Type \" 11 12 13\".
|
||||
Pick meta-A from the pop-up menu.
|
||||
Confirm yes it is ok to abort.
|
||||
Were you able to get this far?"))
|
||||
|
||||
|
||||
(do-test "Trouble with meta-B"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing meta-B.
|
||||
Assuming tempx is currently equals (5 10)
|
||||
Type: \"(il:dv tempx)\"
|
||||
Pick meta-B from the pop menu and enter 3.
|
||||
Now complete the edit by selecting DONE from the pop-up menu.
|
||||
Do you see (#3r12 #3r101)?"))
|
||||
|
||||
|
||||
(do-test "Trouble with meta-J"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
" Testing meta-J.
|
||||
Assuming SEdit is editing tempx which currently equals (5 10)
|
||||
First restore the base by picking meta-B from the popup menu and entering 10.
|
||||
Delete everything inside the big list.
|
||||
Type \"x x x\".
|
||||
Then select these three elements.
|
||||
Pick meta-J from the pop menu.
|
||||
Now complete the edit by selecting DONE from the pop-up menu.
|
||||
Did the three X's become one atom, XXX?"))
|
||||
(good-value (equal '(xxx) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Trouble with meta-M"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing meta-M.
|
||||
Assuming SEdit is editing tempx which currently equals (xxx)
|
||||
Pick meta-M from the pop menu.
|
||||
Now complete the edit by selecting DONE from the pop-up menu.
|
||||
Does the menu come up and stay up?"))
|
||||
|
||||
|
||||
(do-test "Trouble with meta-U"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing meta-U.
|
||||
Assuming SEdit is editing tempx which currently equals (xxx)
|
||||
Place the edit structure caret after the symbol xxx.
|
||||
Type \" yyy\".
|
||||
Select Undo from the menu.
|
||||
Were you able to get this far?"))
|
||||
|
||||
|
||||
(do-test "Trouble with meta-R"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
" Testing meta-R.
|
||||
Assuming SEdit is editing tempx which currently equals (xxx)
|
||||
Place the edit structure caret after the symbol xxx.
|
||||
Type \" yyy\".
|
||||
Select Undo, Redo, and Exit from the menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(xxx yyy) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,330 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 10, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-join.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 "Join"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Join")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Join: no selection/no caret"
|
||||
(let* (( user-result(do-test-menu-Message window-list 'high
|
||||
" Testing Join
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Join from the popup menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Want to place the structure caret right between \"b\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the comment as a structure and press the delete key.
|
||||
Type control-x.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: pending delete a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"4.5\" in pending delete mode.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: pending delete of a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a comment
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Place the structure caret the number \"1\".
|
||||
Type in \"; hello\"
|
||||
Select the comment in pending delete mode.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Delete the comment.
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-J
|
||||
Were the litatoms joined together to form \"abcd\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 abcd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-J
|
||||
Were the strings joined together to form the string \"helloBYE\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 abcd efg "helloBYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next number.
|
||||
Type meta-J.
|
||||
(If a break window pops up, uparrow out of it and indicate failure.)
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Can't join numbers.\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 abcd efg "helloBYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-J.
|
||||
Were the lists joined together to form the list \"(bye \"hi\" b cd 4)\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 abcd efg "helloBYE" (bye "hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of litatoms and numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye \"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-J.
|
||||
(If a break window pops up, uparrow out of it and indicate failure.)
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Can't join numbers.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of strings and lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye \"hi\" b cd 4))
|
||||
Select the string \"helloBYE\" as a structure, and extend the selection to include the next item.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Each item to join must be of the same type.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye \"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Each item to join must be of the same type.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye \"hi\" b cd 4))
|
||||
Select the entire structure.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 abcd efg "helloBYE" (bye "hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,330 +0,0 @@
|
||||
; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 10, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-join.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 "Join"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Join")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Join: no selection/no caret"
|
||||
(let* (( user-result(do-test-menu-Message window-list 'high
|
||||
" Testing Join
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Join from the popup menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Want to place the structure caret right between \"b\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structuret, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the comment as a structure and press the delete key.
|
||||
Type control-x.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: pending delete a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"4.5\" in pending delete mode.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: pending delete of a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a comment
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Place the structure caret the number \"1\".
|
||||
Type in \"; hello\"
|
||||
Select the comment in pending delete mode.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Delete the comment.
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-J
|
||||
Were the litatoms joined together to form \"abcd\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 abcd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-J
|
||||
Were the strings joined together to form the string \"helloBYE\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 abcd efg "helloBYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next number.
|
||||
Type meta-J.
|
||||
(If a break window pops up, uparrow out of it and indicate failure.)
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Can't join numbers.\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 abcd efg "helloBYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-J.
|
||||
Were the lists joined together to form the list \"(bye \"hi\" b cd 4)\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 abcd efg "helloBYE" (bye "hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Join: 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 variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye \"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-J.
|
||||
(If a break window pops up, uparrow out of it and indicate failure.)
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Can't join numbers.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: 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 variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye \"hi\" b cd 4))
|
||||
Select the string \"helloBYE\" as a structure, and extend the selection to include the next item.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Each item to join must be of the same type.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye \"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Each item to join must be of the same type.\"? "))
|
||||
|
||||
|
||||
(do-test "Join: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 abcd efg \"helloBYE\" (bye \"hi\" b cd 4))
|
||||
Select the entire structure.
|
||||
Type meta-J.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select items to join.\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 abcd efg "helloBYE" (bye "hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Done&Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,315 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 13, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-menu.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 "Menu"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Menu")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
;;; Since each command is tested in its own test suite,
|
||||
;;; only worry about if can bring up the menu.
|
||||
|
||||
(do-test "Menu: no selection/no caret"
|
||||
(let* (( user-result(do-test-menu-Message window-list 'high
|
||||
" Testing Menu
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Menu from the popup menu.
|
||||
Does the attached menu come up? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Menu: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
If the attached menu is up, close it.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Want to place the structure caret right between \"b\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the comment as a structure and press the delete key.
|
||||
If the attached menu is up, close it.
|
||||
Type control-x.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button with the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: pending delete a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the number \"4.5\" in pending delete mode.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: pending delete of a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a comment
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Place the structure caret the number \"1\".
|
||||
Type in \"; hello\"
|
||||
Select the comment in pending delete mode.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Delete the comment.
|
||||
If the attached menu is up, close it.
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next three litatoms.
|
||||
Type meta-M
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-M
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next number.
|
||||
Type meta-M
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of litatoms and numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next seven items.
|
||||
Type meta-m.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of strings and lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the three item.
|
||||
Type meta-M.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"This SEdit already has a menu\"? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the entire structure.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,315 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 13, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-menu.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 "Menu"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Menu")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
;;; Since each command is tested in its own test suite,
|
||||
;;; only worry about if can bring up the menu.
|
||||
|
||||
(do-test "Menu: no selection/no caret"
|
||||
(let* (( user-result(do-test-menu-Message window-list 'high
|
||||
" Testing Menu
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select AttachMenu from the popup menu.
|
||||
Does the attached menu come up? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Menu: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
If the attached menu is up, close it.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Want to place the structure caret right between \"b\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the comment as a structure and press the delete key.
|
||||
If the attached menu is up, close it.
|
||||
Type control-x.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button with the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: pending delete a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the number \"4.5\" in pending delete mode.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: pending delete of a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a comment
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Place the structure caret the number \"1\".
|
||||
Type in \"; hello\"
|
||||
Select the comment in pending delete mode.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 ; hello 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Delete the comment.
|
||||
If the attached menu is up, close it.
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next three litatoms.
|
||||
Type meta-M
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-M
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next number.
|
||||
Type meta-M
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: 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 variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next seven items.
|
||||
Type meta-m.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: 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 variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the three items.
|
||||
Type meta-M.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"This SEdit already has a menu\"? "))
|
||||
|
||||
|
||||
(do-test "Menu: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
|
||||
(do-test "Menu: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
If the attached menu is up, close it.
|
||||
Select the entire structure.
|
||||
Type meta-M.
|
||||
Does the attached menu come up? "))
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Done&Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,367 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 16, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-meta-o.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 "See/Change Definition"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "See/Change Definition")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
;;; some different things to look at:
|
||||
;;; optimizers: defoptimiziers
|
||||
;;; structures: defstruct
|
||||
;;; setfs: defsetf define-setf-method
|
||||
;;; types: deftype
|
||||
;;; variable: defglobalparameter, def-blobalvar, defconstant, defparameter, defvar
|
||||
;;; functions: define-modify-macro, defmacro, definline, defun,
|
||||
;;; define-type: def-define-type
|
||||
|
||||
;;; Have AR 7699 on the next three expected responses from meta-o
|
||||
(do-test "See/Change Definition: no selection/no caret"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing See/Change Definition
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq number 3)
|
||||
(setq cd '(a b wer))
|
||||
(setq efg '(1 2 3 4 5))
|
||||
(defoptimizer temp-add-five (number) (number) (+ 5 number))
|
||||
(define-modify-macro my-restf (list) cdr)
|
||||
(defmacro temp-double (number) `(+ ,number ,number))
|
||||
(define-modify-macro my-doublef (number) my-double)
|
||||
(defstruct temp-silly \"silly\" sing (in 0.0) (long \"ab\") low yeast)
|
||||
(defun temp-double (number) (declare (optimize speed)) (* 2 number))
|
||||
(defun temp-add-five (number) (+ 5 number))
|
||||
(defun temp-call-other (number)
|
||||
(let ((silly-temp (make-temp-silly)))
|
||||
(+ (temp-add-five number) (temp-double number))))
|
||||
(defun temp-garbage (x) '(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4)))
|
||||
(ed 'temp-call-other)
|
||||
|
||||
Select Edit from the popup menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: Test get right definiton"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing: get the FNS definition
|
||||
Assumping SEdit is editing the function temp-call-other.
|
||||
Select \"make-temp-silly\"
|
||||
Type meta-O.
|
||||
Does the FNS definition for \"make-temp-silly\" popup in an SEdit window? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: Test get structures definiton"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing: get the structures definition
|
||||
Assumping SEdit is editing the function temp-call-other & make-temp-silly.
|
||||
Select \"temp-silly\" in the SEdit window for \"make-temp-silly\" about eight lines down the window.
|
||||
Type meta-O.
|
||||
Does the STRUCTURES definition for \"temp-silly\" popup in an SEdit window? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: Test get defoptimizer definiton"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing: get the defoptimizer definition
|
||||
Assumping SEdit is editing the function temp-call-other & make-temp-silly, and the structure definition for temp-silly.
|
||||
Close the SEdit window for temp-silly, and make-temp-silly.
|
||||
Select \"temp-add-five\" in the SEdit window for \"temp-call-other\".
|
||||
Type meta-O.
|
||||
SEdit should ask \"Edit which definition of temp-add-five\".
|
||||
Select \"optimizes\".
|
||||
Did it ask and does the SEdit display in another SEdit window:
|
||||
\"(defoptimizer temp-add-five (number) (number) (+ 5 number))\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: Test get optimizers definiton"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing: get the optimizers definition
|
||||
Assumping SEdit is editing the function temp-call-other, and the optimizers definition for temp-add-five.
|
||||
Close the SEdit window for temp-add-five.
|
||||
Select \"temp-add-five\" in the SEdit window for \"temp-call-other\".
|
||||
Type meta-O.
|
||||
SEdit should ask \"Edit which definition of temp-add-five\".
|
||||
Select \"functions\".
|
||||
Did it ask and does the SEdit display in another SEdit window:
|
||||
\"(defun temp-add-five (number) (+ 5 number))\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the function temp-call-other & temp-add-five.
|
||||
Close both windows.
|
||||
Type \"(ed 'temp-garbage)\"
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Want to place the structure caret right between \"b\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-O.
|
||||
(If asked to select a type of dummy definition to install, pick VARS.)
|
||||
Does a second SEdit window pop up editing the var CD with a value o:
|
||||
\"(a b wer)\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the function temp-garbage and the veariable CD.
|
||||
Close the SEdit window for the variable CD.
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-O.
|
||||
Select VARIABLE, then DEFVAR
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"\"hello\" not editable.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-O.
|
||||
Select OPTIMIZERS, DEFOPTIMIZER
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"4.5 not editable.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-O.
|
||||
Select DEFINE-TYPES, DEF-DEFINE-TYPE
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"(bye) not editable.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-O.
|
||||
Select FUNCTIONS, DEFUN
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"(il:* il:\\; \" hello\") not editable.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the comment as a structure and press the delete key.
|
||||
Type control-x.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the function temp-garbage and the variable cd.
|
||||
Close the SEdit window for the variable \"cd\".
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assumping SEdit is editing the function temp-garbage and the variable efg.
|
||||
Close the SEdit window for efg.
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: pending delete a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the number \"4.5\" in pending delete mode.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: pending delete of a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a comment
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Place the structure caret the number \"1\".
|
||||
Type in \"; hello\"
|
||||
Select the comment in pending delete mode.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Delete the comment.
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next three litatoms.
|
||||
Type meta-O
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-O
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next three numbers.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of litatoms and numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next seven items.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of strings and lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the function temp-garbage.
|
||||
Select the entire structure.
|
||||
Type meta-O.
|
||||
Select FNS, NLAMBDA.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"(defun temp-garbage (x) (quote (1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (BYE) (\"hi\" b cd 4)))) not editable.\"? "))
|
||||
|
||||
|
||||
;;; After testing the enter points test the command some.
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,365 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 16, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-meta-o.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 "See/Change Definition"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "See/Change Definition")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
;;; some different things to look at:
|
||||
;;; optimizers: defoptimiziers
|
||||
;;; structures: defstruct
|
||||
;;; setfs: defsetf define-setf-method
|
||||
;;; types: deftype
|
||||
;;; variable: defglobalparameter, def-blobalvar, defconstant, defparameter, defvar
|
||||
;;; functions: define-modify-macro, defmacro, definline, defun,
|
||||
;;; define-type: def-define-type
|
||||
|
||||
;;; Have AR 7699 on the next three expected responses from meta-o
|
||||
(do-test "See/Change Definition: no selection/no caret"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing See/Change Definition
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq number 3)
|
||||
(setq cd '(a b wer))
|
||||
(setq efg '(1 2 3 4 5))
|
||||
(defoptimizer temp-add-five (number) (number) (+ 5 number))
|
||||
(define-modify-macro my-restf (list) cdr)
|
||||
(defmacro temp-double (number) `(+ ,number ,number))
|
||||
(define-modify-macro my-doublef (number) my-double)
|
||||
(defstruct temp-silly \"silly\" sing (in 0.0) (long \"ab\") low yeast)
|
||||
(defun temp-double (number) (declare (optimize speed)) (* 2 number))
|
||||
(defun temp-add-five (number) (+ 5 number))
|
||||
(defun temp-call-other (number)
|
||||
(let ((silly-temp (make-temp-silly)))
|
||||
(+ (temp-add-five number) (temp-double number))))
|
||||
(defun temp-garbage (x) '(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4)))
|
||||
(ed 'temp-call-other)
|
||||
|
||||
Select Edit from the popup menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: Test get right definiton"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing: get the FNS definition
|
||||
Assuming SEdit is editing the function temp-call-other.
|
||||
Select \"make-temp-silly\"
|
||||
Type meta-O.
|
||||
Does the FNS definition for \"make-temp-silly\" popup in an SEdit window? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: Test get structures definiton"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing: get the structures definition
|
||||
Assuming SEdit is editing the function temp-call-other & make-temp-silly.
|
||||
Select \"temp-silly\" in the SEdit window for \"make-temp-silly\" about eight lines down the window.
|
||||
Type meta-O.
|
||||
Does the STRUCTURES definition for \"temp-silly\" popup in an SEdit window? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: Test get defoptimizer definiton"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing: get the defoptimizer definition
|
||||
Assuming SEdit is editing the function temp-call-other & make-temp-silly, and the structure definition for temp-silly.
|
||||
Close the SEdit window for temp-silly, and make-temp-silly.
|
||||
Select \"temp-add-five\" in the SEdit window for \"temp-call-other\".
|
||||
Type meta-O.
|
||||
SEdit should ask \"Edit which definition of temp-add-five\".
|
||||
Select \"optimizers\".
|
||||
Did it ask and does the SEdit display in another SEdit window:
|
||||
\"(defoptimizer temp-add-five (number) (number) (+ 5 number))\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: Test get optimizers definiton"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing: get the optimizers definition
|
||||
Assuming SEdit is editing the function temp-call-other, and the optimizers definition for temp-add-five.
|
||||
Close the SEdit window for temp-add-five.
|
||||
Select \"temp-add-five\" in the SEdit window for \"temp-call-other\".
|
||||
Type meta-O.
|
||||
SEdit should ask \"Edit which definition of temp-add-five\".
|
||||
Select \"functions\".
|
||||
Did it ask and does the SEdit display in another SEdit window:
|
||||
\"(defun temp-add-five (number) (+ 5 number))\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: 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 & temp-add-five.
|
||||
Close both windows.
|
||||
Type \"(ed 'temp-garbage)\"
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Want to place the structure caret right between \"b\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-O.
|
||||
(If asked to select a type of dummy definition to install, pick VARS.)
|
||||
Does a second SEdit window pop up editing the var CD with a value of:
|
||||
\"(a b wer)\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the function temp-garbage and the variable CD.
|
||||
Close the SEdit window for the variable CD.
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-O.
|
||||
Select VARIABLES, then DEFVAR
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"\"hello\" has no VARIABLES definition.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: 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 \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-O.
|
||||
Select OPTIMIZERS, DEFOPTIMIZER
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"4.5 not editable.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: 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 \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-O.
|
||||
Select DEFINE-TYPES, DEF-DEFINE-TYPE
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"(BYE) has no DEFINE-TYPES definition.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-O.
|
||||
Select FUNCTIONS, DEFUN
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"(il:* il:\\; \" hello\") has no FUNCTIONS definition.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: 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 comment as a structure and press the delete key.
|
||||
Type control-x.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: 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 and the variable cd.
|
||||
Close the SEdit window for the variable \"cd\".
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: 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 \"7\" in the number \"6/7\".
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: pending delete a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Select the number \"4.5\" in pending delete mode.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: pending delete of a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a comment
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Place the structure caret the number \"1\".
|
||||
Type in \"; hello\"
|
||||
Select the comment in pending delete mode.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Delete the comment.
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next three litatoms.
|
||||
Type meta-O
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-O
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next three numbers.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: 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-garbage.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next seven items.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: 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-garbage.
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: 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-garbage.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-O.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select name of object to edit.\"? "))
|
||||
|
||||
|
||||
(do-test "See/Change Definition: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the function temp-garbage.
|
||||
Select the entire structure.
|
||||
Type meta-O.
|
||||
Select FNS, NLAMBDA.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"(defun temp-garbage (x) (quote (1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (BYE) (\"hi\" b cd 4)))) not editable.\"? "))
|
||||
|
||||
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Done&Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,313 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 23, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-mutate.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 "Mutate"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Mutate")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Mutate: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Mutate
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(defun temp-double (number) (* 2 number))
|
||||
(defun temp-build-string (string)
|
||||
(concatenate 'string string \" more\"))
|
||||
(defun temp-car (list) (car list))
|
||||
(defun temp-return-value () '(a list))
|
||||
(setq tempx '(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Mutate from the pop up menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Mutate: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Want to place the structure caret right between \"(b)\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) \"hi\" (b) cd 4))
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-Z.
|
||||
Enter \"temp-return-value\".
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Error during mutation. No changes made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Mutate: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-Z.
|
||||
Enter \"temp-build-string\".
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello more" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Mutate: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello more\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-Z.
|
||||
Enter \"temp-double\"
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 9.0 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Mutate: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 9.0 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-Z.
|
||||
Enter \"temp-car\"
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" bye ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Mutate: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" bye (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-Z
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-Z
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of litatoms and numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of strings and lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) gh 4))
|
||||
Select the entire structure.
|
||||
Type meta-Z.
|
||||
Enter \"temp-car\"
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal 1 tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
|
||||
(do-test "Mutate: Pending delete of whole structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the entire structure in pending delete mode.
|
||||
Type meta-z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,313 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 23, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-mutate.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 "Mutate"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Mutate")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Mutate: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Mutate
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(defun temp-double (number) (* 2 number))
|
||||
(defun temp-build-string (string)
|
||||
(concatenate 'string string \" more\"))
|
||||
(defun temp-car (list) (car list))
|
||||
(defun temp-return-value () '(a list))
|
||||
(setq tempx '(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Mutate from the pop up menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Mutate: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Want to place the structure caret right between \"(b)\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) \"hi\" (b) cd 4))
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-Z.
|
||||
Enter \"temp-return-value\".
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Error during mutation. No changes made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Mutate: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-Z.
|
||||
Enter \"temp-build-string\".
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello more" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Mutate: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello more\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-Z.
|
||||
Enter \"temp-double\"
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 9.0 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Mutate: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 9.0 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-Z.
|
||||
Enter \"temp-car\"
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" bye ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Mutate: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" bye (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-Z
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-Z
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: 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 variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: 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 variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-Z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Mutate: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) gh 4))
|
||||
Select the entire structure.
|
||||
Type meta-Z.
|
||||
Enter \"temp-car\"
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal 1 tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
|
||||
(do-test "Mutate: Pending delete of whole structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the entire structure in pending delete mode.
|
||||
Type meta-z.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select whole structure to mutate.\"? "))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Done&Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,337 +0,0 @@
|
||||
;; 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>SEdit-command-low-paren.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 "Parenthesize current selection"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Parenthesize")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
(do-test "Parenthesize: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing parentheses
|
||||
If needed, bring up a second exec and type: \"(cl:in-package 'xcl-test)\"
|
||||
Then in the exec type:
|
||||
|
||||
(setq tempx '(1 23 ab cd \"how\" \"are\" \"you\" (\"hi\" \"bye\" a 23 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Type meta-(.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(1 23 ab cd "how" "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: no selection/edit caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (1 23 ab cd \"how\" \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Testing: no selection/edit caret
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-(.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(1 23 ab cd "how" "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: no selection/structure caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (1 23 ab cd \"how\" \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Testing: no selection/structure caret
|
||||
Want to place the structure caret right between \"ab\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-(.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(1 23 ab cd "how" "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (1 23 ab cd \"how\" \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Testing: select a litatom
|
||||
Select the litatom \"ab\" as a structure, by pressing the middle button with the cursor over the litatom.
|
||||
Type meta-).
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(1 23 (ab) cd "how" "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (1 23 (ab) cd \"how\" \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Testing: select a string
|
||||
Select the string \"how\" as a structure, by pressing the middle button, with the cursor over the string.
|
||||
Type meta-).
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(1 23 (ab) cd ("how") "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (1 23 (ab) cd (\"how\") \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Testing: select a number
|
||||
Select the number \"1\" as a structure, by pressing the middle button, with the cursor over the number.
|
||||
Select PAREN from the popup menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Testing: select a list
|
||||
Select the list (\"hi\" \"bye\" a 23 4) as a structure.
|
||||
Type meta-9, and then control-x.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
(do-test "Parenthesize: select a comment"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Testing: select a comment
|
||||
Place the edit caret after the number 23 and type \"; hello\", then select this as a structure, and type meta-0.
|
||||
Check to see if it has parenthesis around it, then select Abort from the pop-up menu.
|
||||
Was the parenthesis around the comment?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select part of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Testing: select part of a litatom
|
||||
Type: \"(il:dv tempx)\"
|
||||
Select the \"d\" in the litatom \"cd\" and type meta-0.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select part of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Testing: select part of a string
|
||||
Select the \"h\" in the string \"how\" and type meta-0.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Testing: select part of a number
|
||||
Select the \"2\" in the number \"23\" and type meta-0.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: delete a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Testing: try after deleting a litatom
|
||||
Place the edit caret after the litatom \"ab\" with in the list.
|
||||
Type \" ef\", then control-W and meta-0.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: delete a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Testing: try after deleting a string
|
||||
Place the structure caret after the string \"hi\" with in the list.
|
||||
Type a double quote, and then the word \"there\", put the structure caret right after this string, and type control-W and meta-0.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: delete a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Testing: try after deleting a number
|
||||
Place the edit caret right after the number \"23\" with no selection.
|
||||
Type control-W, and meta-(, control-x.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: delete a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Testing: try after deleting a number
|
||||
Place the structure caret right after the list \"((\"hi\" \"bye\" a 23 4))\" with no selection.
|
||||
Type control-W, and meta-(, control-x.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) (ab) cd ("how") "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: delete a comment"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) (ab) cd (\"how\") \"are\" \"you\")
|
||||
Testing: try after deleting a comment
|
||||
Place the structure caret after the litatom \"cd\" and type \"; hello\", then select this as a structure with the caret to the right.
|
||||
Press the delete key and type meta-(, control-x.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) (ab) cd ("how") "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) (ab) cd (\"how\") \"are\" \"you\")
|
||||
Testing: try extended selection of litatoms
|
||||
Place the edit caret after the litatom \"cd\".
|
||||
Type \" ef gh\".
|
||||
Now select the litatom \"cd\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-(.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) (ab) (cd ef gh) ("how") "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) (ab) (cd ef gh) (\"how\") \"are\" \"you\")
|
||||
Testing: extended selection of strings
|
||||
Select the string \"are\" as a structure, and extend the selection to include the next string.
|
||||
Type meta-(.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) (ab) (cd ef gh) ("how") ("are" "you")) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) (ab) (cd ef gh) (\"how\") (\"are\" \"you\"))
|
||||
Testing: extended selection of numbers
|
||||
Place the structure caret after the list \"(1)\".
|
||||
Type \" 2 3 4\".
|
||||
Now select the number \"2\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-).
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) (2 3 4) (ab) (cd ef gh) ("how") ("are" "you")) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) (2 3 4) (ab) (cd ef gh) (\"how\") (\"are\" \"you\"))
|
||||
Testing: extended selection of lists
|
||||
Select the list \"(2 3 4)\" as a structure, and extend the selection to include the next two lists.
|
||||
Type meta-).
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) ((2 3 4) (ab) (cd ef gh)) ("how") ("are" "you")) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of litatoms and numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) ((2 3 4) (ab) (cd ef gh)) (\"how\") (\"are\" \"you\"))
|
||||
Testing: extended selection of litatoms and numbers
|
||||
Select the list \"((2 3 4) (ab) (cd ef gh))\" as a structure and press the delete key.
|
||||
Now type \" ab 23 cd 45\"
|
||||
Select the litatom \"ab\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-).
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) (ab 23 cd 45) ("how") ("are" "you")) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of strings and lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) (ab 23 cd 45) (\"how\") (\"are\" \"you\"))
|
||||
Testing: extended selection of strings and lists
|
||||
Place the structure caret after the list \"(1)\".
|
||||
Type \" (hi) \"hi\" (bye) \"bye\" (list-string)\"
|
||||
Select the list \"(hi)\" as a structure, and extend the selection to include the next four items.
|
||||
Select Paren from the popup menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) ((hi) "hi" (bye) "bye" (list-string)) (ab 23 cd 45) ("how") ("are" "you")) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of several things"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) ((hi) \"hi\" (bye) \"bye\" (list-string)) (ab 23 cd 45) (\"how\") (\"are\" \"you\"))
|
||||
Testing: extended selection of several things
|
||||
Select the second list as a structure, extend the select to include the rest of the items, and press the delete key.
|
||||
Type \"23 a-litatom 45 \"hi\" bye (my small list)\"
|
||||
Select the number \"23\" as a structure, and extend the selection to include the next six items.
|
||||
Select Paren from the popup menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '((1) (23 a-litatom 45 "hi" bye (my small list))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals ((1) (23 a-litatom 45 \"hi\" bye (my small list)))
|
||||
Testing: selection of entire structure
|
||||
Select the entire structure.
|
||||
Select Paren from the popup menu.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(((1) (23 a-litatom 45 "hi" bye (my small list)))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,342 +0,0 @@
|
||||
;; 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>SEdit-command-low-paren.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 "Parenthesize current selection"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Parenthesize")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
(do-test "Parenthesize: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing parentheses
|
||||
If needed, bring up a second exec and type: \"(cl:in-package 'xcl-test)\"
|
||||
Then in the exec type:
|
||||
|
||||
(setq tempx '(1 23 ab cd \"how\" \"are\" \"you\" (\"hi\" \"bye\" a 23 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Type meta-(.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '(1 23 ab cd "how" "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: no selection/edit caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing tempx which currently equals (1 23 ab cd \"how\" \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-(.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '(1 23 ab cd "how" "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: no selection/structure caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing tempx which currently equals (1 23 ab cd \"how\" \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Want to place the structure caret right between \"ab\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-(.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '(1 23 ab cd "how" "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing tempx which currently equals (1 23 ab cd \"how\" \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Select the litatom \"ab\" as a structure, by pressing the middle button with the cursor over the litatom.
|
||||
Type meta-).
|
||||
Is the litatom AB now parenthesized?"))
|
||||
(good-value (equal '(1 23 (ab) cd "how" "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing tempx which currently equals (1 23 (ab) cd \"how\" \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Select the string \"how\" as a structure, by pressing the middle button, with the cursor over the string.
|
||||
Type meta-).
|
||||
Is the string \"how\" now parenthesized?"))
|
||||
(good-value (equal '(1 23 (ab) cd ("how") "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing tempx which currently equals (1 23 (ab) cd (\"how\") \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Select the number \"1\" as a structure, by pressing the middle button, with the cursor over the number.
|
||||
Select PARENTHESIZE from the popup menu.
|
||||
Is the number \"1\" now parenthesized?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" ("hi" "bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" (\"hi\" \"bye\" a 23 4))
|
||||
Select the list (\"hi\" \"bye\" a 23 4) as a structure.
|
||||
Type meta-9, and then control-x.
|
||||
Is the list now parenthesized?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
(do-test "Parenthesize: select a comment"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assuming SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Place the edit caret after the number 23 and type \"; hello\", then select this as a structure, and type meta-0.
|
||||
Check to see if it has parenthesis around it, then select Abort from the pop-up menu, clicking the left button to confirm the abort.
|
||||
Was the parenthesis around the comment?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select part of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming tempx currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Type: \"(il:dv tempx)\"
|
||||
Select the \"d\" in the litatom \"cd\" and type meta-0.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select part of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Select the \"h\" in the string \"how\" and type meta-0.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Select the \"2\" in the number \"23\" and type meta-0.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: delete a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a litatom
|
||||
Assuming SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Place the edit caret after the litatom \"ab\" with in the list.
|
||||
Type \" ef\", then control-W and meta-0.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: delete a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a string
|
||||
Assuming SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Place the structure caret after the string \"hi\" with in the list.
|
||||
Type a double quote, and then the word \"there\", put the structure caret right after this string, and type control-W and meta-0.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '((1) 23 (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: delete a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a number
|
||||
Assuming SEdit is editing tempx which currently equals ((1) 23 (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Place the edit caret right after the number \"23\" with no selection.
|
||||
Type control-W, and meta-(, control-x.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '((1) (ab) cd ("how") "are" "you" (("hi" "bye" a 23 4))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: delete a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a list
|
||||
Assuming SEdit is editing tempx which currently equals ((1) (ab) cd (\"how\") \"are\" \"you\" ((\"hi\" \"bye\" a 23 4)))
|
||||
Place the structure caret right after the list \"((\"hi\" \"bye\" a 23 4))\" with no selection.
|
||||
Type control-W, and meta-(, control-x.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '((1) (ab) cd ("how") "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: delete a comment"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try after deleting a comment
|
||||
Assuming SEdit is editing tempx which currently equals ((1) (ab) cd (\"how\") \"are\" \"you\")
|
||||
Place the structure caret after the litatom \"cd\" and type \"; hello\", then select this as a structure with the caret to the right.
|
||||
Press the delete key and type meta-(, control-x.
|
||||
Does the SEdit prompt window say \"Select structure to parenthesize.\"?"))
|
||||
(good-value (equal '((1) (ab) cd ("how") "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing tempx which currently equals ((1) (ab) cd (\"how\") \"are\" \"you\")
|
||||
Place the edit caret after the litatom \"cd\".
|
||||
Type \" ef gh\".
|
||||
Now select the litatom \"cd\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-(.
|
||||
Are the three litatoms now parenthesized?"))
|
||||
(good-value (equal '((1) (ab) (cd ef gh) ("how") "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing tempx which currently equals ((1) (ab) (cd ef gh) (\"how\") \"are\" \"you\")
|
||||
Select the string \"are\" as a structure, and extend the selection to include the next string.
|
||||
Type meta-(.
|
||||
Are the two strings now parenthesized?"))
|
||||
(good-value (equal '((1) (ab) (cd ef gh) ("how") ("are" "you")) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing tempx which currently equals ((1) (ab) (cd ef gh) (\"how\") (\"are\" \"you\"))
|
||||
Place the structure caret after the list \"(1)\".
|
||||
Type \" 2 3 4\".
|
||||
Now select the number \"2\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-).
|
||||
Are the three numbers now parenthesized?"))
|
||||
(good-value (equal '((1) (2 3 4) (ab) (cd ef gh) ("how") ("are" "you")) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing tempx which currently equals ((1) (2 3 4) (ab) (cd ef gh) (\"how\") (\"are\" \"you\"))
|
||||
Select the list \"(2 3 4)\" as a structure, and extend the selection to include the next two lists.
|
||||
Type meta-).
|
||||
Are the three lists now parenthesized?"))
|
||||
(good-value (equal '((1) ((2 3 4) (ab) (cd ef gh)) ("how") ("are" "you")) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of litatoms and numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assuming SEdit is editing tempx which currently equals ((1) ((2 3 4) (ab) (cd ef gh)) (\"how\") (\"are\" \"you\"))
|
||||
Select the list \"((2 3 4) (ab) (cd ef gh))\" as a structure and press the delete key.
|
||||
Now type \" ab 23 cd 45\"
|
||||
Select the litatom \"ab\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-).
|
||||
Is the selection now parenthesized?"))
|
||||
(good-value (equal '((1) (ab 23 cd 45) ("how") ("are" "you")) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of strings and lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assuming SEdit is editing tempx which currently equals ((1) (ab 23 cd 45) (\"how\") (\"are\" \"you\"))
|
||||
Place the structure caret after the list \"(1)\".
|
||||
Type \" (hi) \"hi\" (bye) \"bye\" (list-string)\"
|
||||
Select the list \"(hi)\" as a structure, and extend the selection to include the next four items.
|
||||
Select Parenthesize from the popup menu.
|
||||
Is the selection now parenthesized?"))
|
||||
(good-value (equal '((1) ((hi) "hi" (bye) "bye" (list-string)) (ab 23 cd 45) ("how") ("are" "you")) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: extended selection of several things"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing tempx which currently equals ((1) ((hi) \"hi\" (bye) \"bye\" (list-string)) (ab 23 cd 45) (\"how\") (\"are\" \"you\"))
|
||||
Select the second list as a structure, extend the select to include the rest of the items, and press the delete key.
|
||||
Type \"23 a-litatom 45 \"hi\" bye (my small list)\"
|
||||
Select the number \"23\" as a structure, and extend the selection to include the next five items.
|
||||
Select Parenthesize from the popup menu.
|
||||
Is the selection now parenthesized?"))
|
||||
(good-value (equal '((1) (23 a-litatom 45 "hi" bye (my small list))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Parenthesize: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assuming SEdit is editing tempx which currently equals ((1) (23 a-litatom 45 \"hi\" bye (my small list)))
|
||||
Testing: selection of entire structure
|
||||
Select the entire structure.
|
||||
Select Parenthesize from the popup menu.
|
||||
Is the entire structure inside an extra set of parentheses?"))
|
||||
(good-value (equal '(((1) (23 a-litatom 45 "hi" bye (my small list)))) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
(do-test "Parenthesize: clean-up"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Close the SEdit window.")))
|
||||
))
|
||||
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,384 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 21, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-substitute.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 "Substitute"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Substitute")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Substitute: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Substitute
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Substitute from the pop up menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to substitue within.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-S.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to substitute within.\"? "))
|
||||
|
||||
|
||||
(do-test "Substitute: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Want to place the structure caret right between \"(b)\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-S.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to substitute within.\"? "))
|
||||
|
||||
|
||||
(do-test "Substitute: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) \"hi\" (b) cd 4))
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-S.
|
||||
Enter the litatom \"cd\" then the litatom \"cde\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cde efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cde efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-S.
|
||||
Enter the string \"hello\" then the string \"HELLO\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "HELLO" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"HELLO\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-S.
|
||||
Enter the number \"4.5\" then the number \"5.4\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 5.4 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 5.4 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-S.
|
||||
Enter the list \"(bye)\" then the list \"(bye now)\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye now) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye now) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-S.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to substitue within.\"? "))
|
||||
|
||||
|
||||
(do-test "Substitute: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-S.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to substitue within.\"? "))
|
||||
|
||||
|
||||
(do-test "Substitute: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-S.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to substitue within.\"? "))
|
||||
|
||||
|
||||
(do-test "Substitute: pending delete of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-S.
|
||||
First enter the litatom \"efg\" then the number \"999\".
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd 999 "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: pending delete of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd 999 \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-S.
|
||||
First enter the string \"hello\" then the litatom \"we-2\".
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg we-2 "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
;Have an AR on this
|
||||
;(do-test "Substitute: pending delete a number"
|
||||
; (let* ((user-result (do-test-menu-Message window-list 'low
|
||||
;" Testing: pending delete of a number
|
||||
;Assumping SEdit is editing the variable tempx which currently equals:
|
||||
; (1 4.5 6/7 a cd efg we-2 \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
;Type meta-U.
|
||||
;Select the number \"4.5\" in pending delete mode.
|
||||
;Type meta-S.
|
||||
;Enter the number \"4.5\", then the list \"(a b c d)\".
|
||||
;Does SEdit display in the SEdit prompt window:
|
||||
; \"Select structure to extract.\"? "))
|
||||
; (good-value (equal '(1 (a b c d) 6/7 a cd efg "hello" "BYE" (bye) ("hi" ;(b) cd 4)) tempx)))
|
||||
; (and user-result (if (eq t user-result) good-value T))
|
||||
; ))
|
||||
|
||||
|
||||
(do-test "Substitute: pending delete of a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg we-2 \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-S.
|
||||
Enter the list \"(bye)\", then the number \"2\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" 2 ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" 2 (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-S
|
||||
Enter the litatom \"a\", then the string \"Wedding song\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 "Wedding song" cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 \"Wedding song\" cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-S
|
||||
First enter the string \"hello\", then the number \"12\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg 12 "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg 12 \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-S.
|
||||
First enter the number \"6/7\", then the list \"(56 65)\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 (56 65) a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 (56 65) a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-S.
|
||||
First enter the list \"(b)\", then the litatom \"bcd\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" bcd cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of litatoms and numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" bcd cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-S.
|
||||
First enter the number \"1\", then the litatom \"qw\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(qw 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of strings and lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(qw 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-S.
|
||||
First enter the string \"BYE\", then the number \"7878\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" 7878 (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of several things"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" 7878 (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-S.
|
||||
First enter the litatom \"cd\", then the litatom \"gh\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"2 substitutions made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a gh efg "hello" "BYE" (bye) ("hi" (b) gh 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a gh efg \"hello\" \"BYE\" (bye) (\"hi\" (b) gh 4))
|
||||
Type meta-U.
|
||||
Select the entire structure.
|
||||
Type meta-S.
|
||||
First enter the string \"Should not change value\", then the litatom \"not-there\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"No substitutions made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: Pending delete of whole structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the entire structure in pending delete mode.
|
||||
Type meta-m.
|
||||
Enter the number 4 in the FIND field. and the number 5 in the SUBSTITUE field.
|
||||
Pick the substitute command on the attached menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Select structure to extract.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 5)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,383 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 21, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-substitute.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 "Substitute"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Substitute")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Substitute: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Substitute
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Select Substitute from the pop up menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Please select a structure to substitute within.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-S.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Please select a structure to substitute within.\"? "))
|
||||
|
||||
|
||||
(do-test "Substitute: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Want to place the structure caret right between \"(b)\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-S.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Please select a structure to substitute within.\"? "))
|
||||
|
||||
|
||||
(do-test "Substitute: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) \"hi\" (b) cd 4))
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-S.
|
||||
Enter the litatom \"cd\" then the litatom \"cde\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cde efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cde efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-S.
|
||||
Enter the string \"hello\" (with quotes) then the string \"HELLO\" (with quotes).
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "HELLO" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"HELLO\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-S.
|
||||
Enter the number \"4.5\" then the number \"5.4\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 5.4 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 5.4 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-S.
|
||||
Enter the list \"(bye)\" then the list \"(bye now)\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye now) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye now) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-S.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Please select a structure to substitute within.\"? "))
|
||||
|
||||
|
||||
(do-test "Substitute: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-S.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Please select a structure to substitute within.\"? "))
|
||||
|
||||
|
||||
(do-test "Substitute: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-S.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"Please select a structure to substitute within.\"? "))
|
||||
|
||||
|
||||
(do-test "Substitute: pending delete of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-S.
|
||||
First enter the litatom \"efg\" then the number \"999\".
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd 999 "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: pending delete of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd 999 \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-S.
|
||||
First enter the string \"hello\" (with quotes) then the litatom \"we-2\" (without quotes).
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg we-2 "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: pending delete a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg we-2 \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"4.5\" in pending delete mode.
|
||||
Type meta-S.
|
||||
Enter the number \"4.5\", then the list \"(a b c d)\".
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 (a b c d) 6/7 a cd efg "hello" "BYE" (bye) ("hi" ;(b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: pending delete of a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg we-2 \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-S.
|
||||
Enter the list \"(bye)\", then the number \"2\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" 2 ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" 2 (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-S
|
||||
Enter the litatom \"a\", then the string \"Wedding song\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 "Wedding song" cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 \"Wedding song\" cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-S
|
||||
First enter the string \"hello\", then the number \"12\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg 12 "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg 12 \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-S.
|
||||
First enter the number \"6/7\", then the list \"(56 65)\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 (56 65) a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 (56 65) a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-S.
|
||||
First enter the list \"(b)\", then the litatom \"bcd\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" bcd cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of litatoms and numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" bcd cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-S.
|
||||
First enter the number \"1\", then the litatom \"qw\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(qw 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of strings and lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(qw 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-S.
|
||||
First enter the string \"BYE\", then the number \"7878\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" 7878 (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: extended selection of several things"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" 7878 (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-S.
|
||||
First enter the litatom \"cd\", then the litatom \"gh\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"2 substitutions made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a gh efg "hello" "BYE" (bye) ("hi" (b) gh 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a gh efg \"hello\" \"BYE\" (bye) (\"hi\" (b) gh 4))
|
||||
Type meta-U.
|
||||
Select the entire structure.
|
||||
Type meta-S.
|
||||
First enter the string \"Should not change value\", then the litatom \"not-there\"
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"No substitutions made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Substitute: Pending delete of whole structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Type meta-U.
|
||||
Select the entire structure in pending delete mode.
|
||||
Type meta-m.
|
||||
Enter the number 4 in the FIND field. and the number 5 in the SUBSTITUTE field.
|
||||
Pick the substitute command on the attached menu.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"1 substitution made.\"? "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 5)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting EXIT from the attached menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,645 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 17, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-undo-redo.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 "Undo/Redo"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Undo/Redo")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Undo: no selection/no caret"
|
||||
(let* (( user-result(do-test-menu-Message window-list 'high
|
||||
" Testing Undo
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4)))
|
||||
(ed 'tempx)
|
||||
|
||||
Select Undo from the popup menu.
|
||||
Does it respond with:
|
||||
\"Nothing to Undo\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: no selection/no caret"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing Redo
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select DONE from the popup menu.
|
||||
Select Redo from the popup menu.
|
||||
Does it respond with:
|
||||
\"No Undo to Undo\"? "))
|
||||
|
||||
|
||||
(do-test "Undo: no selection/edit caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"4.5\" and press the delete key.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: no selection/edit caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: no selection/structure caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Want to place the structure caret right between \"b\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: no selection/structure caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Place the structure caret between \"b\" and \"cd\".
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the third litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the fourth litatom \"efg\" as a structure.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"6/7\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" as a structure.
|
||||
Type meta-R.
|
||||
Select the string \"BYE\" and press the delete key.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select a comment"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-U three times.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the number 2 and type \"; bye\", then select this as a structure.
|
||||
Type meta-R.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"No Undo to Undo\"? "))
|
||||
|
||||
|
||||
(do-test "Undo: select part of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 ; bye 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the comment as a structure and press the delete key.
|
||||
Type control-x.
|
||||
Place the strcuture caret after the litatom \"efg\"
|
||||
Type: \"(Have a nice day please)\"
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select part of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"f\" in the litatom \"efg\".
|
||||
Type meta-R twice.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"No Undo to Undo.\"? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day please) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select part of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day please) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-U three times.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select part of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"B\" in the string \"BYE\".
|
||||
Type meta-R twice.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-U four times.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg () "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg () \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"6\" in the number \"6/7\".
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: pending delete of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the litatom \"cd\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"c\" and then pressing the right button withe the cursor on the \"d\". This should create a box around the litatom \"cd\".
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg () "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: pending delete of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg () \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode.
|
||||
Type meta-R four times.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: pending delete of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: pending delete of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye.
|
||||
Type meta-R twice.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day please) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: pending delete a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day please) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"6/7\" in pending delete mode.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: pending delete a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"6/7\" in pending delete mode.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day please) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: pending delete of a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day please) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: pending delete of a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day please) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day please) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(Have a nice day please)\" and press the delete key.
|
||||
Type control-x.
|
||||
Select the litatom \"cd\" as a structure, and extend the selection to include the next litatom, type \"defgh\".
|
||||
Select the litatom \"a\" and extend the selection to include the next two litatoms.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-R
|
||||
Were the litatoms joined together to form \"abcd\"? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-U
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-R
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next number.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hi\" as a structure, and extend the selection to include the previous list.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of litatoms and numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of litatoms and numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of strings and lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of strings and lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of several things"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of several things"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the entire structure.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
(do-test "Redo: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4)
|
||||
Select the entire structure.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,645 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 17, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-undo-redo.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 "Undo/Redo"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Undo/Redo")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Undo: no selection/no caret"
|
||||
(let* (( user-result(do-test-menu-Message window-list 'high
|
||||
" Testing Undo
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4)))
|
||||
(ed 'tempx)
|
||||
|
||||
Select Undo from the popup menu.
|
||||
Does it respond with:
|
||||
\"Nothing to Undo\"? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: no selection/no caret"
|
||||
(do-test-menu-Message window-list 'high
|
||||
" Testing Redo
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select DONE from the popup menu.
|
||||
Select Redo from the popup menu.
|
||||
Does it respond with:
|
||||
\"No Undo to Undo\"? "))
|
||||
|
||||
|
||||
(do-test "Undo: no selection/edit caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"4.5\" and press the delete key.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: no selection/edit caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: no selection/structure caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Want to place the structure caret right between \"b\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: no selection/structure caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Place the structure caret between \"b\" and \"cd\".
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the third litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the fourth litatom \"efg\" as a structure.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"6/7\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 4.5 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 4.5 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" as a structure.
|
||||
Type meta-R.
|
||||
Select the string \"BYE\" and press the delete key.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select a comment"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the number 1 and type \"; hello\", then select this as a structure.
|
||||
Type meta-U three times.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select a comment"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a comment
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Place the edit caret after the number 2 and type \"; bye\", then select this as a structure.
|
||||
Type meta-R.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"No Undo to Undo\"? "))
|
||||
|
||||
|
||||
(do-test "Undo: select part of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 ; bye 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the comment as a structure and press the delete key.
|
||||
Type control-x.
|
||||
Place the strcuture caret after the litatom \"efg\"
|
||||
Type: \"(Have a nice day please)\"
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select part of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"f\" in the litatom \"efg\".
|
||||
Type meta-R twice.
|
||||
Does SEdit display in the SEdit prompt window:
|
||||
\"No Undo to Undo.\"? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day please) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select part of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day please) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-U three times.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select part of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"B\" in the string \"BYE\".
|
||||
Type meta-R twice.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-U four times.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg () "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg () \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the \"6\" in the number \"6/7\".
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: pending delete of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the litatom \"cd\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"c\" and then pressing the right button withe the cursor on the \"d\". This should create a box around the litatom \"cd\".
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg () "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: pending delete of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg () \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode.
|
||||
Type meta-R four times.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: pending delete of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: pending delete of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" in pending delete mode.
|
||||
Type meta-R twice.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day please) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: pending delete a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day please) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"6/7\" in pending delete mode.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: pending delete a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"6/7\" in pending delete mode.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day please) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: pending delete of a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day please) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: pending delete of a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg (Have a nice day please) "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg (Have a nice day please) \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(Have a nice day please)\" and press the delete key.
|
||||
Type control-x.
|
||||
Select the litatom \"cd\" as a structure, and extend the selection to include the next litatom, type \"defgh\".
|
||||
Select the litatom \"a\" and extend the selection to include the next two litatoms.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of litatoms"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-R
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-U
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of strings"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-R
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next number.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the list \"(bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hi\" as a structure, and extend the selection to include the previous list.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of litatoms and numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of litatoms and numbers"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of strings and lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of strings and lists"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: extended selection of several things"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Redo: extended selection of several things"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Undo: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b defgh \"hello\" \"BYE\" (bye) (\"hi\" b cd 4))
|
||||
Select the entire structure.
|
||||
Type meta-U.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b cd efg "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
(do-test "Redo: selection of entire structure"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 2 6/7 a b cd efg \"hello\" \"BYE\" (bye) (\"hi\" b cd 4)
|
||||
Select the entire structure.
|
||||
Type meta-R.
|
||||
Were you able to get this far? "))
|
||||
(good-value (equal '(1 2 6/7 a b defgh "hello" "BYE" (bye) ("hi" b cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
362
internal/test/env/code-editor/hand/Control.u.~1~
vendored
362
internal/test/env/code-editor/hand/Control.u.~1~
vendored
@@ -1,362 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 6, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-control.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)
|
||||
|
||||
|
||||
;;; -----------------------------------------------------
|
||||
;;;
|
||||
;;; The following are the complete tests, a do-test-group per command
|
||||
;;; From keyboard, popup menu, attached menu. Test for all possible
|
||||
;;; combinations of selection and caret point:
|
||||
;;; no selection/no caret
|
||||
;;; no selection/edit caret
|
||||
;;; no selection/structure caret
|
||||
;;; selection of each lisp type: litatom, string, list, comment, gap
|
||||
;;; selection of part of each type above
|
||||
;;; pending delete selection of each type above
|
||||
;;; extended selection ofobjects of the same type
|
||||
;;; extended selection of objects of mixed type
|
||||
;;; selection of entire structure
|
||||
;;; pending delete selection of entire structure
|
||||
;;;
|
||||
;;; -----------------------------------------------------
|
||||
|
||||
(do-test-group "Redisplay, test against standard set"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Redisplay")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
(do-test "Redisplay:no selection/no caret"
|
||||
(do-test-menu-Message window-list 'high
|
||||
"If needed, bring up a second exec and type: \"(cl:in-package 'xcl-test)\"
|
||||
Testing: no selection/no caret
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 xy \"hi\" (\"bye\" a 23 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 xy \"hi\" (\"bye\" a 23 4))
|
||||
Testing: no selection/edit caret
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 xy \"hi\" (\"bye\" a 23 4))
|
||||
Testing: no selection/structure caret
|
||||
Want to place the structure caret right between xy and \"hi\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 xy \"hi\" (\"bye\" a 23 4))
|
||||
Testing: select a litatom
|
||||
Select the litatom \"xy\" as a structure, by pressing the middle button.
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 xy \"hi\" (\"bye\" a 23 4))
|
||||
Testing: select a string
|
||||
Select the string \"hi\" as a structure.
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 xy \"hi\" (\"bye\" a 23 4))
|
||||
Testing: select a number
|
||||
Select the number \"1\" as a structure.
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 xy \"hi\" (\"bye\" a 23 4))
|
||||
Testing: select a list
|
||||
Select the list (\"bye\" a 23 4) as a structure.
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 xy \"hi\" (\"bye\" a 23 4))
|
||||
Testing: select part of a litatom
|
||||
Select the \"x\" in the litatom \"xy\" by pressing the left button.
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 xy \"hi\" (\"bye\" a 23 4))
|
||||
Testing: select part of a string
|
||||
Select the \"h\" in the string \"hi\".
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 xy \"hi\" (\"bye\" a 23 4))
|
||||
Testing: select part of a number
|
||||
Select the \"2\" in the number \"23\".
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: delete a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 xy \"hi\" (\"bye\" a 23 4))
|
||||
Testing: delete a litatom
|
||||
Delete the litatom \"xy\" by selecting it as a structure and pressing the delete key.
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: delete a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 \"hi\" (\"bye\" a 23 4))
|
||||
Testing: delete a string
|
||||
Delete the string \"hi\".
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: delete of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (1 (\"bye\" a 23 4))
|
||||
Testing: delete a number
|
||||
Delete the number \"1\".
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: extended selection of objects of same type"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals ((\"bye\" a 23 4))
|
||||
Testing: extended selection of objects of same type
|
||||
Select the numbers 23 and 4, by picking the 23 with the left button, and the 4 with the right button.
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
|
||||
(do-test "Redisplay: extended selection of objects of different types"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals ((\"bye\" a 23 4))
|
||||
Testing: extended selection of objects of different types
|
||||
Select all items in the smaller list.
|
||||
Type control-L.
|
||||
Was the SEdit window redisplayed?"))
|
||||
|
||||
) ; End of do-test-group
|
||||
|
||||
|
||||
|
||||
|
||||
(do-test-group "Delete previous and done, test against standard set"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Delete previous")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
(do-test "Delete previous & done:no selection/no caret"
|
||||
(let* (( user-result (do-test-menu-Message window-list 'high
|
||||
" Testing parentheses
|
||||
If needed, bring up a second exec and type: \"(cl:in-package 'xcl-test)\"
|
||||
Then in the exec type:
|
||||
|
||||
(setq tempx '(1 2 34 ab cd ef gh \"hi\" \"how\" \"are\" \"you\" (\"bye\" a 23 4)))
|
||||
(il:dv tempx)
|
||||
|
||||
Type control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(1 2 34 ab cd ef gh "hi" "how" "are" "you" ("bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: no selection/edit caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (1 2 34 ab cd ef gh \"hi\" \"how\" \"are\" \"you\" (\"bye\" a 23 4))
|
||||
Testing: no selection/edit caret
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(2 34 ab cd ef gh "hi" "how" "are" "you" ("bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: no selection/structure caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (2 34 ab cd ef gh \"hi\" \"how\" \"are\" \"you\" (\"bye\" a 23 4))
|
||||
Testing: no selection/structure caret
|
||||
Want to place the structure caret right between \"ab\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(2 34 cd ef gh "hi" "how" "are" "you" ("bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: select a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (2 34 cd ef gh \"hi\" \"how\" \"are\" \"you\" (\"bye\" a 23 4))
|
||||
Testing: select a litatom
|
||||
Select the litatom \"gh\" as a structure, by pressing the middle button with the cursor over the \"h\". The structure caret should end up to the right of \"gh\".
|
||||
Type control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(2 34 cd ef "hi" "how" "are" "you" ("bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: select a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (2 34 cd ef \"hi\" \"how\" \"are\" \"you\" (\"bye\" a 23 4))
|
||||
Testing: select a string
|
||||
Select the string \"hi\" as a structure, with the structure caret to the right of the string.
|
||||
Type control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(2 34 cd ef "how" "are" "you" ("bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: select a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (2 34 cd ef \"how\" \"are\" \"you\" (\"bye\" a 23 4))
|
||||
Testing: select a number
|
||||
Select the number \"2\" as a structure, with the structure caret to the right of the number.
|
||||
Type control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(34 cd ef "how" "are" "you" ("bye" a 23 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: select a list"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (34 cd ef \"how\" \"are\" \"you\" (\"bye\" a 23 4))
|
||||
Testing: select a list
|
||||
Select the list (\"bye\" a 23 4) as a structure, with the structure caret to the right of the list.
|
||||
Type control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(34 cd ef "how" "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: select part of a litatom"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (34 cd ef \"hi\" \"how\" \"are\" \"you\")
|
||||
Testing: select part of a litatom
|
||||
ÿÿ P l a c e t h e e d i t c a r e t i n t h e m i d d l e o f t h e l i t a t o m \ " c d \ " .ÿ
|
||||
Type control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(34 d ef "how" "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: select part of a string"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (2 3 d ef \"how\" \"are\" \"you\")
|
||||
Testing: select part of a string
|
||||
ÿÿ P l a c e t h e e d i t c a r e t ÿ after the \"h\" in the string \"how\"ÿÿ .ÿ
|
||||
Type control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(34 d ef "ow" "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: select part of a number"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (34 d ef \"ow\" \"are\" \"you\")
|
||||
Testing: select part of a number
|
||||
ÿÿ P l a c e t h e e d i t c a r e t i n t h e m i d d l e o f t h e ÿ numberÿÿ \ "ÿ 34ÿÿ \ " .ÿ
|
||||
Type control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(4 d ef "ow" "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: delete a litatom after a delete"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (4 d ef \"ow\" \"are\" \"you\")
|
||||
Testing: delete a litatom after a delete
|
||||
Place the structure caret after the string \"ow\" with no selection.
|
||||
Type control-W, control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(4 d "are" "you") tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: delete a string after a delete"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (4 d \"are\" \"you\")
|
||||
Testing: delete a string
|
||||
Place the structure caret after the string \"you\" with selection of the string.
|
||||
Type control-W, control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal '(4 d) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Delete previous & done: delete of a number after a delete"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'low
|
||||
"Assumping SEdit is editing tempx which currently equals (4 d)
|
||||
Testing: delete a number after a delete
|
||||
Place the edit caret after the litatom \"d\" with no selection.
|
||||
Type control-W, control-W, and a control-X.
|
||||
Were you able to get this far?"))
|
||||
(good-value (equal nil tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
|
||||
STOP
|
||||
File diff suppressed because one or more lines are too long
191
internal/test/env/code-editor/hand/Interrupt.u.~1~
vendored
191
internal/test/env/code-editor/hand/Interrupt.u.~1~
vendored
@@ -1,191 +0,0 @@
|
||||
;; 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:SEdit 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.
|
||||
Did both interrupts go correctly?"))
|
||||
|
||||
|
||||
(do-test "no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing no selection/edit caret
|
||||
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.
|
||||
Did both interrupts go correctly?"))
|
||||
|
||||
|
||||
(do-test "no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing no selection/structure caret
|
||||
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, control-B.
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing select a litatom
|
||||
Type: \"(il:dv tempx)\"
|
||||
Select the litatom \"xy\" as a structure, by pressing the middle button.
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing select a string
|
||||
Type: \"(il:dv tempx)\"
|
||||
Select the string \"hi\" as a structure.
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing select a number
|
||||
Type: \"(il:dv tempx)\"
|
||||
Select the number \"5\" as a structure.
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing select a list
|
||||
Type: \"(il:dv tempx)\"
|
||||
Select the list (a 23 4 \"bye\") as a structure.
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing select part of a litatom
|
||||
Type: \"(il:dv tempx)\"
|
||||
Select the \"x\" in the litatom \"xy\" by pressing the left button.
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing select part of a string
|
||||
Type: \"(il:dv tempx)\"
|
||||
Select the \"h\" in the string \"hi\".
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing select part of a number
|
||||
Type: \"(il:dv tempx)\"
|
||||
Select the \"2\" in the number \"23\".
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "delete a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (xy \"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing delete a litatom
|
||||
Type: \"(il:dv tempx)\"
|
||||
Delete the litatom \"xy\" by selecting it as a structure and pressing the delete key.
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "delete a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (\"hi\" 5 (a 23 4 \"bye\"))
|
||||
Testing delete a string
|
||||
Type: \"(il:dv tempx)\"
|
||||
Delete the string \"hi\".
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "delete of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals (5 (a 23 4 \"bye\"))
|
||||
Testing delete a number
|
||||
Type: \"(il:dv tempx)\"
|
||||
Delete the number \"5\".
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "extended selection of objects of same type"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals ((a 23 4 \"bye\"))
|
||||
Testing extended selection of objects of same type
|
||||
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 and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
(do-test "extended selection of objects of different types"
|
||||
(do-test-menu-Message window-list 'low
|
||||
"Assumping tempx currently equals ((a 23 4 \"bye\"))
|
||||
Testing extended selection of objects of different types
|
||||
Type: \"(il:dv tempx)\"
|
||||
Select all items in the smaller list.
|
||||
Type control-G and control-B
|
||||
Do both perform as specified before?"))
|
||||
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
|
||||
|
||||
STOP
|
||||
191
internal/test/env/code-editor/hand/Interrupt.u.~2~
vendored
191
internal/test/env/code-editor/hand/Interrupt.u.~2~
vendored
@@ -1,191 +0,0 @@
|
||||
;; 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
|
||||
@@ -1,21 +0,0 @@
|
||||
Command-abort.u failed
|
||||
Command-base.u failed
|
||||
Command-comment.u passed
|
||||
Command-eval.u passed
|
||||
Command-expand.u failed
|
||||
Command-extract.u passed
|
||||
Command-find.u failed
|
||||
Command-help.u failed
|
||||
Command-high.u passed
|
||||
Command-join.u passed
|
||||
Command-menu.u passed
|
||||
Command-meta-o.u slow
|
||||
Command-mutate.u passed
|
||||
command-package.u passed
|
||||
Command-paren.u passed
|
||||
command-skip-next.u failed
|
||||
Command-substitute.u failed
|
||||
Command-undo-redo.u passed
|
||||
Control.u passed
|
||||
Interrupt.u
|
||||
report.tedit
|
||||
@@ -1,20 +0,0 @@
|
||||
Command-abort.u failed
|
||||
Command-base.u failed
|
||||
Command-comment.u passed
|
||||
Command-eval.u passed
|
||||
Command-expand.u failed
|
||||
Command-extract.u passed
|
||||
Command-find.u failed
|
||||
Command-help.u failed
|
||||
Command-high.u passed
|
||||
Command-join.u passed
|
||||
Command-menu.u passed
|
||||
Command-meta-o.u slow
|
||||
Command-mutate.u passed
|
||||
command-package.u passed
|
||||
Command-paren.u passed
|
||||
command-skip-next.u failed
|
||||
Command-substitute.u failed
|
||||
Command-undo-redo.u passed
|
||||
Control.u passed
|
||||
Interrupt.u passed
|
||||
@@ -1,400 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 25, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-package.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 "Change Package"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Change Package")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Change Package: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Change Package
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-packge 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4)))
|
||||
(ed 'tempx)
|
||||
|
||||
Select Change Package from the pop up menu.
|
||||
Enter: \"il\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Change Package: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Want to place the structure caret right between \"xcl-test::a\" and \"xcl-test::cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-P.
|
||||
Enter: \"xcl-test\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) \"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) \"hi\" (b) cd 4))
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-P twice.
|
||||
Enter: \"INTERLISP\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the list \"(xcl-test::bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-P.
|
||||
Enter: \"interlisp\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the \"d\" in the first litatom \"xcl-test::cd\".
|
||||
Type meta-P.
|
||||
Enter: \"XCL-TEST\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-P.
|
||||
Enter: \"XEROX-COMMON-LISP\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-P.
|
||||
Enter: \"ZZZXXXYYY-SHOULD-NOT-EXIST\"
|
||||
Check for two things.
|
||||
First did SEdit display in the SEdit prompt window:
|
||||
\"No such package: ZZZXXXYYY-SHOULD-NOT-EXIST\"?
|
||||
Second does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the litatom \"xcl-test::efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"xcl-test::efg\".
|
||||
Type meta-P.
|
||||
Enter: \"IL\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-P.
|
||||
Enter: \"XCL-TEST\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-P.
|
||||
Just press the carriage return.
|
||||
Check for two things.
|
||||
First does the SEdit banner still read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-P
|
||||
Enter: \"il\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-P
|
||||
Enter: \"IL\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the list \"(xcl-test::bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-P.
|
||||
Enter: \"il\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of litatoms and numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of strings and lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-P.
|
||||
Enter: \"XCL-TEST\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-P.
|
||||
Enter: \"XCL-TEST\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) gh 4))
|
||||
Select the entire structure.
|
||||
Type meta-P.
|
||||
Enter: \"il\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
|
||||
(do-test "Change Package: Pending delete of whole structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the entire structure in pending delete mode.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess."))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
|
||||
|
||||
@@ -1,401 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 25, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-package.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 "Change Package"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Change Package")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Change Package: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Change Package
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4)))
|
||||
(ed 'tempx)
|
||||
|
||||
Select Change Package from the pop up menu.
|
||||
Enter: \"il\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Change Package: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Want to place the structure caret right between \"xcl-test::a\" and \"xcl-test::cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-P.
|
||||
Enter: \"xcl-test\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) \"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) \"hi\" (b) cd 4))
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for three things.
|
||||
First, does the SEdit prompt window say \"Already editing in package XEROX-COMMON-LISP\."?
|
||||
Does the SEdit banner still read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And third, does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does all these, please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-P twice.
|
||||
Enter: \"INTERLISP\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the list \"(xcl-test::bye)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-P.
|
||||
Enter: \"interlisp\"
|
||||
Check for two things.
|
||||
First does the SEdit banner still read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the \"d\" in the first litatom \"xcl-test::cd\".
|
||||
Type meta-P.
|
||||
Enter: \"XCL-TEST\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-P.
|
||||
Enter: \"XEROX-COMMON-LISP\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-P.
|
||||
Enter: \"ZZZXXXYYY-SHOULD-NOT-EXIST\"
|
||||
Check for two things.
|
||||
First did SEdit display in the SEdit prompt window:
|
||||
\"No such package: ZZZXXXYYY-SHOULD-NOT-EXIST\"?
|
||||
Second does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the litatom \"xcl-test::efg\" in pending delete mode by first pressing the middle button of the mouse with the cursor on the litatom and then pressing the right button with the cursor. This should create a box around the litatom \"xcl-test::efg\".
|
||||
Type meta-P.
|
||||
Enter: \"IL\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-P.
|
||||
Enter: \"XCL-TEST\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye)\" in pending delete mode.
|
||||
Type meta-P.
|
||||
Just press the carriage return.
|
||||
Check for two things.
|
||||
First does the SEdit banner still read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit still display tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-P
|
||||
Enter: \"il\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-P
|
||||
Enter: \"IL\"
|
||||
Check for two things.
|
||||
First does the SEdit banner still read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit still display tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the list \"(xcl-test::bye)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-P.
|
||||
Enter: \"il\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: 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 variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: 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 variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-P.
|
||||
Enter: \"XCL-TEST\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-P.
|
||||
Enter: \"XCL-TEST\"
|
||||
Check for two things.
|
||||
First does the SEdit banner still read:
|
||||
\"Sedit TEMPX Package: XCL-TEST\"
|
||||
And second does SEdit still display tempx like this:
|
||||
\"(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
(do-test "Change Package: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) gh 4))
|
||||
Select the entire structure.
|
||||
Type meta-P.
|
||||
Enter: \"il\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: INTERLISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess. "))
|
||||
|
||||
|
||||
|
||||
(do-test "Change Package: Pending delete of whole structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))
|
||||
Select the entire structure in pending delete mode.
|
||||
Type meta-P.
|
||||
Enter: \"xcl\"
|
||||
Check for two things.
|
||||
First does the SEdit banner now read:
|
||||
\"Sedit TEMPX Package: XEROX-COMMON-LISP\"
|
||||
And second does SEdit redisplay tempx to look like this:
|
||||
\"(1 4.5 6/7 xcl-test::a xcl-test::cd xcl-test::efg \"hello\" \"BYE\" (xcl-test::bye) (\"hi\" (xcl-test::b) xcl-test::cd 4))\"?
|
||||
If it does both please indicate sucess."))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Done&Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
|
||||
|
||||
@@ -1,273 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 23, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-mutate.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 "Skip-Next"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Skip-Next")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Skip-Next: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Skip-Next
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4)))
|
||||
(ed 'tempx)
|
||||
|
||||
Select Skip-Next from the pop up menu.
|
||||
Does SEdit either do nothing, or display a message complaing?
|
||||
(AR 7699 is on it doing nothing.) "))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Skip-Next: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-N.
|
||||
Does SEdit either do nothing, or display a message complaing?
|
||||
(AR 7699 is on it doing nothing.) "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Place the edit caret after the litatom \"bye\" within the list and type: \" .\"
|
||||
Want to place the structure caret right between \"a\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye . -x-) \"hi\" (b) cd 4))
|
||||
Place the structure caret after the litatom \"efg\" and type \"'\"
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-N twice.
|
||||
Does SEdit first place a box around the \"-x-\" with the quote, and then place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 9.0 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye . -x-)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye . -x-)\" in pending delete mode.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in this list?
|
||||
(AR 7907 was written for case where nothing happens.) "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-N
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-N
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye . -x-)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list?
|
||||
(AR 7907 was written for case where nothing happens.) "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of litatoms and numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of litatoms and numbers
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of strings and lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings and lists
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) gh 4))
|
||||
Select the entire structure.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
|
||||
(do-test "Skip-Next: Pending delete of whole structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assumping SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the entire structure in pending delete mode.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote?
|
||||
(AR 7907 was written for case where nothing happens.)"))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
@@ -1,268 +0,0 @@
|
||||
;; Being tested: SEdit
|
||||
;;
|
||||
;; Source: {ERIS}<LispCore>DOC>SEDIT>SEDIT.TEDIT
|
||||
;;
|
||||
;; Created By: Henry Cate III
|
||||
;;
|
||||
;; Creation Date: February 23, 1987
|
||||
;;
|
||||
;; Last Update:
|
||||
;;
|
||||
;; Filed As: {eris}<lispcore>test>SEdit>command-mutate.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 "Skip-Next"
|
||||
:before (progn
|
||||
(setq window-list (do-test-menu-Setup "Skip-Next")))
|
||||
|
||||
:after (progn
|
||||
(do-test-menu-Cleanup window-list))
|
||||
|
||||
|
||||
(do-test "Skip-Next: no selection/no caret"
|
||||
(let* ((user-result (do-test-menu-Message window-list 'high
|
||||
" Testing Skip-Next
|
||||
If there is no free Xerox Common Lisp exec, bring up a another one and type: \"(cl:in-package 'xcl-test)\"
|
||||
In the exec type:
|
||||
|
||||
(setq tempx '(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4)))
|
||||
(ed 'tempx)
|
||||
|
||||
Select Skip-Next from the pop up menu.
|
||||
Does SEdit display the message \"Select point from which to start search for blanks.\"?"))
|
||||
(good-value (equal '(1 4.5 6/7 a cd efg "hello" "BYE" (bye) ("hi" (b) cd 4)) tempx)))
|
||||
(and user-result (if (eq t user-result) good-value T))
|
||||
))
|
||||
|
||||
|
||||
(do-test "Skip-Next: no selection/edit caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/edit caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Select DONE from the SEdit popup menu.
|
||||
Want to place the edit caret right after the 1 without selecting it. Do this by pressing the left mouse button with the mouse cursor just to the right of the 1.
|
||||
Type meta-N.
|
||||
Does SEdit say \"No more blanks to fill in.\"?"))
|
||||
|
||||
|
||||
(do-test "Skip-Next: no selection/structure caret"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: no selection/structure caret
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye) (\"hi\" (b) cd 4))
|
||||
Place the edit caret after the litatom \"bye\" within the list and type: \" .\"
|
||||
Want to place the structure caret right between \"a\" and \"cd\" without selecting either item. Do this by positioning the mouse cursor between the two items and press the middle button.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg \"hello\" \"BYE\" (bye . -x-) \"hi\" (b) cd 4))
|
||||
Place the structure caret after the litatom \"efg\" and type \"'\"
|
||||
Select the first litatom \"cd\" as a structure, by pressing the left mouse button twice with the cursor over the litatom.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, by pressing the left mouse button twice with the cursor over the string.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list (after the \"BYE . \")? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the number \"4.5\" as a structure, by pressing the left mouse button twice with the cursor over the number.
|
||||
Type meta-N twice.
|
||||
Does SEdit first place a box around the \"-x-\" with the quote, and then place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 9.0 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye . -x-)\" as a structure, by pressing the left mouse button three times with the cursor over the \"y\".
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select part of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the \"d\" in the first litatom \"cd\".
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select part of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the \"h\" in the string \"hello\".
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: select part of a number"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: select part of a number
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the \"7\" in the number \"6/7\".
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: pending delete of a litatom"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of litatom
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"efg\" in pending delete mode by first pressing the left button of the mouse with the cursor on the \"e\" and then pressing the right button withe the cursor on the \"g\". This should create a box around the litatom \"efg\".
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: pending delete of a string"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a string
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" in pending delete mode bye clicking on the \"h\", then pressing the right mouse button with the cursor to the right of the string.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: pending delete of a list"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: pending delete of a list
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye . -x-)\" in pending delete mode.
|
||||
Type meta-N.
|
||||
Does SEdit say \"No more blanks to fill in.\"?"))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of litatoms"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: try extended selection of litatoms
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the litatom \"a\" as a structure, and extend the selection to include the next two litatoms.
|
||||
Type meta-N
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of strings"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of strings
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Now select the string \"hello\" as a structure, and extend the selection to include the second string.
|
||||
Type meta-N
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of numbers"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of numbers
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next two numbers.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of lists"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of lists
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the list \"(bye . -x-)\" as a structure, and extend the selection to include the next list.
|
||||
Type meta-N.
|
||||
Does SEdit say \"No more blanks to fill in.\"?"))
|
||||
|
||||
|
||||
(do-test "Skip-Next: 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 variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the next five items.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: 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 variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the string \"hello\" as a structure, and extend the selection to include the next three items.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" in the first list? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: extended selection of several things"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: extended selection of several things
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the number \"1\" as a structure, and extend the selection to include the rest.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
(do-test "Skip-Next: selection of entire structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) gh 4))
|
||||
Select the entire structure.
|
||||
Type meta-N.
|
||||
Does SEdit place a box around the \"-x-\" with the quote? "))
|
||||
|
||||
|
||||
|
||||
(do-test "Skip-Next: Pending delete of whole structure"
|
||||
(do-test-menu-Message window-list 'low
|
||||
" Testing: selection of entire structure
|
||||
Assuming SEdit is editing the variable tempx which currently equals:
|
||||
(1 4.5 6/7 a cd efg '-x- \"hello\" \"BYE\" (bye . -x-) (\"hi\" (b) cd 4))
|
||||
Select the entire structure in pending delete mode.
|
||||
Type meta-N.
|
||||
Does SEdit say \"No more blanks to fill in.\"?"))
|
||||
|
||||
|
||||
(do-test "Clean up"
|
||||
(do-test-menu-message window-list 'high
|
||||
"Close the SEdit window by selecting Done&Close from the window popup menu."))
|
||||
|
||||
) ; end of do-test-group
|
||||
|
||||
|
||||
STOP
|
||||
Reference in New Issue
Block a user