mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-23 03:26:10 +02:00
71 lines
1.6 KiB
ObjectPascal
71 lines
1.6 KiB
ObjectPascal
unit testfileutil;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, fpcunit, testglobals,
|
|
FileUtil;
|
|
|
|
type
|
|
|
|
{ TTestFileUtil }
|
|
|
|
TTestFileUtil= class(TTestCase)
|
|
published
|
|
procedure TestFileIsExecutable;
|
|
procedure TestExtractFileNameWithoutExt;
|
|
procedure TestTrimFileName;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TTestFileUtil }
|
|
|
|
procedure TTestFileUtil.TestFileIsExecutable;
|
|
procedure DoTest(const AFileName: string; Expected: boolean);
|
|
begin
|
|
AssertEquals(AFileName, Expected, FileIsExecutable(AFileName));
|
|
end;
|
|
begin
|
|
DoTest(ParamStr(0),true);
|
|
// a directory is not an executable file
|
|
DoTest(ExtractFileDir(ParamStr(0)), false);
|
|
end;
|
|
|
|
procedure TTestFileUtil.TestExtractFileNameWithoutExt;
|
|
var
|
|
DirName : string;
|
|
procedure DoTest(const FileName, Expected: string);
|
|
begin
|
|
AssertEquals(FileName, Expected, ExtractFileNameWithoutExt(FileName));
|
|
end;
|
|
begin
|
|
DoTest('test.pas', 'test');
|
|
DoTest('test.pas.bak', 'test');
|
|
DirName := AppendPathDelim('testdir');
|
|
DoTest(DirName + 'test.pas', DirName + 'test');
|
|
DoTest(DirName + 'test.pas.bak', DirName + 'test');
|
|
end;
|
|
|
|
procedure TTestFileUtil.TestTrimFileName;
|
|
procedure DoTest(AFileName, Expected: string);
|
|
begin
|
|
DoDirSeparators(AFileName);
|
|
DoDirSeparators(Expected);
|
|
AssertEquals(AFileName, Expected, TrimFilename(AFileName));
|
|
end;
|
|
begin
|
|
{$ifdef windows}
|
|
DoTest('c:\LazarusDir\..\dir\','c:\dir\');
|
|
{$endif}
|
|
DoTest('$(LazarusDir)\..\dir\','$(LazarusDir)\..\dir\');
|
|
end;
|
|
|
|
initialization
|
|
// Maybe this test case should be moved to another testsuite, e.g. lcl test
|
|
AddToBugsTestSuite(TTestSuite.Create(TTestFileUtil, 'TestFileUtil'));
|
|
end.
|
|
|