Commit 03a05b9a authored by pfdietz's avatar pfdietz

Added tests for *features* interactions as specified on the *FEATURES* page of the ansi spec.

parent 53d5b0b2
;-*- 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)
......@@ -206,3 +206,6 @@
(compile-and-load "char-aux.lsp")
(load "character.lsp")
(load "char-compare.lsp")
;;; Tests of system construction
(load "features.lsp")
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment