Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Didier Verna
asdf
Commits
139af5a4
Commit
139af5a4
authored
Jan 17, 2013
by
Francois-Rene Rideau
Browse files
Update some tests
parent
a730852a
Changes
3
Hide whitespace changes
Inline
Side-by-side
test/asdf-pathname-test.script
View file @
139af5a4
...
...
@@ -329,11 +329,11 @@
;; we're testing with unix, are we not?
(x (resolve-location '(:home)) (truename (user-homedir-pathname)))
(x (resolve-location '("/foo" "bar" "baz")) #p"/foo/bar/baz")
(x (resolve-location '("/foo" "bar" "baz") :
want
-directory t) #p"/foo/bar/baz/")
(x (resolve-location '("/foo" "bar" "baz") :
want
-directory t :wilden t) (wilden #p"/foo/bar/baz/"))
(x (resolve-location '("/foo" "bar" "baz") :
want
-directory nil :wilden t) (wilden #p"/foo/bar/"))
(x (resolve-location '("/foo" "bar" "baz") :
ensure
-directory t) #p"/foo/bar/baz/")
(x (resolve-location '("/foo" "bar" "baz") :
ensure
-directory t :wilden t) (wilden #p"/foo/bar/baz/"))
(x (resolve-location '("/foo" "bar" "baz") :
ensure
-directory nil :wilden t) (wilden #p"/foo/bar/"))
#-gcl
(x (resolve-location '("/foo" "bar" :**/ "baz" #p"*.*") :
want
-directory nil :wilden t) #p"/foo/bar/**/baz/*.*")))
(x (resolve-location '("/foo" "bar" :**/ "baz" #p"*.*") :
ensure
-directory nil :wilden t) #p"/foo/bar/**/baz/*.*")))
#-(or xcl gcl<2.7) ;;---*** pathnames are known to be massively broken on XCL and GCL 2.6
(or (test-component-pathnames :delete-host t :support-string-pathnames nil)
...
...
test/hello-world-example.asd
View file @
139af5a4
;; Example executable program
(
defsystem
:hello-world-example
:class
:program-system
:class
:bundle-system
:build-operation
program-op
:entry-point
"hello:main"
:depends-on
(
:asdf-driver
)
:translate-output-p
nil
...
...
test/test-utilities.script
View file @
139af5a4
...
...
@@ -26,17 +26,17 @@
;; These are funky and non portable, omit from tests:
;; (make-pathname* :name "." :type nil :directory '(:absolute "tmp"))
;; (make-pathname* :name "." :type "" :directory '(:absolute "tmp"))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "" :
want
-directory t))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "" :
ensure
-directory t))
'(:relative nil nil nil)))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "" :
want
-directory nil))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "" :
ensure
-directory nil))
'(:relative nil nil nil)))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "/" :
want
-directory t))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "/" :
ensure
-directory t))
'(:absolute nil nil nil)))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "/" :
want
-directory nil))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "/" :
ensure
-directory nil))
'(:absolute nil nil nil)))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "/aa/ba" :
want
-directory t))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "/aa/ba" :
ensure
-directory t))
'(:absolute ("aa" "ba") nil nil)))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "/aa/ba" :
want
-directory nil))
(assert (equal (multiple-value-list (split-unix-namestring-directory-components "/aa/ba" :
ensure
-directory nil))
'(:absolute ("aa") "ba" nil)))
(assert
(version-satisfies (asdf-version) (asdf-version)))
...
...
@@ -48,13 +48,13 @@
(mapcar 'namestring (split-native-pathnames-string "foo:bar"))
'("foo" "bar"))
(assert-equal
(mapcar 'namestring (split-native-pathnames-string "foo:bar" :
want
-directory t))
(mapcar 'namestring (split-native-pathnames-string "foo:bar" :
ensure
-directory t))
'("foo/" "bar/"))
(assert-equal
(mapcar 'namestring (split-native-pathnames-string "/foo:/bar" :want-absolute t))
'("/foo" "/bar"))
(assert-equal
(mapcar 'namestring (split-native-pathnames-string "/foo:/bar" :want-absolute t :
want
-directory t))
(mapcar 'namestring (split-native-pathnames-string "/foo:/bar" :want-absolute t :
ensure
-directory t))
'("/foo/" "/bar/"))
(assert-equal
(mapcar 'location-function-p
...
...
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