fpc/tests/webtbs/tw1414.pp
yury f96b571e38 * skip some tests for wince.
git-svn-id: trunk@4110 -
2006-07-06 19:08:23 +00:00

16 lines
198 B
ObjectPascal

{ %skiptarget=wince }
uses
dos;
var
i : longint;
begin
{$i-}
chdir('');
i:=ioresult;
if i<>0 then
begin
Writeln('chdir('''') fails wih error ',i);
Halt(i);
end;
end.