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