mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 12:49:09 +02:00
+ added already working test for mantis #27149
git-svn-id: trunk@32577 -
This commit is contained in:
parent
f21f9ab930
commit
03067f240c
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -14771,6 +14771,7 @@ tests/webtbs/tw2708.pp svneol=native#text/plain
|
|||||||
tests/webtbs/tw2710.pp svneol=native#text/plain
|
tests/webtbs/tw2710.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw27120.pp svneol=native#text/pascal
|
tests/webtbs/tw27120.pp svneol=native#text/pascal
|
||||||
tests/webtbs/tw2713.pp svneol=native#text/plain
|
tests/webtbs/tw2713.pp svneol=native#text/plain
|
||||||
|
tests/webtbs/tw27149.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw27153.pp svneol=native#text/pascal
|
tests/webtbs/tw27153.pp svneol=native#text/pascal
|
||||||
tests/webtbs/tw27173.pp svneol=native#text/pascal
|
tests/webtbs/tw27173.pp svneol=native#text/pascal
|
||||||
tests/webtbs/tw27185.pp svneol=native#text/pascal
|
tests/webtbs/tw27185.pp svneol=native#text/pascal
|
||||||
|
16
tests/webtbs/tw27149.pp
Normal file
16
tests/webtbs/tw27149.pp
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
{ %norun }
|
||||||
|
|
||||||
|
{$ifdef FPC}
|
||||||
|
{$mode delphi} {$Z1}
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
unit tw27149;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
const
|
||||||
|
ctrl_r = AnsiChar(#$0012);
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user