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
0f788f8e
Commit
0f788f8e
authored
Jan 23, 2006
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
More macro env tests
parent
900e9e05
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
37 additions
and
1 deletion
+37
-1
ansi-tests/assoc-if-not.lsp
ansi-tests/assoc-if-not.lsp
+1
-1
ansi-tests/assoc-if.lsp
ansi-tests/assoc-if.lsp
+19
-0
ansi-tests/atan.lsp
ansi-tests/atan.lsp
+4
-0
ansi-tests/atanh.lsp
ansi-tests/atanh.lsp
+3
-0
ansi-tests/atom.lsp
ansi-tests/atom.lsp
+10
-0
No files found.
ansi-tests/assoc-if-not.lsp
View file @
0f788f8e
...
...
@@ -119,7 +119,7 @@
(assoc-if-not #'evenp alist :key (expand-in-current-env (%m '1+)))
)))
(4 . c)
(4 . c))
(4 . c))
;;; Error tests
...
...
ansi-tests/assoc-if.lsp
View file @
0f788f8e
...
...
@@ -99,6 +99,25 @@
(assoc-if #'null '((a . 1) (nil . 2) (c . 3)) :key nil :key #'null)
(nil . 2))
;;; Macro env tests
(deftest assoc-if.env.1
(macrolet
((%m (z) z))
(let ((alist '((1 . a) (3 . b) (6 . c) (8 . d) (-1 . e))))
(values
(assoc-if (expand-in-current-env (%m 'evenp)) alist)
(assoc-if (expand-in-current-env (%m #'evenp)) alist)
(assoc-if #'evenp (expand-in-current-env (%m alist)))
(assoc-if 'oddp alist (expand-in-current-env (%m :key)) '1+)
(assoc-if 'oddp alist :key (expand-in-current-env (%m #'1+)))
)))
(6 . c)
(6 . c)
(6 . c)
(6 . c)
(6 . c))
;;; Error cases
(deftest assoc-if.error.1
...
...
ansi-tests/atan.lsp
View file @
0f788f8e
...
...
@@ -119,6 +119,10 @@
collect (approx= (atan (coerce -1 type)) (coerce (/ pi -4) type)))
(t t t t))
(deftest atan.14
(macrolet ((%m (z) z)) (atan (expand-in-current-env (%m 0.0))))
0.0)
;;; FIXME
;;; More accuracy tests here
...
...
ansi-tests/atanh.lsp
View file @
0f788f8e
...
...
@@ -93,6 +93,9 @@
collect (list x1 rlist)))
nil)
(deftest atanh.8
(macrolet ((%m (z) z)) (atanh (expand-in-current-env (%m 0.0))))
0.0)
;;; FIXME
...
...
ansi-tests/atom.lsp
View file @
0f788f8e
...
...
@@ -7,6 +7,16 @@
; (compile-and-load "cons-aux.lsp")
(deftest atom.1
(loop for x in *universe*
unless (if (atom x) (not (consp x)) (consp x))
collect x)
nil)
(deftest atom.2
(macrolet ((%m (z) z)) (atom (expand-in-current-env (%m 0))))
t)
(deftest atom.order.1
(let ((i 0))
(values (atom (progn (incf i) '(a b))) i))
...
...
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