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
ccfa0f68
Commit
ccfa0f68
authored
Feb 18, 2013
by
Francois-Rene Rideau
Browse files
Add TODO items. Add version tests.
parent
aa1720f4
Changes
2
Hide whitespace changes
Inline
Side-by-side
TODO
View file @
ccfa0f68
* have a better defsystem form verifier - see lp#1007335
* have a function verify-strict-asd that can verify a asd is pure lp#541562
Then if it passes, use load-strict-asd.
If not, optionally issue a warning. Start migrating people toward that.
* have with-input-file use the encodings mechanism?
* have a single test .asd that tests as many features as possible, use it for upgrade test.
* implement deferred warnings support on abcl, allegro, clisp, cmucl, lispworks, scl)
...
...
test/test-version.script
View file @
ccfa0f68
;;; -*- Lisp -*-
(DBG "Check that there is an ASDF version that correctly parses to a non-empty list")
(assert (consp (parse-version (asdf-version) 'error)))
(DBG "Check that ASDF is newer than 1.234")
(assert-compare (version<= "1.234" (asdf-version)))
(DBG "Check that ASDF is not a compatible replacement for 1.234")
(assert (not (version-compatible-p (asdf-version) "1.234")))
(DBG "Check that asdf.asd is not registered and we're using a fallback system")
(defparameter *asdf* (find-system :asdf))
(assert-equal nil (system-source-directory *asdf*))
(DBG "Check that the fallback system bears the current asdf version")
(assert-equal (asdf-version) (component-version *asdf*))
(def-test-system :versioned-system-1
:pathname #.*test-directory*
:version "1.0")
...
...
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