paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-02 20:26:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

* additional tests added similarly to tfexpand.pp to test modified behaviour discussed in bug #34166

Browse Source 
git-svn-id: trunk@39848 -
This commit is contained in:
Tomas Hajny 2018-09-30 20:49:24 +00:00
parent 9857b840f3
commit e147f6fb48
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/test/units/sysutils/tfexpand2.pp
View File

@ -349,6 +349,13 @@ if CDir [Length (CDir)] = DirSep then Check ('c:anything', CDir + 'anything')
Check ('..', TestDir + TestDir1Name);
Check ('.' + DirSep + '..', TestDir + TestDir1Name);
Check ('..' + DirSep + '.', TestDir + TestDir1Name);
Check (TestDir + TestDir1Name + DirSep + DirSep + '..' + DirSep, TestDir);
Check (TestDir + TestDir1Name + DirSep + '/' + DirSep + '..' + DirSep, TestDir);
Check (TestDir + TestDir1Name + DirSep + DirSep + DirSep + '..' + DirSep, TestDir);
Check (TestDir + TestDir1Name + DirSep + DirSep + TestDir2Name + DirSep + DirSep + '..',
TestDir + TestDir1Name);
Check (TestDir + TestDir1Name + DirSep + DirSep + TestDir2Name + DirSep + DirSep + '..'
+ DirSep + DirSep, TestDir + TestDir1Name + DirSep);
{$ENDIF NODOTS}
{$ENDIF MACOS}
{$IFDEF NETWARE}