diff --git a/ansi-tests/features.lsp b/ansi-tests/features.lsp new file mode 100644 index 0000000000000000000000000000000000000000..d9c519374ae1342303061e093cbad7c7d9ce3320 --- /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 70045028dc9b11927d2e4bd78a0d198904692348..553eaa604ef910baaa0aaba87059318ab8ae6099 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")