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
asdf
asdf
Commits
6a10fd80
Commit
6a10fd80
authored
Nov 07, 2013
by
Francois-Rene Rideau
Browse files
Add test for previously fixed issue with version-satisfies.
parent
3b80baa7
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-utilities.script
View file @
6a10fd80
...
...
@@ -31,6 +31,13 @@
(assert (version-satisfies (asdf-version) (asdf-version)))
(assert (version-satisfies (asdf-version) "3.0"))
(assert (version-satisfies (asdf-version) "2.0"))
(assert (version-satisfies (find-system :test-asdf) "666"))
(handler-case (version-satisfies (find-system :test-asdf) "666")
(simple-warning (c)
(assert-equal (simple-condition-format-control c)
"Requested version ~S but component ~S has no version"))
(:no-error (x)
(error "version-satisfies must warn when given component without version")))
(assert (version<= "2.0" (asdf-version)))
(assert (not (version-satisfies (asdf-version) "666")))
(assert-pathnames-equal
...
...
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