diff --git a/ansi-tests/set.lsp b/ansi-tests/set.lsp new file mode 100644 index 0000000000000000000000000000000000000000..37b25bd59c48ef20309479c8413f268a891b5721 --- /dev/null +++ b/ansi-tests/set.lsp @@ -0,0 +1,52 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Sat Jun 21 22:35:48 2003 +;;;; Contains: Tests of SET + +(in-package :cl-test) + +(deftest set.1 + (let ((*var-used-in-set-tests* 'a) + (var '*var-used-in-set-tests*)) + (declare (special *var-used-in-set-tests*)) + (values + *var-used-in-set-tests* + (set var 'b) + *var-used-in-set-tests*)) + a b b) + +(deftest set.2 + (let ((*var-used-in-set-tests* 'a) + (var '*var-used-in-set-tests*)) + (declare (special *var-used-in-set-tests*)) + (values + (let ((*var-used-in-set-tests* 'c)) + (list (set var 'b) *var-used-in-set-tests* (symbol-value var))) + *var-used-in-set-tests*)) + (b c b) + b) + +(deftest set.error.1 + (classify-error (set)) + program-error) + +(deftest set.error.2 + (classify-error + (let ((*var-used-in-set-tests* 'a)) + (declare (special *var-used-in-set-tests*)) + (set '*var-used-in-set-tests*))) + program-error) + +(deftest set.error.3 + (classify-error + (let ((*var-used-in-set-tests* 'a)) + (declare (special *var-used-in-set-tests*)) + (set '*var-used-in-set-tests* nil nil))) + program-error) + +(deftest set.error.4 + (classify-error + (let ((*var-used-in-set-tests* 'a) (*y* 'b)) + (declare (special *var-used-in-set-tests*)) + (set '*var-used-in-set-tests* nil '*y* nil))) + program-error)