From c4cc339f6968c2c00655f97c6a49d8b510c3b1ab Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 20 Oct 2006 23:18:16 +0000 Subject: [PATCH] tests for stripping trailing terminator by path-element->bytes svn: r4665 --- collects/tests/mzscheme/path.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/tests/mzscheme/path.ss b/collects/tests/mzscheme/path.ss index a16e52214c..a02d01a931 100644 --- a/collects/tests/mzscheme/path.ss +++ b/collects/tests/mzscheme/path.ss @@ -678,6 +678,8 @@ (test #t relative-path? "./~") (test (bytes->path #"./~") bytes->path-element #"~") (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 #"~me" path-element->bytes (bytes->path #"./~me")) (err/rt-test (path-element->bytes (bytes->path #"x/y")))