* State the purpose of the test.

tests/test/tgeneric122.pp

@@ -1,5 +1,8 @@
 {$mode objfpc}
 
+// test that the check on published property is performed during specialization
+// The below should work.
+
 type
   {$M+}
   generic myclass<T> = class
@@ -8,7 +11,7 @@ type
   published
     property Data : T read FData;
   end;
-  
+    
   TA = specialize myclass<integer>;
 //  TB = specialize myclass<text>;
       

tests/test/tgeneric123.pp

@@ -1,6 +1,9 @@
 {%FAIL}
 {$mode objfpc}
 
+// test that the check on published property is performed during specialization
+// The below should not work, since text is not a publishable type.
+
 type
   {$M+}
   generic myclass<T> = class