From 20de4186591f6f19663a2233806142e248f28e09 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 8 Oct 2002 03:34:30 +0000 Subject: [PATCH] Added tests for LAMBDA-LIST-KEYWORDS. --- ansi-tests/gclload2.lsp | 1 + ansi-tests/lambda-list-keywords.lsp | 42 +++++++++++++++++++++++++++++ 2 files changed, 43 insertions(+) create mode 100644 ansi-tests/lambda-list-keywords.lsp diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp index 14e0cfef..0a85194e 100644 --- a/ansi-tests/gclload2.lsp +++ b/ansi-tests/gclload2.lsp @@ -10,6 +10,7 @@ (load "complement.lsp") (load "function.lsp") (load "functionp.lsp") +(load "lambda-list-keywords.lsp") ;;; Tests of conses diff --git a/ansi-tests/lambda-list-keywords.lsp b/ansi-tests/lambda-list-keywords.lsp new file mode 100644 index 00000000..59b8b694 --- /dev/null +++ b/ansi-tests/lambda-list-keywords.lsp @@ -0,0 +1,42 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Mon Oct 7 22:11:31 2002 +;;;; Contains: Tests for LAMBDA-LIST-KEYWORDS + +(in-package :cl-test) + +;;; The variable is bound +(deftest lambda-list-keywords.1 + (not (boundp 'lambda-list-keywords)) + nil) + +;;; The variable is a constant +(deftest lambda-list-keywords.2 + (not (constantp 'lambda-list-keywords)) + nil) + +;;; The standard keywords are present in the list +(deftest lambda-list-keywords.3 + (and (consp lambda-list-keywords) + (null (set-difference '(&allow-other-keys + &aux &body &environment + &key &optional &rest &whole) + lambda-list-keywords))) + t) + +;;; No lambda list keywords are in the keyword package +(deftest lambda-list-keywords.4 + (some #'keywordp lambda-list-keywords) + nil) + +;;; Every keyword starts with an ampersand +(deftest lambda-list-keywords.5 + (notevery #'(lambda (sym) + (let ((name (symbol-name sym))) + (and (> (length name) 0) + (eql (aref name 0) #\&)))) + lambda-list-keywords) + nil) + + + -- GitLab