suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added path->url tests for directory paths

Browse Source 
This check that no regression was introduced with 733d95b.
This commit is contained in:
Philippe Mechai 2012-11-07 08:29:35 +01:00 committed by Matthew Flatt
parent d8ff661118
commit 201534b7ad
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/tests/net/url.rkt
View File

@ -181,22 +181,40 @@
(test (string->url/vec "http://foo:/abc/def.html")
=> #("http" #f "foo" #f #t (#("abc") #("def.html")) () #f)))
(test (url->string (path->url (bytes->path #"c:\\a\\b" 'windows)))
(test (url->string (path->url (bytes->path #"/a/b" 'unix)))
=> "file:///a/b"
(url->string (path->url (bytes->path #"/a/b/" 'unix)))
=> "file:///a/b/"
(url->string (path->url (bytes->path #"c:\\a\\b" 'windows)))
=> "file:///c:/a/b"
(url->string (path->url (bytes->path #"c:\\a\\b\\" 'windows)))
=> "file:///c:/a/b/"
(url->string (path->url (bytes->path #"\\\\?\\c:\\a\\b" 'windows)))
=> "file:///c:/a/b")
=> "file:///c:/a/b"
(url->string (path->url (bytes->path #"\\\\?\\c:\\a\\b\\" 'windows)))
=> "file:///c:/a/b/")
(test
(path->bytes (url->path (path->url (bytes->path #"/a/b/c" 'unix)) 'unix))
=> #"/a/b/c"
(path->bytes (url->path (path->url (bytes->path #"/a/b/c/" 'unix)) 'unix))
=> #"/a/b/c/."
(path->bytes (url->path (path->url (bytes->path #"a/b/c" 'unix)) 'unix))
=> #"a/b/c"
(path->bytes (url->path (path->url (bytes->path #"a/b/c/" 'unix)) 'unix))
=> #"a/b/c/."
(path->bytes (url->path (path->url (bytes->path #"c:/a/b" 'windows)) 'windows))
=> #"c:\\a\\b"
(path->bytes (url->path (path->url (bytes->path #"c:/a/b/" 'windows)) 'windows))
=> #"c:\\a\\b\\."
(path->bytes (url->path (path->url (bytes->path #"a/b" 'windows)) 'windows))
=> #"a\\b"
(path->bytes (url->path (path->url (bytes->path #"a/b/" 'windows)) 'windows))
=> #"a\\b\\."
(path->bytes (url->path (path->url (bytes->path #"//d/c/a" 'windows)) 'windows))
=> #"\\\\d\\c\\a"
(path->bytes (url->path (path->url (bytes->path #"//d/c/a/" 'windows)) 'windows))
=> #"\\\\d\\c\\a\\."
(path->bytes (url->path (path->url (bytes->path #"\\\\?\\c:\\a\\b" 'windows)) 'windows))
=> #"c:\\a\\b"
(path->bytes (url->path (path->url (bytes->path #"\\\\?\\UNC\\d\\c\\a\\b" 'windows)) 'windows))