From caef4942e503200d37311f6fb5a0affb6f1b98f7 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 8 May 2013 00:39:02 +0000
Subject: [PATCH] tests: ExpandFilename

git-svn-id: trunk@41062 -
---
 test/lazutils/testlazutils.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/test/lazutils/testlazutils.pas b/test/lazutils/testlazutils.pas
index a85dcc4cad..8a666c92be 100644
--- a/test/lazutils/testlazutils.pas
+++ b/test/lazutils/testlazutils.pas
@@ -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);