;; Functions To Be Tested: il:getprop
;;
;; Source:        IRM, p 2.5
;;
;; Chapter 2:     Litatoms
;;	section 3:   Property Lists		
;;
;; Created By:    Henry Cate III
;;
;; Creation Date: March 24, 1987
;;
;; Last Update:  
;;
;; Filed As:      {eris}<lispcore>test>property>getprop.test
;;
;; 


(do-test "test putprop & getprop"
  (let* ((tempx (gensym)) (tempy (gensym)))
    (and
	  (equal 'tennis (il:putprop tempx 'shoes 'tennis))
	  (equal 'basket (il:putprop tempy 'games 'basket))
	  (equal 'tennis (il:getprop tempx 'shoes))
	  (equal 'basket (il:getprop tempy 'games))
	  (equal nil (il:getprop tempx 'games))
	  (equal nil (il:getprop tempy 'shoes))
	  (equal 'foot (il:putprop tempy 'games 'foot))
	  (equal 'foot (il:getprop tempy 'games))
     )))


(do-test "test addprop"
  (let* ((tempx (gensym)))
    (and
	  (equal '(basket) (il:putprop tempx 'games '(basket)))
	  (equal '(basket foot) (il:addprop tempx 'games 'foot))
	  (equal '(base basket foot) (il:addprop tempx 'games 'base T))
	  (equal '(base basket foot) (il:getprop tempx 'games))
     )))


(do-test "test remprop"
  (let* ((tempx (gensym)))
    (and
	  (equal '(basket) (il:putprop tempx 'games '(basket)))
	  (equal '(basket foot) (il:addprop tempx 'games 'foot))
	  (equal 'games (il:remprop tempx 'games))
	  (equal nil (il:getprop tempx 'games 'base T))
	  (equal nil (il:remprop tempx 'games))
     )))


(do-test "test remproplist"
  (let* ((tempx (gensym)))
    (and
	  (equal '(basket) (il:putprop tempx 'games '(basket)))
	  (equal '(basket foot) (il:addprop tempx 'games 'foot))
	  (equal nil (il:remproplist tempx '(games)))
	  (equal nil (il:getprop tempx 'games))
	  (equal nil (il:remproplist tempx '(games)))
     )))


(do-test "test changeprop"
  (let* ((tempx (gensym)))
    (and
	  (equal '(basket) (il:putprop tempx 'games '(basket)))
	  (equal tempx (il:changeprop tempx 'games 'sports))
	  (equal '(basket) (il:getprop tempx 'sports))
     )))


(do-test "test propnames"
  (let* ((tempx (gensym)))
    (and
	  (equal '(basket) (il:putprop tempx 'games '(basket)))
	  (equal '(games) (il:propnames tempx))
     )))


(do-test "test deflist"
  (let* ((tempx (gensym)) (tempy (gensym)))
    (and
	  (equal nil (il:deflist '((tempx Janet) (tempy Leslie)) 'friends))
	  (equal 'Janet (il:getprop 'tempx 'friends))
	  (equal 'Leslie (il:getprop 'tempy 'friends))
     )))


(do-test "test getproplist"
  (let* ((tempx (gensym)))
    (and
	  (equal '(basket) (il:putprop tempx 'games '(basket)))
	  (equal '(games (basket)) (il:getproplist tempx))
     )))


(do-test "test setproplist"
  (let* ((tempx (gensym)))
    (and
	  (equal '(work fun) (il:setproplist tempx '(work fun)))
	  (equal '(work fun) (il:getproplist tempx))
     )))


(do-test "test getlis"
  (let* ((tempx (gensym)))
    (and
	  (equal '(work fun) (il:setproplist tempx '(work fun)))
	  (equal '(work fun) (il:getlis tempx '(work)))
     )))


STOP