Added tests for now fixed Mantis #22427.

git-svn-id: trunk@22453 -

.gitattributes

@@ -12854,6 +12854,7 @@ tests/webtbs/tw2233.pp svneol=native#text/plain
 tests/webtbs/tw22331.pp svneol=native#text/plain
 tests/webtbs/tw22344.pp svneol=native#text/plain
 tests/webtbs/tw2242.pp svneol=native#text/plain
+tests/webtbs/tw22427.pp svneol=native#text/pascal
 tests/webtbs/tw22490.pp svneol=native#text/plain
 tests/webtbs/tw2250.pp svneol=native#text/plain
 tests/webtbs/tw22502.pp svneol=native#text/plain
@@ -13670,6 +13671,8 @@ tests/webtbs/uw21808b.pp svneol=native#text/plain
 tests/webtbs/uw22160a2.pp svneol=native#text/pascal
 tests/webtbs/uw22160b2.pp svneol=native#text/pascal
 tests/webtbs/uw22160b3.pp svneol=native#text/pascal
+tests/webtbs/uw22427a.pp svneol=native#text/pascal
+tests/webtbs/uw22427b.pp svneol=native#text/pascal
 tests/webtbs/uw2266a.inc svneol=native#text/plain
 tests/webtbs/uw2266b.pas svneol=native#text/plain
 tests/webtbs/uw2269.inc svneol=native#text/plain

tests/webtbs/tw22427.pp

@@ -0,0 +1,7 @@
+{$MODE DELPHI}
+
+uses uw22427b;
+
+begin
+  TWrapper<Byte>.Test;
+end.

tests/webtbs/uw22427a.pp

@@ -0,0 +1,10 @@
+unit uw22427a;
+
+interface
+
+const
+  SMessage = 'nihao';
+
+implementation
+
+end.

tests/webtbs/uw22427b.pp

@@ -0,0 +1,28 @@
+unit uw22427b;
+
+{$MODE DELPHI}
+
+interface
+
+type
+  TWrapper<T> = record
+    class procedure Test; static;
+  end;
+
+implementation
+
+uses uw22427a;
+
+{$PUSH}{$MACRO ON}
+{$DEFINE TWrapper__Test :=
+  begin
+    Writeln(SMessage);
+  end
+}
+
+class procedure TWrapper<T>.Test;
+TWrapper__Test;
+
+{$POP}
+
+end.