Преглед изворни кода

+ added already working test for mantis #27149

git-svn-id: trunk@32577 -
Jonas Maebe пре 9 година
родитељ
комит
03067f240c
2 измењених фајлова са 17 додато и 0 уклоњено
  1. 1 0
      .gitattributes
  2. 16 0
      tests/webtbs/tw27149.pp

+ 1 - 0
.gitattributes

@@ -14771,6 +14771,7 @@ tests/webtbs/tw2708.pp svneol=native#text/plain
 tests/webtbs/tw2710.pp svneol=native#text/plain
 tests/webtbs/tw27120.pp svneol=native#text/pascal
 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/tw27173.pp svneol=native#text/pascal
 tests/webtbs/tw27185.pp svneol=native#text/pascal

+ 16 - 0
tests/webtbs/tw27149.pp

@@ -0,0 +1,16 @@
+{ %norun }
+
+{$ifdef FPC}
+{$mode delphi} {$Z1}
+{$endif}
+
+unit tw27149;
+
+interface
+
+const
+  ctrl_r = AnsiChar(#$0012);
+
+implementation
+
+end.