From c7046312c662b1f7c85bbece0afdafcfae3a98c0 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 28 Jun 2003 20:55:14 +0000 Subject: [PATCH] Fixed failed test due to special var name conflict. --- ansi-tests/set.lsp | 52 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 ansi-tests/set.lsp diff --git a/ansi-tests/set.lsp b/ansi-tests/set.lsp new file mode 100644 index 00000000..37b25bd5 --- /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) -- GitLab