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
4cba75d6
Commit
4cba75d6
authored
May 28, 2005
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add explicit tests for macroexpand, macroexpand-1
parent
1f5063eb
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
117 additions
and
0 deletions
+117
-0
ansi-tests/load-eval-and-compile.lsp
ansi-tests/load-eval-and-compile.lsp
+2
-0
ansi-tests/macroexpand-1.lsp
ansi-tests/macroexpand-1.lsp
+58
-0
ansi-tests/macroexpand.lsp
ansi-tests/macroexpand.lsp
+57
-0
No files found.
ansi-tests/load-eval-and-compile.lsp
View file @
4cba75d6
...
...
@@ -19,3 +19,5 @@
(load "dynamic-extent.lsp")
(load "optimize.lsp")
(load "special.lsp")
(load "macroexpand.lsp")
(load "macroexpand-1.lsp")
ansi-tests/macroexpand-1.lsp
0 → 100644
View file @
4cba75d6
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat May 28 13:47:32 2005
;;;; Contains: Tests of MACROEXPAND-1
(in-package :cl-test)
(deftest macroexpand-1.error.1
(signals-error (macroexpand-1) program-error)
t)
(deftest macroexpand-1.error.2
(signals-error (macroexpand-1 'x nil nil) program-error)
t)
;;; Non-error tests
(deftest macroexpand-1.1
(loop for x in *universe*
unless (or (symbolp x)
(consp x)
(eql (macroexpand-1 x) x))
collect (list x (macroexpand-1 x)))
nil)
(deftest macroexpand-1.2
(loop for x in *universe*
unless (or (symbolp x)
(consp x)
(eql (macroexpand-1 x nil) x))
collect (list x (macroexpand-1 x nil)))
nil)
(deftest macroexpand-1.3
(macrolet ((%m (&environment env)
`(quote
,(loop for x in *universe*
unless (or (symbolp x)
(consp x)
(eql (macroexpand-1 x env) x))
collect (list x (macroexpand-1 x env))))))
(%m))
nil)
(deftest macroexpand-1.4
(macrolet ((%m () ''foo))
(macrolet ((%m2 (&environment env)
(macroexpand-1 '(%m) env)))
(%m2)))
foo)
ansi-tests/macroexpand.lsp
0 → 100644
View file @
4cba75d6
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sat May 28 13:43:00 2005
;;;; Contains: Tests of MACROEXPAND
(in-package :cl-test)
(deftest macroexpand.error.1
(signals-error (macroexpand) program-error)
t)
(deftest macroexpand.error.2
(signals-error (macroexpand 'x nil nil) program-error)
t)
;;; Non-error tests
(deftest macroexpand.1
(loop for x in *universe*
unless (or (symbolp x)
(consp x)
(eql (macroexpand x) x))
collect (list x (macroexpand x)))
nil)
(deftest macroexpand.2
(loop for x in *universe*
unless (or (symbolp x)
(consp x)
(eql (macroexpand x nil) x))
collect (list x (macroexpand x nil)))
nil)
(deftest macroexpand.3
(macrolet ((%m (&environment env)
`(quote
,(loop for x in *universe*
unless (or (symbolp x)
(consp x)
(eql (macroexpand x env) x))
collect (list x (macroexpand x env))))))
(%m))
nil)
(deftest macroexpand.4
(macrolet ((%m () ''foo))
(macrolet ((%m2 (&environment env)
(macroexpand '(%m) env)))
(%m2)))
foo)
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