--- parser3/tests/065.html 2011/11/11 06:32:41 1.5
+++ parser3/tests/065.html 2024/12/28 15:42:43 1.8
@@ -5,22 +5,36 @@ $selffilespec[$filespec]
@main[]
$tRepl[^table::create[nameless]{$request:document-root ^$request:document-root}]
+uri: $request:uri
+path: $request:path
+
^do[]
^do[$selffilespec]
^do[/a/some.tar.gz]
+^do[/a///some.tar.gz]
+^do[/a/b///]
+^do[/a/b///c//]
^do[/a/b/]
+^do[/a/b]
^do[/a/]
^do[/a]
^do[/]
+^do[///]
+^do[a///]
^do[/a/file]
^do[/a/dir.zz/file.html]
^do[file]
^do[/a/dir.zz/file]
^do[C:\temp\file.txt]
+^do[C:\file.txt]
# slashes mixes
^do[C:\temp/file.txt]
^do[C:/temp\file.txt]
+^do[^file::create[text;/../;]]
+^do[^file::create[text;/path/name.ext;]]
+^file:fullpath[^file::create[text;/path/name.ext;]]
+^try-catch{^file:fullpath{code}}
@do[sFileSpec]
src=^printFS[$sFileSpec]
@@ -32,4 +46,4 @@ justext=^file:justext[$sFileSpec]
@printFS[sFileSpec]
-$result[^sFileSpec.replace[$tRepl]]
+$result[^if($sFileSpec is file){$sFileSpec.name}{^sFileSpec.replace[$tRepl]}]