paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 22:09:32 +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} {$ifdef fpc}
{$mode delphi} {$mode delphi}
{$endif} {$endif}
program tw9347b;
{$r-} {$r-}
uses uses
@ -17,6 +18,12 @@ type
end; end;
begin begin
{ fails in Delphi 6, succeeds in Delphi 7 } { fails in Delphi 6, succeeds in Delphi 7, fails in D2007 }
SetPropValue(TBla.Create, 'int', 'true'); try
SetPropValue(TBla.Create, 'int', 'true');
except
on E: EVariantError do
halt(0);
end;
halt(1);
end. end.