瀏覽代碼

* Mantis #33898 is fixed by the fix for String type helpers as well

git-svn-id: trunk@39401 -
svenbarth 7 年之前
父節點
當前提交
8df686ed2e
共有 2 個文件被更改,包括 12 次插入0 次删除
  1. 1 0
      .gitattributes
  2. 11 0
      tests/webtbs/tw33898.pp

+ 1 - 0
.gitattributes

@@ -16200,6 +16200,7 @@ tests/webtbs/tw33818.pp svneol=native#text/pascal
 tests/webtbs/tw33839a.pp -text svneol=native#text/pascal
 tests/webtbs/tw33839a.pp -text svneol=native#text/pascal
 tests/webtbs/tw33839b.pp -text svneol=native#text/pascal
 tests/webtbs/tw33839b.pp -text svneol=native#text/pascal
 tests/webtbs/tw33840.pp -text svneol=native#text/pascal
 tests/webtbs/tw33840.pp -text svneol=native#text/pascal
+tests/webtbs/tw33898.pp -text svneol=native#text/pascal
 tests/webtbs/tw3402.pp svneol=native#text/plain
 tests/webtbs/tw3402.pp svneol=native#text/plain
 tests/webtbs/tw3411.pp svneol=native#text/plain
 tests/webtbs/tw3411.pp svneol=native#text/plain
 tests/webtbs/tw3418.pp svneol=native#text/plain
 tests/webtbs/tw3418.pp svneol=native#text/plain

+ 11 - 0
tests/webtbs/tw33898.pp

@@ -0,0 +1,11 @@
+{ %NORUN }
+
+program tw33898;
+
+{$mode delphi}
+
+uses sysutils;
+
+begin
+  writeln(string.join('&', ['ab', 'cd']));
+end.