paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:22:30 +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: Test specific with:
./runtests --format=plain --suite=TestReplaceSubstring ./runtests --format=plain --suite=TestReplaceSubstring
./runtests --format=plain --suite=TestSplitCmdLineParams ./runtests --format=plain --suite=TestSplitCmdLineParams
./runtests --format=plain --suite=TestExpandFilename
} }
unit TestLazUtils; unit TestLazUtils;
@ -24,6 +25,7 @@ type
published published
procedure TestReplaceSubstring; procedure TestReplaceSubstring;
procedure TestSplitCmdLineParams; procedure TestSplitCmdLineParams;
procedure TestExpandFilename;
end; end;
implementation implementation
@ -100,6 +102,13 @@ begin
AssertEquals('empty params','|',r('"" ''''')); AssertEquals('empty params','|',r('"" '''''));
end; 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 initialization
AddToLazUtilsTestSuite(TTestLazUtils); AddToLazUtilsTestSuite(TTestLazUtils);