Changeset 12654
- Timestamp:
- 05/06/10 07:11:48 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/test/lisp/abcl/jar-pathname.lisp
r12617 r12654 125 125 ;;; XXX come up with a better abstraction 126 126 127 (defvar *url-jar-pathname-base* 128 "jar:http://abcl-dynamic-install.googlecode.com/files/baz-20100505a.jar!/") 129 130 (defmacro load-url-relative (path) 131 `(load (format nil "~A~A" *url-jar-pathname-base* ,path))) 132 127 133 (progn 128 134 (deftest jar-pathname.load.11 129 (load "jar:http://abcl-dynamic-install.googlecode.com/files/baz.jar!/foo")135 (load-url-relative "foo") 130 136 t) 131 137 132 138 (deftest jar-pathname.load.12 133 (load "jar:http://abcl-dynamic-install.googlecode.com/files/baz.jar!/bar")139 (load-url-relative "bar") 134 140 t) 135 141 136 142 (deftest jar-pathname.load.13 137 (load "jar:http://abcl-dynamic-install.googlecode.com/files/baz.jar!/bar.abcl")143 (load-url-relative "bar.abcl") 138 144 t) 139 145 140 146 (deftest jar-pathname.load.14 141 (load "jar:http://abcl-dynamic-install.googlecode.com/files/baz.jar!/eek")147 (load-url-relative "eek") 142 148 t) 143 149 144 150 (deftest jar-pathname.load.15 145 (load "jar:http://abcl-dynamic-install.googlecode.com/files/baz.jar!/eek.lisp")151 (load-url-relative "eek.lisp") 146 152 t) 147 153 148 154 (deftest jar-pathname.load.16 149 (load "jar:http://abcl-dynamic-install.googlecode.com/files/baz.jar!/a/b/foo")155 (load-url-relative "a/b/foo") 150 156 t) 151 157 152 158 (deftest jar-pathname.load.17 153 (load "jar:http://abcl-dynamic-install.googlecode.com/files/baz.jar!/a/b/bar")159 (load-url-relative "a/b/bar") 154 160 t) 155 161 156 162 (deftest jar-pathname.load.18 157 (load "jar:http://abcl-dynamic-install.googlecode.com/files/baz.jar!/a/b/bar.abcl")163 (load-url-relative "a/b/bar.abcl") 158 164 t) 159 165 160 166 (deftest jar-pathname.load.19 161 (load "jar:http://abcl-dynamic-install.googlecode.com/files/baz.jar!/a/b/eek")167 (load-url-relative "a/b/eek") 162 168 t) 163 169 164 170 (deftest jar-pathname.load.20 165 (load "jar:http://abcl-dynamic-install.googlecode.com/files/baz.jar!/a/b/eek.lisp")171 (load-url-relative "a/b/eek.lisp") 166 172 t)) 167 168 173 169 174 (deftest jar-pathname.probe-file.1 … … 215 220 "jar:file:baz.jar!/foo" "/a/b/c") 216 221 #p"jar:file:/a/b/baz.jar!/foo") 222 223 224 ;;; Under win32, we get the device in the merged path 225 #+windows 226 (push 'jar-pathname.merge-pathnames.5 *expected-failures*) 217 227 218 228 (deftest jar-pathname.merge-pathnames.5 … … 333 343 334 344 (deftest jar-pathname.translate.1 335 (namestring 336 (translate-pathname "jar:file:/a/b/c.jar!/d/e/f.lisp" 337 "jar:file:/**/*.jar!/**/*.*" 338 "/foo/**/*.*")) 339 "/foo/d/e/f.lisp") 345 (translate-pathname "jar:file:/a/b/c.jar!/d/e/f.lisp" 346 "jar:file:/**/*.jar!/**/*.*" 347 "/foo/**/*.*") 348 #p"/foo/d/e/f.lisp") 340 349 341 350
Note: See TracChangeset
for help on using the changeset viewer.