From 7c3a95d63fd83cb01d3b95bf8c41ef3e3ce9577a Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sun, 9 Oct 2011 16:14:33 +0000
Subject: [PATCH] Extend the test with a usage of "TTestInteger" and correct
 the comments a bit.

git-svn-id: branches/svenbarth/generics@19433 -
---
 tests/test/tgeneric50.pp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/test/tgeneric50.pp b/tests/test/tgeneric50.pp
index 2e4c9ea696..b5688e85b9 100644
--- a/tests/test/tgeneric50.pp
+++ b/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.