Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
8dbeadbf
Commit
8dbeadbf
authored
Apr 24, 2005
by
pfdietz
Browse files
More test ordering fixes
parent
ebb96415
Changes
6
Hide whitespace changes
Inline
Side-by-side
ansi-tests/ansi-aux.lsp
View file @
8dbeadbf
...
...
@@ -1066,8 +1066,3 @@ the condition to go uncaught if it cannot be classified."
(let ((eps 1.0d-4))
(<= (abs (- x y))
(* eps (max (abs x) (abs y))))))
\ No newline at end of file
ansi-tests/find-symbol.lsp
View file @
8dbeadbf
...
...
@@ -5,7 +5,7 @@
(in-package :cl-test)
(
compile-and-
load "packages-00.lsp")
(load "packages-00.lsp")
;;(declaim (optimize (safety 3)))
...
...
ansi-tests/make-package.lsp
View file @
8dbeadbf
...
...
@@ -467,7 +467,7 @@
(deftest make-package.error.4
(handle-non-abort-restart
(safely-delete-package "TEST1")
(s
afely-delete
-package
"Q"
)
(s
et-up
-package
s
)
(make-package "TEST1" :nicknames '("Q")))
success)
...
...
ansi-tests/package-name.lsp
View file @
8dbeadbf
...
...
@@ -10,19 +10,27 @@
;;; package-name
(deftest package-name.1
(let () (ignore-errors (package-name "A")))
(progn
(set-up-packages)
(package-name "A"))
"A")
(deftest package-name.2
(let () (ignore-errors (package-name #\A)))
(progn
(set-up-packages)
(package-name #\A))
"A")
(deftest package-name.3
(let () (ignore-errors (package-name "Q")))
(progn
(set-up-packages)
(package-name "Q"))
"A")
(deftest package-name.4
(let () (ignore-errors (package-name #\Q)))
(progn
(set-up-packages)
(package-name #\Q))
"A")
(deftest package-name.5
...
...
@@ -101,7 +109,7 @@
(loop
for p in (list-all-packages) count
(not (equal (package-name p)
(ignore-errors
(package-name (package-name p)))))
)
(package-name (package-name p)))))
0)
;;; Specialized sequence tests
...
...
ansi-tests/package-nicknames.lsp
View file @
8dbeadbf
...
...
@@ -10,44 +10,52 @@
;;; package-nicknames
(deftest package-nicknames.1
(let () (ignore-errors (package-nicknames "A")))
(progn
(set-up-packages)
(package-nicknames "A"))
("Q"))
(deftest package-nicknames.2
(let () (ignore-errors (package-nicknames #\A)))
(progn
(set-up-packages)
(package-nicknames #\A))
("Q"))
(deftest package-nicknames.3
(let () (ignore-errors (package-nicknames ':|A|)))
(progn
(set-up-packages)
(package-nicknames ':|A|))
("Q"))
(deftest package-nicknames.4
(let () (ignore-errors (package-nicknames "B")))
(progn
(set-up-packages)
(package-nicknames "B"))
nil)
(deftest package-nicknames.5
(let () (ignore-errors (package-nicknames #\B)))
(progn
(set-up-packages)
(package-nicknames #\B))
nil)
(deftest package-nicknames.6
(let () (ignore-errors (package-nicknames '#:|B|)))
(progn
(set-up-packages)
(package-nicknames '#:|B|))
nil)
(deftest package-nicknames.7
(let ()
(ignore-errors
(subsetp '(#.(string '#:cl))
(package-nicknames "COMMON-LISP")
:test #'string=)))
(subsetp '(#.(string '#:cl))
(package-nicknames "COMMON-LISP")
:test #'string=)
t)
(deftest package-nicknames.8
(let ()
(ignore-errors
(notnot
(subsetp '(#.(string '#:cl-user))
(package-nicknames "COMMON-LISP-USER")
:test #'string=))))
(notnot
(subsetp '(#.(string '#:cl-user))
(package-nicknames "COMMON-LISP-USER")
:test #'string=))
t)
(deftest package-nicknames.9
...
...
@@ -59,7 +67,9 @@
t)
(deftest package-nicknames.10
(let () (ignore-errors (package-nicknames (find-package "A"))))
(progn
(set-up-packages)
(package-nicknames (find-package "A")))
("Q"))
(deftest package-nicknames.11
...
...
ansi-tests/with-package-iterator.lsp
View file @
8dbeadbf
...
...
@@ -6,7 +6,7 @@
(in-package :cl-test)
(declaim (optimize (safety 3)))
(
compile-and-
load "package-aux.lsp")
(load "package-aux.lsp")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; with-package-iterator
...
...
@@ -31,27 +31,39 @@
;;; multiple inheritance
(deftest with-package-iterator.5
(with-package-iterator-all '("A"))
(progn
(set-up-packages)
(with-package-iterator-all '("A")))
t)
(deftest with-package-iterator.6
(with-package-iterator-all '(#:|A|))
(progn
(set-up-packages)
(with-package-iterator-all '(#:|A|)))
t)
(deftest with-package-iterator.7
(with-package-iterator-all '(#\A))
(progn
(set-up-packages)
(with-package-iterator-all '(#\A)))
t)
(deftest with-package-iterator.8
(with-package-iterator-internal (list (find-package "A")))
(progn
(set-up-packages)
(with-package-iterator-internal (list (find-package "A"))))
t)
(deftest with-package-iterator.9
(with-package-iterator-external (list (find-package "A")))
(progn
(set-up-packages)
(with-package-iterator-external (list (find-package "A"))))
t)
(deftest with-package-iterator.10
(with-package-iterator-inherited (list (find-package "A")))
(progn
(set-up-packages)
(with-package-iterator-inherited (list (find-package "A"))))
t)
(deftest with-package-iterator.11
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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