paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 00:38:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: ExpandFilename

Browse Source 
git-svn-id: trunk@41062 -
This commit is contained in:
mattias 2013-05-08 00:39:02 +00:00
parent 16edeb1707
commit caef4942e5
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/lazutils/testlazutils.pas
View File

@ -5,6 +5,7 @@
Test specific with:
./runtests --format=plain --suite=TestReplaceSubstring
./runtests --format=plain --suite=TestSplitCmdLineParams
./runtests --format=plain --suite=TestExpandFilename
}
unit TestLazUtils;
@ -24,6 +25,7 @@ type
published
procedure TestReplaceSubstring;
procedure TestSplitCmdLineParams;
procedure TestExpandFilename;
end;
implementation
@ -100,6 +102,13 @@ begin
AssertEquals('empty params','|',r('"" '''''));
end;
procedure TTestLazUtils.TestExpandFilename;
begin
AssertEquals('basedir','/opt/ide',ExpandFileNameUTF8('ide','/opt/'));
AssertEquals('basedir','/opt/ide',ExpandFileNameUTF8('ide','/opt'));
AssertEquals('basedir','/ide',ExpandFileNameUTF8('/ide','/opt'));
end;
initialization
AddToLazUtilsTestSuite(TTestLazUtils);