117 lines
2.9 KiB
Plaintext
117 lines
2.9 KiB
Plaintext
;; 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
|
|
|