Commit 6cdcf7f2 authored by pfdietz's avatar pfdietz
Browse files

Added tests for CALL-ARGUMENTS-LIMIT and LAMBDA-PARAMETERS-LIMIT

parent 14081fb2
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Thu Oct 10 22:39:25 2002
;;;; Contains: Tests for CALL-ARGUMENTS-LIMIT
(in-package :cl-test)
(deftest call-arguments-limit.1
(not (constantp 'call-arguments-limit))
nil)
(deftest call-arguments-limit.2
(not (typep call-arguments-limit 'integer))
nil)
(deftest call-arguments-limit.3
(< call-arguments-limit 50)
nil)
(deftest call-arguments-limit.4
(let* ((m (min 65536 (1- call-arguments-limit)))
(args (make-list m :initial-element 'a)))
(equal (apply #'list args) args))
t)
(deftest call-arguments-limit.5
(< call-arguments-limit lambda-parameters-limit)
nil)
......@@ -9,6 +9,7 @@
;;; Tests of data and control flow
(load "places.lsp")
(load "call-arguments-limit.lsp")
(load "constantly.lsp")
(load "complement.lsp")
(load "fboundp.lsp")
......@@ -19,6 +20,7 @@
(load "functionp.lsp")
(load "labels.lsp")
(load "lambda-list-keywords.lsp")
(load "lambda-parameters-limit.lsp")
(load "macrolet.lsp")
;;; Tests of conses
......
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Thu Oct 10 22:45:44 2002
;;;; Contains: Tests for LAMBDA-PARAMETERS-LIMIT
(in-package :cl-test)
(deftest lambda-parameters-limit.1
(not (typep lambda-parameters-limit 'integer))
nil)
(deftest lambda-parameters-limit.2
(< lambda-parameters-limit 50)
nil)
;;; See also tests is flet.lsp, labels.lsp
Supports Markdown
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