;; 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