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
6a313afb
Commit
6a313afb
authored
May 29, 2005
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add tests for type declarations
parent
ac007919
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
65 additions
and
0 deletions
+65
-0
ansi-tests/load-eval-and-compile.lsp
ansi-tests/load-eval-and-compile.lsp
+1
-0
ansi-tests/type.lsp
ansi-tests/type.lsp
+64
-0
No files found.
ansi-tests/load-eval-and-compile.lsp
View file @
6a313afb
...
...
@@ -22,3 +22,4 @@
(load "macroexpand.lsp")
(load "macroexpand-1.lsp")
(load "declaration.lsp")
(load "type.lsp")
ansi-tests/type.lsp
0 → 100644
View file @
6a313afb
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sun May 29 08:25:46 2005
;;;; Contains: Tests of TYPE declarations
(in-package :cl-test)
;;; Also of implicit type declarations
(deftest type.1
(let ((x 1))
(declare (type (integer 0 1) x))
(values
x
(setq x 0)
(1+ x)))
1 0 1)
(deftest type.2
(let ((x 1))
(declare (type (integer -1 1) x))
(locally (declare (type (integer 0 2) x))
(values
x
(setq x 0)
(1+ x))))
1 0 1)
(deftest type.3
(loop for x in *mini-universe*
for tp = (type-of x)
for form = `(let ((y ',x))
(declare (type ,tp y))
y)
for val = (eval form)
unless (eql val x)
collect (list x tp form val))
nil)
(deftest type.4
(loop for x in *mini-universe*
for tp = (type-of x)
for form = `(let ((y ',x))
(declare (,tp y))
y)
for val = (eval form)
unless (eql val x)
collect (list x tp form val))
nil)
(deftest type.5
(loop for x in *mini-universe*
for class = (class-of x)
for form = `(let ((y ',x))
(declare (,class y))
y)
for val = (eval form)
unless (eql val x)
collect (list x class form val))
nil)
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