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

Extend the test with a usage of "TTestInteger" and correct the comments a bit.

Browse Source 
git-svn-id: branches/svenbarth/generics@19433 -
This commit is contained in:
svenbarth 2011-10-09 16:14:33 +00:00
parent feeff56099
commit 7c3a95d63f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/tgeneric50.pp
View File

@ -14,7 +14,7 @@ type
end deprecated 'Message A' platform;
// this will print that TTest<T> is deprecated and platform dependant
// these will both print that TTest<T> is deprecated and platform
TTestInteger = TTest<Integer> deprecated 'Message B' experimental;
TTestString = TTest<String>;
@ -24,6 +24,8 @@ var
// this will print nothing
t2: TTestString;
begin
// this will print that TTest<T> is deprecated and platform dependant
// this will print that TTest<T> is deprecated and platform
t2 := TTest<String>.Create;
// this will print that TTestInteger is deprecated and experimental
t := TTestInteger.Create;
end.