Browse Source

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

git-svn-id: branches/svenbarth/generics@19433 -
svenbarth 14 years ago
parent
commit
7c3a95d63f
1 changed files with 4 additions and 2 deletions
  1. 4 2
      tests/test/tgeneric50.pp

+ 4 - 2
tests/test/tgeneric50.pp

@@ -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.