paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:09:19 +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 uses
SysUtils; SysUtils;
var
err : boolean;
function tiRemoveDrive(pStrPath : string) : string; function tiRemoveDrive(pStrPath : string) : string;
var var
@ -30,7 +32,7 @@ begin
if expected <> actual then if expected <> actual then
begin begin
Writeln(Format(c, [msg, expected, actual])); Writeln(Format(c, [msg, expected, actual]));
halt(1); err:=true;
end end
else else
Writeln('...test passed.'); Writeln('...test passed.');
@ -38,6 +40,10 @@ end;
begin begin
{$if not(defined(Windows) or defined(go32v2) or defined(os2) or defined(emx))}
AllowDirectorySeparators:=['\'];
AllowDriveSeparators:=[':'];
{$endif}
Writeln('Start tests...'); Writeln('Start tests...');
{ What I use in my application } { What I use in my application }
CheckEquals('', tiRemoveDrive('c:'), 'Failed on 1'); 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:\temp\hos.txt'), 'Failed on 6');
CheckEquals('c:', ExtractFileDrive('c:\Program Files\My Program\run.bat'), 'Failed on 7'); CheckEquals('c:', ExtractFileDrive('c:\Program Files\My Program\run.bat'), 'Failed on 7');
Writeln('Done.'); Writeln('Done.');
if err then
halt(1);
end. end.