parser3/tests/065.html - diff

Return to 065.html CVS log

Up to [parser3project] / parser3 / tests

-version 1.3, 2009/05/10 11:55:53
+version 1.7, 2024/12/11 00:39:45
  Line 1
  @auto[filespec]
  $selffilespec[$filespec]
  @main[]
- #src=$selffilespec<br>
+ $tRepl[^table::create[nameless]{$request:document-root  ^$request:document-root}]
- $sDirName[^file:dirname[$selffilespec]]
- #dirname=$sDirName<br />
+ ^do[]
- dirname=^if(^sDirName.left(1) eq "/" && ^sDirName.right(6) eq "/tests"){OK}<br />
+ ^do[$selffilespec]
- basename=^file:basename[$selffilespec]<br />
+ ^do[/a/some.tar.gz]
- justname=^file:justname[$selffilespec]<br />
+ ^do[/a///some.tar.gz]
- justext=^file:justext[$selffilespec]<br />
+ ^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]}]

E-mail: