Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
ansi-test
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Karsten Poeck
ansi-test
Commits
519614ef
Commit
519614ef
authored
Jan 08, 2005
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Separated out tests for symbol-macrolet; added tests for locally
parent
11063122
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
120 additions
and
0 deletions
+120
-0
ansi-tests/load-eval-and-compile.lsp
ansi-tests/load-eval-and-compile.lsp
+3
-0
ansi-tests/locally.lsp
ansi-tests/locally.lsp
+39
-0
ansi-tests/symbol-macrolet.lsp
ansi-tests/symbol-macrolet.lsp
+78
-0
No files found.
ansi-tests/load-eval-and-compile.lsp
View file @
519614ef
...
...
@@ -10,4 +10,7 @@
(load "define-symbol-macro.lsp")
(load "defmacro.lsp")
(load "the.lsp")
(load "symbol-macrolet.lsp")
(load "locally.lsp")
ansi-tests/locally.lsp
0 → 100644
View file @
519614ef
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Jan 8 06:02:47 2005
;;;; Contains: Tests of LOCALLY
(in-package :cl-test)
(deftest locally.1
(locally)
nil)
(deftest locally.2
(locally (values)))
(deftest locally.3
(locally (values 1 2 3 4))
1 2 3 4)
(deftest locally.4
(locally (declare) t)
t)
(deftest locally.5
(locally (declare) (declare) (declare) t)
t)
(deftest locally.6
(let ((x 'a))
(declare (special x))
(let ((x 'b))
(values
x
(locally (declare (special x)) x)
x)))
b a b)
(deftest locally.7
(locally (declare))
nil)
ansi-tests/symbol-macrolet.lsp
0 → 100644
View file @
519614ef
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat Jan 8 05:58:53 2005
;;;; Contains: Tests of SYMBOL-MACROLET
(in-package :cl-test)
(deftest symbol-macrolet.1
(loop for s in *cl-non-variable-constant-symbols*
for form = `(ignore-errors (symbol-macrolet ((,s 17)) ,s))
unless (eql (eval form) 17)
collect s)
nil)
(deftest symbol-macrolet.2
(symbol-macrolet ())
nil)
(deftest symbol-macrolet.3
(symbol-macrolet () (declare (optimize)))
nil)
(deftest symbol-macrolet.4
(symbol-macrolet ((x 1))
(symbol-macrolet ((x 2))
x))
2)
(deftest symbol-macrolet.5
(let ((x 10))
(symbol-macrolet ((y x))
(list x
y
(let ((x 20)) x)
(let ((y 30)) x)
(let ((y 50)) y)
x
y)))
(10 10 20 10 50 10 10))
(deftest symbol-macrolet.6
(symbol-macrolet () (values)))
(deftest symbol-macrolet.7
(symbol-macrolet () (values 'a 'b 'c 'd 'e))
a b c d e)
(deftest symbol-macrolet.8
(let ((x :bad))
(declare (special x))
(let ((x :good))
(symbol-macrolet () (declare (special x)) x)))
:good)
;;; Error tests
(deftest symbol-macrolet.error.1
(signals-error
(symbol-macrolet ((x 10))
(declare (special x))
20)
program-error)
t)
(defconstant constant-for-symbol-macrolet.error.2 nil)
(deftest symbol-macrolet.error.2
(signals-error (symbol-macrolet ((constant-for-symbol-macrolet.error.2 'a))
constant-for-symbol-macrolet.error.2)
program-error)
t)
(deftest symbol-macrolet.error.3
(signals-error (symbol-macrolet ((*pathnames* 19)) *pathnames*)
program-error)
t)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment