浏览代码

* handle also lines with spaces before the open brace

pierre 22 年之前
父节点
当前提交
4d4ae8d4fe
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      tests/utils/testu.pp

+ 1 - 0
tests/utils/testu.pp

@@ -156,6 +156,7 @@ begin
      readln(t,s);
      readln(t,s);
      if s<>'' then
      if s<>'' then
       begin
       begin
+        TrimB(s);
         if s[1]='{' then
         if s[1]='{' then
          begin
          begin
            delete(s,1,1);
            delete(s,1,1);