From 6cdcf7f2bcdc1d5c160f34ae722d9ac9f246c142 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 11 Oct 2002 03:52:18 +0000 Subject: [PATCH] Added tests for CALL-ARGUMENTS-LIMIT and LAMBDA-PARAMETERS-LIMIT --- ansi-tests/call-arguments-limit.lsp | 29 ++++++++++++++++++++++++++ ansi-tests/gclload2.lsp | 2 ++ ansi-tests/lambda-parameters-limit.lsp | 17 +++++++++++++++ 3 files changed, 48 insertions(+) create mode 100644 ansi-tests/call-arguments-limit.lsp create mode 100644 ansi-tests/lambda-parameters-limit.lsp diff --git a/ansi-tests/call-arguments-limit.lsp b/ansi-tests/call-arguments-limit.lsp new file mode 100644 index 00000000..770f47af --- /dev/null +++ b/ansi-tests/call-arguments-limit.lsp @@ -0,0 +1,29 @@ +;-*- 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) + diff --git a/ansi-tests/gclload2.lsp b/ansi-tests/gclload2.lsp index 43b09072..61ad8115 100644 --- a/ansi-tests/gclload2.lsp +++ b/ansi-tests/gclload2.lsp @@ -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 diff --git a/ansi-tests/lambda-parameters-limit.lsp b/ansi-tests/lambda-parameters-limit.lsp new file mode 100644 index 00000000..c886cf10 --- /dev/null +++ b/ansi-tests/lambda-parameters-limit.lsp @@ -0,0 +1,17 @@ +;-*- 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 + -- GitLab