--- parser3/tests/065.html	2003/03/04 11:51:53	1.1.2.1
+++ parser3/tests/065.html	2024/12/11 00:39:45	1.7
@@ -1,9 +1,46 @@
 @auto[filespec]
 $selffilespec[$filespec]
 
+
 @main[]
-#src=$selffilespec<br>
-#dirname=^file:dirname[$selffilespec]<br>
-basename=^file:basename[$selffilespec]<br>
-justname=^file:justname[$selffilespec]<br>
-justext=^file:justext[$selffilespec]<br>
+$tRepl[^table::create[nameless]{$request:document-root	^$request:document-root}]
+
+^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]<br />
+dirname=^printFS[^file:dirname[$sFileSpec]]<br />
+basename=^file:basename[$sFileSpec]<br />
+justname=^file:justname[$sFileSpec]<br />
+justext=^file:justext[$sFileSpec]
+<hr />
+
+
+@printFS[sFileSpec]
+$result[^if($sFileSpec is file){$sFileSpec.name}{^sFileSpec.replace[$tRepl]}]