Skip to content
Snippets Groups Projects
Commit 50ac499a authored by pfdietz's avatar pfdietz
Browse files

Added tests for CONSTANTLY and COMPLEMENT.

parent e63bcb06
No related branches found
No related tags found
No related merge requests found
;-*- 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)
;-*- 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)
......@@ -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")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment