paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:46:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* update to run test also on non-windows

Browse Source 
git-svn-id: trunk@10156 -
This commit is contained in:
peter 2008-02-02 17:22:03 +00:00
parent 3521d64f4b
commit 802d490b27
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/webtbs/tw6491.pp
View File

@ -9,6 +9,8 @@ program TestExtractDrive;
uses
SysUtils;
var
err : boolean;
function tiRemoveDrive(pStrPath : string) : string;
var
@ -30,7 +32,7 @@ begin
if expected <> actual then
begin
Writeln(Format(c, [msg, expected, actual]));
halt(1);
err:=true;
end
else
Writeln('...test passed.');
@ -38,6 +40,10 @@ end;
begin
{$if not(defined(Windows) or defined(go32v2) or defined(os2) or defined(emx))}
AllowDirectorySeparators:=['\'];
AllowDriveSeparators:=[':'];
{$endif}
Writeln('Start tests...');
{ What I use in my application }
CheckEquals('', tiRemoveDrive('c:'), 'Failed on 1');
@ -50,5 +56,7 @@ begin
CheckEquals('c:', ExtractFileDrive('c:\temp\hos.txt'), 'Failed on 6');
CheckEquals('c:', ExtractFileDrive('c:\Program Files\My Program\run.bat'), 'Failed on 7');
Writeln('Done.');
if err then
halt(1);
end.