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

Added tests for now fixed Mantis #22427.

Browse Source 
git-svn-id: trunk@22453 -
This commit is contained in:
svenbarth 2012-09-25 10:10:28 +00:00
parent 88af293155
commit 03493a4d31
4 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

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

7
tests/webtbs/tw22427.pp Normal file
View File

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

10
tests/webtbs/uw22427a.pp Normal file
View File

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

28
tests/webtbs/uw22427b.pp Normal file
View File

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