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

tests for stripping trailing terminator by path-element->bytes

Browse Source 
svn: r4665
This commit is contained in:
Matthew Flatt 2006-10-20 23:18:16 +00:00
parent cc51634826
commit c4cc339f69
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/path.ss
View File

@ -678,6 +678,8 @@
(test #t relative-path? "./~") (test #t relative-path? "./~")
(test (bytes->path #"./~") bytes->path-element #"~") (test (bytes->path #"./~") bytes->path-element #"~")
(test #"~" path-element->bytes (bytes->path #"./~")) (test #"~" path-element->bytes (bytes->path #"./~"))
(test #"~" path-element->bytes (bytes->path #"./~/"))
(test #"a" path-element->bytes (bytes->path #"a////////////"))
(test (bytes->path #"./~me") bytes->path-element #"~me") (test (bytes->path #"./~me") bytes->path-element #"~me")
(test #"~me" path-element->bytes (bytes->path #"./~me")) (test #"~me" path-element->bytes (bytes->path #"./~me"))
(err/rt-test (path-element->bytes (bytes->path #"x/y"))) (err/rt-test (path-element->bytes (bytes->path #"x/y")))