paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 20:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't check for returned string in case of wildcards and multiple matches (order depends on the underlying filesystem and not guaranteed)

Browse Source 
git-svn-id: trunk@21493 -
This commit is contained in:
Tomas Hajny 2012-06-05 22:24:57 +00:00
parent 7d3294b504
commit 95bb7a9129
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/units/sysutils/texpfncase.pp
View File

@ -139,11 +139,8 @@ begin
TestExpFNC ('testfile2.tst', ExpandFileName ('testFile2.tst'), mkAmbiguous)
else
TestExpFNC ('testfile2.tst', ExpandFileName ('testFile2.tst'), mkExactMatch);
if FileNameCaseSensitive then
TestExpFNC ('*File2.tst', ExpandFileName ('TestFile2.tst'), mkExactMatch)
else
TestExpFNC ('*File2.tst', ExpandFileName ('testFile2.tst'), mkExactMatch);
(* Return value depends on ordering of files in the particular filesystem used thus not checked *)
TestExpFNC ('*File2.tst', '', mkExactMatch);
if FileNameCaseSensitive then
TestExpFNC ('*File*.tst', '', mkExactMatch)
else