diff options
| author | Ken Brown | 2022-08-27 17:42:42 -0400 |
|---|---|---|
| committer | Ken Brown | 2022-08-28 11:43:50 -0400 |
| commit | 3edee9a6a352d0c352a29d6590233b412bd1ab04 (patch) | |
| tree | 8407d716764735fd65d0373da31af29547c1e6ab /test | |
| parent | c8c3cd3b08c468a8bc2c93fefaaf1c6f819a0d88 (diff) | |
| download | emacs-3edee9a6a352d0c352a29d6590233b412bd1ab04.tar.gz emacs-3edee9a6a352d0c352a29d6590233b412bd1ab04.zip | |
Fix data for files-tests-bug-21454 on Cygwin
* test/lisp/files-tests.el (files-tests-bug-21454): Fix test data
to reflect the fact that Cygwin supports UNC paths.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/files-tests.el | 47 |
1 files changed, 33 insertions, 14 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index 20c712226ed..682b5cdb449 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el | |||
| @@ -223,20 +223,39 @@ form.") | |||
| 223 | ("x:/foo/bar/baz/" "z:/qux/foo/")) | 223 | ("x:/foo/bar/baz/" "z:/qux/foo/")) |
| 224 | ("///foo/bar/" "$FOO/baz/;/qux/foo/" | 224 | ("///foo/bar/" "$FOO/baz/;/qux/foo/" |
| 225 | ("//foo/bar//baz/" "/qux/foo/"))) | 225 | ("//foo/bar//baz/" "/qux/foo/"))) |
| 226 | '(("/foo/bar//baz/:/bar/foo/baz//" nil | 226 | (if (eq system-type 'cygwin) |
| 227 | ("/foo/bar//baz/" "/bar/foo/baz//")) | 227 | '(("/foo/bar//baz/:/bar/foo/baz//" nil |
| 228 | ("/foo/bar/:/bar/qux/:/qux/foo" nil | 228 | ("/foo/bar//baz/" "/bar/foo/baz//")) |
| 229 | ("/foo/bar/" "/bar/qux/" "/qux/foo/")) | 229 | ("/foo/bar/:/bar/qux/:/qux/foo" nil |
| 230 | ("//foo/bar/:/bar/qux/:/qux/foo/" nil | 230 | ("/foo/bar/" "/bar/qux/" "/qux/foo/")) |
| 231 | ("/foo/bar/" "/bar/qux/" "/qux/foo/")) | 231 | ("//foo/bar/:/bar/qux/:/qux/foo/" nil |
| 232 | ("/foo/bar/:/bar/qux/:/qux/foo/" nil | 232 | ("//foo/bar/" "/bar/qux/" "/qux/foo/")) |
| 233 | ("/foo/bar/" "/bar/qux/" "/qux/foo/")) | 233 | ("/foo/bar/:/bar/qux/:/qux/foo/" nil |
| 234 | ("/foo//bar/:/bar/qux/:/qux/foo/" nil | 234 | ("/foo/bar/" "/bar/qux/" "/qux/foo/")) |
| 235 | ("/foo//bar/" "/bar/qux/" "/qux/foo/")) | 235 | ("/foo//bar/:/bar/qux/:/qux/foo/" nil |
| 236 | ("/foo//bar/:/bar/qux/:/qux/foo" nil | 236 | ("/foo//bar/" "/bar/qux/" "/qux/foo/")) |
| 237 | ("/foo//bar/" "/bar/qux/" "/qux/foo/")) | 237 | ("/foo//bar/:/bar/qux/:/qux/foo" nil |
| 238 | ("/foo/bar" "$FOO/baz/:/qux/foo/" ("/foo/bar/baz/" "/qux/foo/")) | 238 | ("/foo//bar/" "/bar/qux/" "/qux/foo/")) |
| 239 | ("//foo/bar/" "$FOO/baz/:/qux/foo/" ("/foo/bar//baz/" "/qux/foo/"))))) | 239 | ("/foo/bar" "$FOO/baz/:/qux/foo/" |
| 240 | ("/foo/bar/baz/" "/qux/foo/")) | ||
| 241 | ("///foo/bar/" "$FOO/baz/:/qux/foo/" | ||
| 242 | ("//foo/bar//baz/" "/qux/foo/"))) | ||
| 243 | '(("/foo/bar//baz/:/bar/foo/baz//" nil | ||
| 244 | ("/foo/bar//baz/" "/bar/foo/baz//")) | ||
| 245 | ("/foo/bar/:/bar/qux/:/qux/foo" nil | ||
| 246 | ("/foo/bar/" "/bar/qux/" "/qux/foo/")) | ||
| 247 | ("//foo/bar/:/bar/qux/:/qux/foo/" nil | ||
| 248 | ("/foo/bar/" "/bar/qux/" "/qux/foo/")) | ||
| 249 | ("/foo/bar/:/bar/qux/:/qux/foo/" nil | ||
| 250 | ("/foo/bar/" "/bar/qux/" "/qux/foo/")) | ||
| 251 | ("/foo//bar/:/bar/qux/:/qux/foo/" nil | ||
| 252 | ("/foo//bar/" "/bar/qux/" "/qux/foo/")) | ||
| 253 | ("/foo//bar/:/bar/qux/:/qux/foo" nil | ||
| 254 | ("/foo//bar/" "/bar/qux/" "/qux/foo/")) | ||
| 255 | ("/foo/bar" "$FOO/baz/:/qux/foo/" | ||
| 256 | ("/foo/bar/baz/" "/qux/foo/")) | ||
| 257 | ("//foo/bar/" "$FOO/baz/:/qux/foo/" | ||
| 258 | ("/foo/bar//baz/" "/qux/foo/")))))) | ||
| 240 | (foo-env (getenv "FOO")) | 259 | (foo-env (getenv "FOO")) |
| 241 | (bar-env (getenv "BAR"))) | 260 | (bar-env (getenv "BAR"))) |
| 242 | (unwind-protect | 261 | (unwind-protect |