paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 11:39:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* rtti is case sensitive

Browse Source
This commit is contained in:
peter 2003-10-28 15:33:34 +00:00
parent c8648b9840
commit d338eb525d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/webtbs/tw1888.pp
View File

@ -1,3 +1,4 @@
{ %version=1.1 }
program dumpprops;
{$ifdef fpc}
@ -38,11 +39,11 @@ begin
t:=TTest.Create;
p:=GetPropInfo(t,'Next');
if (p<>nil) and
(p^.name=Upcase('Next')) then
(p^.name='Next') then
writeln('Success')
else
begin
writeln('ERROR!');
writeln('ERROR! Got: ',p^.name);
halt(1);
end;
end.