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
asdf
asdf
Commits
92dc2fec
Commit
92dc2fec
authored
Nov 30, 2014
by
Robert P. Goldman
Browse files
Added TEST-PATHNAME-PARSING for launchpad bug 1396847.
parent
1595b6fd
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/asdf-pathname-test.script
View file @
92dc2fec
...
...
@@ -418,6 +418,34 @@
(setf (logical-pathname-translations "ASDFTEST") nil))
(clear-system "test-system")))
(defun test-pathname-parsing ()
#-(or allegro clisp clozure ecl lispworks mkcl sbcl cmu)
(progn
;; FIXME: unable to get DBG to load in this file. [2014/11/30:rpg]
(format t "Can't test pathname parsing: this lisp lacks SETENV support.")
t)
#+(or allegro clisp clozure ecl lispworks mkcl sbcl cmu)
(let ((old-config (uiop:getenvp "XDG_CONFIG_DIRS"))
(old-home-config (uiop:getenvp "XDG_CONFIG_HOME")))
(unwind-protect
(progn
(setf (uiop:getenv "XDG_CONFIG_DIRS") "/foo:prismatic")
(multiple-value-bind (ret err)
(ignore-errors
(uiop:user-configuration-directories))
(assert (and (not ret) err)))
(setf (uiop:getenv "XDG_CONFIG_DIRS") "/foo:")
(setf (uiop:getenv "XDG_CONFIG_HOME") "")
(multiple-value-bind (ret err)
(ignore-errors
(uiop:user-configuration-directories))
(assert (not err))
(assert (= (length ret) 2))))
(when old-config
(setf (uiop:getenv "XDG_CONFIG_DIRS") old-config))
(when old-home-config
(setf (uiop:getenv "XDG_CONFIG_HOME") old-home-config)))))
(asdf:initialize-source-registry)
(format t "source registry: ~S~%" (hash-table->alist asdf::*source-registry*))
(asdf:initialize-output-translations)
...
...
@@ -439,3 +467,5 @@
#-gcl
(assert (test-component-pathnames :delete-host t :support-string-pathnames nil))
(test-pathname-parsing)
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