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

* *Dir(<ansistring>) functions need to check io result as well, resolves #19977

Browse Source 
git-svn-id: trunk@18209 -
This commit is contained in:
florian 2011-08-14 19:00:07 +00:00
parent 145f0959d6
commit 63403e5199
3 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -11724,6 +11724,7 @@ tests/webtbs/tw19910.pp svneol=native#text/pascal
tests/webtbs/tw1996.pp svneol=native#text/plain tests/webtbs/tw1996.pp svneol=native#text/plain
tests/webtbs/tw19960.pp svneol=native#text/pascal tests/webtbs/tw19960.pp svneol=native#text/pascal
tests/webtbs/tw19974.pp svneol=native#text/pascal tests/webtbs/tw19974.pp svneol=native#text/pascal
tests/webtbs/tw19977.pp svneol=native#text/pascal
tests/webtbs/tw2001.pp svneol=native#text/plain tests/webtbs/tw2001.pp svneol=native#text/plain
tests/webtbs/tw2002.pp svneol=native#text/plain tests/webtbs/tw2002.pp svneol=native#text/plain
tests/webtbs/tw2004.pp svneol=native#text/plain tests/webtbs/tw2004.pp svneol=native#text/plain

6
rtl/objpas/objpas.pp
View File

@ -249,17 +249,17 @@ end;
{$ifdef FPC_HAS_FEATURE_FILEIO} {$ifdef FPC_HAS_FEATURE_FILEIO}
Procedure MkDir(const s:ansistring); Procedure MkDir(const s:ansistring);[IOCheck];
begin begin
mkdirpchar(pchar(s),length(s)); mkdirpchar(pchar(s),length(s));
end; end;
Procedure RmDir(const s:ansistring); Procedure RmDir(const s:ansistring);[IOCheck];
begin begin
RmDirpchar(pchar(s),length(s)); RmDirpchar(pchar(s),length(s));
end; end;
Procedure ChDir(const s:ansistring); Procedure ChDir(const s:ansistring);[IOCheck];
begin begin
ChDirpchar(pchar(s),length(s)); ChDirpchar(pchar(s),length(s));
end; end;

27
tests/webtbs/tw19977.pp Normal file
View File

@ -0,0 +1,27 @@
{$mode objfpc}{$H+}
{$I+}
uses SysUtils;
const
NotExistingDir = {$ifdef UNIX} '/not_existing_directory_kambi_test' {$endif}
{$ifdef MSWINDOWS} 'c:/not_existing_directory_kambi_test' {$endif}
{$ifdef GO32V2} 'c:/not_existing_directory_kambi_test' {$endif};
begin
try
ChDir(NotExistingDir);
Assert(false, 'ChDir to ' + NotExistingDir + ' didn''t raise an exception');
except
on E: EInOutError do Writeln('Ok, ChDir raised exception');
end;
try
Writeln('We are somewhere after ChDir');
except
on E: EInOutError do
begin
Writeln('Ups, Writeln raised exception');
halt(1);
end;
end;
end.