From 50ac499ade568c0d69e06378e7f9256295d1574e Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 7 Oct 2002 01:43:04 +0000
Subject: [PATCH] Added tests for CONSTANTLY and COMPLEMENT.

---
 ansi-tests/complement.lsp | 28 ++++++++++++++++++++++++++++
 ansi-tests/constantly.lsp | 14 ++++++++++++++
 ansi-tests/gclload2.lsp   |  5 +++++
 3 files changed, 47 insertions(+)
 create mode 100644 ansi-tests/complement.lsp
 create mode 100644 ansi-tests/constantly.lsp

diff --git a/ansi-tests/complement.lsp b/ansi-tests/complement.lsp
new file mode 100644
index 00000000..89ce870e
--- /dev/null
+++ b/ansi-tests/complement.lsp
@@ -0,0 +1,28 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sun Oct  6 20:04:33 2002
+;;;; Contains: Tests for COMPLEMENT
+
+(in-package :cl-test)
+
+(deftest complement.1
+  (funcall (cl::complement #'identity) nil)
+  t)
+
+(deftest complement.2
+  (funcall (cl::complement #'identity) t)
+  nil)
+
+(deftest complement.3
+  (every #'(lambda (x) (eql (funcall (cl::complement #'not) x)
+			    (not (not x))))
+	 *universe*)
+  t)
+
+(deftest complement.4
+  (let ((x '(#\b)))
+    (loop for i from 2 to (min 256 (1- call-arguments-limit))
+	  always (progn
+		   (push #\a x)
+		   (apply (cl::complement #'char=) x))))
+  t)
diff --git a/ansi-tests/constantly.lsp b/ansi-tests/constantly.lsp
new file mode 100644
index 00000000..17ae7f6f
--- /dev/null
+++ b/ansi-tests/constantly.lsp
@@ -0,0 +1,14 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sun Oct  6 19:47:16 2002
+;;;; Contains: Tests for CONSTANTLY
+
+(in-package :cl-test)
+
+(deftest constantly.1
+  (let ((fn (cl::constantly 10))
+	(x nil))
+    (loop for i from 0 to (min 256 (1- call-arguments-limit))
+	  always (prog1 (eql (apply fn x) 10)
+		   (push 'a x))))
+  t)
diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp
index 7cadfb20..4c1c2495 100644
--- a/ansi-tests/gclload2.lsp
+++ b/ansi-tests/gclload2.lsp
@@ -3,6 +3,11 @@
 ;;; Tests of symbols
 (load "cl-symbols.lsp")
 
+;;; Tests of data and control flow
+
+(load "constantly.lsp")
+(load "complement.lsp")
+
 ;;; Tests of conses
 
 (load "cons-test-01.lsp")
-- 
GitLab