From c5829dea5a8238c62f3a581a40e9f7023eb3d7a5 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 8 Oct 2002 05:18:15 +0000 Subject: [PATCH] Added error tests for FBOUNDP; added tests for FMAKUNBOUND. --- ansi-tests/fboundp.lsp | 13 ++++++++- ansi-tests/fmakunbound.lsp | 56 ++++++++++++++++++++++++++++++++++++++ ansi-tests/gclload2.lsp | 1 + 3 files changed, 69 insertions(+), 1 deletion(-) create mode 100644 ansi-tests/fmakunbound.lsp diff --git a/ansi-tests/fboundp.lsp b/ansi-tests/fboundp.lsp index 220fa159..43cc14e9 100644 --- a/ansi-tests/fboundp.lsp +++ b/ansi-tests/fboundp.lsp @@ -39,9 +39,20 @@ (let ((g (gensym))) (fboundp (list 'setf g))) nil) +(deftest fboundp.8 + (catch-type-error (fboundp 1)) + type-error) + +(deftest fboundp.9 + (catch-type-error (fboundp #\a)) + type-error) + +(deftest fboundp.10 + (catch-type-error (fboundp '(foo))) + type-error) + - diff --git a/ansi-tests/fmakunbound.lsp b/ansi-tests/fmakunbound.lsp new file mode 100644 index 00000000..6b46ac73 --- /dev/null +++ b/ansi-tests/fmakunbound.lsp @@ -0,0 +1,56 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Tue Oct 8 00:09:14 2002 +;;;; Contains: Tests for FMAKUNBOUND + +(in-package :cl-test) + +(deftest fmakunbound.1 + (let ((g (gensym))) + (and (not (fboundp g)) + (setf (symbol-function g) #'car) + (fboundp g) + (values (eq (fmakunbound g) g) + (fboundp g)))) + t nil) + +(deftest fmakunbound.2 + (let ((g (gensym))) + (and (not (fboundp g)) + (eval `(defun ,g () nil)) + (fboundp g) + (values (eq (fmakunbound g) g) + (fboundp g)))) + t nil) + +(deftest fmakunbound.3 + (let ((g (gensym))) + (and (not (fboundp g)) + (eval `(defmacro ,g () nil)) + (fboundp g) + (values (eq (fmakunbound g) g) + (fboundp g)))) + t nil) + +(deftest fmakunbound.4 + (let* ((g (gensym)) + (n `(setf ,g))) + (and (not (fboundp n)) + (eval `(defun ,n () nil)) + (fboundp n) + (values (equal (fmakunbound n) n) + (fboundp n)))) + t nil) + +(deftest fmakunbound.5 + (catch-type-error (fmakunbound 1)) + type-error) + +(deftest fmakunbound.6 + (catch-type-error (fmakunbound #\a)) + type-error) + +(deftest fmakunbound.7 + (catch-type-error (fmakunbound '(x))) + type-error) + diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp index d0b63bee..1daa7411 100644 --- a/ansi-tests/gclload2.lsp +++ b/ansi-tests/gclload2.lsp @@ -9,6 +9,7 @@ (load "constantly.lsp") (load "complement.lsp") (load "fboundp.lsp") +(load "fmakunbound.lsp") (load "function.lsp") (load "functionp.lsp") (load "lambda-list-keywords.lsp") -- GitLab