23 lines
468 B
Plaintext
23 lines
468 B
Plaintext
;; Function To Be Tested: progv
|
|
;; Regression tests for CMLPROGV
|
|
|
|
;;This one is taken from 7-5-PROGV.TEST
|
|
|
|
(do-test "AR 7405: test progv - if too few values are supplied, the remaining symbols are bound and then made to have no value"
|
|
|
|
(and
|
|
(progv '(a b c d) '(10 20)
|
|
(and (equal (list a b) '(10 20))
|
|
(notany #'boundp '(c d))
|
|
)
|
|
)
|
|
(progv '(aa bb cc dd ee ff gg) '()
|
|
(notany #'boundp '(aa bb cc dd ee ff gg))
|
|
)
|
|
)
|
|
)
|
|
|
|
|
|
|
|
|
|
|