test-suite/tests/alist.test

24 (define (safe-assq-ref alist elt)
25   (let ((x (assq elt alist)))
43   (pass-if "sloppy-assq"
44 	   (let ((x (sloppy-assq 'c a)))
48   (pass-if "sloppy-assq not"
49 	   (let ((x (sloppy-assq "this" b)))
66   (pass-if "assq"
67 	   (let ((x (assq 'c a)))
71   (pass-if-exception "assq deformed"
73     (assq 'x deformed))
74   (pass-if-not "assq not" (assq 'r a))
83   (pass-if-not "assv not" (assq "this" b))
99       (deformed '(thats a real sloppy assq you got there)))
100   (pass-if "assq-ref"
101 	   (let ((x (assq-ref a 'foo)))
105   (pass-if-not "assq-ref not" (assq-ref b "one"))
128   (pass-if-not "assq-ref deformed"
129                (assq-ref deformed 'sloppy)))
136   (pass-if "assq-set!"
138 	     (set! a (assq-set! a 'another 'stupid))
139 	     (let ((x (safe-assq-ref a 'another)))
143   (pass-if "assq-set! add"
145 	     (set! a (assq-set! a 'fickle 'pickle))
146 	     (let ((x (safe-assq-ref a 'fickle)))
150   (pass-if "assv-set!"
152 	     (set! a (assv-set! a 'another 'boring))
156   (pass-if "assv-set! add"
158 	     (set! a (assv-set! a 'whistle '(while you work)))
162   (pass-if "assoc-set!"
164 	     (set! b (assoc-set! b "this" "has"))
168   (pass-if "assoc-set! add"
170 	     (set! b (assoc-set! b "flugle" "horn"))
175   (pass-if-equal "assq-set! deformed"
176       (assq-set! deformed 'cold '(very cold))
179   (pass-if-equal "assv-set! deformed"
180       (assv-set! deformed 'canada 'Canada)
183   (pass-if-equal "assoc-set! deformed"
184       (assoc-set! deformed 'canada '(Iceland hence the name))
192   (pass-if "assq-remove!"
194 	     (set! a (assq-remove! a 'a))
198 	     (set! a (assv-remove! a 'c))
202 	     (set! b (assoc-remove! b "what"))
205   (pass-if-equal "assq-remove! deformed"
206       (assq-remove! deformed 'puddle)