浏览代码

* Mantis #33840 is fixed by the fix for String type helpers

git-svn-id: trunk@39400 -
svenbarth 7 年之前
父节点
当前提交
ec374c196e
共有 2 个文件被更改,包括 16 次插入0 次删除
  1. 1 0
      .gitattributes
  2. 15 0
      tests/webtbs/tw33840.pp

+ 1 - 0
.gitattributes

@@ -16199,6 +16199,7 @@ tests/webtbs/tw33706.pp svneol=native#text/plain
 tests/webtbs/tw33818.pp svneol=native#text/pascal
 tests/webtbs/tw33839a.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/tw3402.pp svneol=native#text/plain
 tests/webtbs/tw3411.pp svneol=native#text/plain
 tests/webtbs/tw3418.pp svneol=native#text/plain

+ 15 - 0
tests/webtbs/tw33840.pp

@@ -0,0 +1,15 @@
+{ %NORUN }
+
+program tw33840;
+
+{$mode delphi}
+
+uses
+  SysUtils;
+
+const
+  NULLSTRING = '';
+begin
+  if String.IsNullOrWhiteSpace(NULLSTRING) then
+    Writeln('String is empty');
+end.