paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 12:41:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: fix test

Browse Source 
git-svn-id: trunk@14474 -
This commit is contained in:
paul 2009-12-24 09:41:48 +00:00
parent 87849e1fc6
commit 3fff90de80
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/webtbs/tw9347b.pp
View File

@ -1,6 +1,7 @@
{$ifdef fpc}
{$mode delphi}
{$endif}
program tw9347b;
{$r-}
uses
@ -17,6 +18,12 @@ type
end;
begin
{ fails in Delphi 6, succeeds in Delphi 7 }
SetPropValue(TBla.Create, 'int', 'true');
{ fails in Delphi 6, succeeds in Delphi 7, fails in D2007 }
try
SetPropValue(TBla.Create, 'int', 'true');
except
on E: EVariantError do
halt(0);
end;
halt(1);
end.