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