From 03a05b9a844f6b74d13d19e0e0c40dbefc8737b8 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 2 Dec 2002 13:51:24 +0000 Subject: [PATCH] Added tests for *features* interactions as specified on the *FEATURES* page of the ansi spec. --- ansi-tests/features.lsp | 22 ++++++++++++++++++++++ ansi-tests/gclload2.lsp | 3 +++ 2 files changed, 25 insertions(+) create mode 100644 ansi-tests/features.lsp diff --git a/ansi-tests/features.lsp b/ansi-tests/features.lsp new file mode 100644 index 00000000..d9c51937 --- /dev/null +++ b/ansi-tests/features.lsp @@ -0,0 +1,22 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Mon Dec 2 07:44:40 2002 +;;;; Contains: Tests of *FEATURES* + +(in-package :cl-test) + +(deftest features.1 + (let ((f *features*)) + (or (not (member :draft-ansi-ci f)) + (not (intersection '(:draft-ansi-cl-2 :ansi-cl) f)))) + t) + +(deftest features.2 + (let ((f *features*)) + (or (not (intersection '(:x3j13 :draft-ansi-cl :ansi-cl) f)) + (notnot (member :common-lisp f)))) + t) + +(deftest features.3 + (not (member :cltl2 *features*)) + t) diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp index 70045028..553eaa60 100644 --- a/ansi-tests/gclload2.lsp +++ b/ansi-tests/gclload2.lsp @@ -206,3 +206,6 @@ (compile-and-load "char-aux.lsp") (load "character.lsp") (load "char-compare.lsp") + +;;; Tests of system construction +(load "features.lsp") -- GitLab