* fixed test.

git-svn-id: trunk@7766 -
This commit is contained in:
yury 2007-06-21 23:05:20 +00:00
parent 4fde74cb40
commit 98c1a8c386

View File

@ -1,7 +1,7 @@
program stored;
{$mode objfpc}{$h+}
uses
Classes;
SysUtils, Classes;
const
ShowTheException = true; //set this to false for halt(128) instead of exception
@ -106,4 +106,3 @@ begin
writeln('ok. done.');
DeleteFile('testfile.tmp');
end.