68 lines
1.1 KiB
Plaintext
68 lines
1.1 KiB
Plaintext
;; Functions To Be Tested: From section 11.2.2 of the IRM
|
|
;;
|
|
;; Source: IRM, p 11.6
|
|
;;
|
|
;; Chapter 5: stkscan
|
|
;;
|
|
;; Created By: Henry Cate III
|
|
;;
|
|
;; Creation Date: April 1, 1987
|
|
;;
|
|
;; Last Update:
|
|
;;
|
|
;; Filed As: {eris}<lispcore>test>binding>stkscan.test
|
|
;;
|
|
;;
|
|
|
|
|
|
(do-test "simple stuff for stkscan, check doesn't die "
|
|
(let* ((sp (il:stknth 1)))
|
|
(and
|
|
(equal nil (il:stkscan 'should-not-find sp))
|
|
(equal nil (il:stkscan 'should-not-find sp 'please-ignore))
|
|
(il:relstk sp)
|
|
T
|
|
)))
|
|
|
|
|
|
(do-test "simple stuff for framescan, check doesn't die "
|
|
(let* ((sp (il:stknth 1)))
|
|
(and
|
|
(equal nil (il:framescan 'should-not-find sp))
|
|
(il:relstk sp)
|
|
T
|
|
)))
|
|
|
|
|
|
(do-test "simple stuff for stkargname, check doesn't die "
|
|
(let* ((sp (il:stknth 1)))
|
|
(and
|
|
(equal nil (il:stkargname 2 sp))
|
|
(il:relstk sp)
|
|
T
|
|
)))
|
|
|
|
|
|
(do-test "simple stuff for stknargs, check doesn't die "
|
|
(let* ((sp (il:stknth 1)))
|
|
(and
|
|
(il:stknargs sp)
|
|
(il:relstk sp)
|
|
T
|
|
)))
|
|
|
|
|
|
(do-test "simple stuff for variables, check doesn't die "
|
|
(let* ((sp (il:stknth 1)))
|
|
(and
|
|
(il:variables sp)
|
|
(il:relstk sp)
|
|
T
|
|
)))
|
|
|
|
|
|
|
|
|
|
STOP
|
|
|