* Correct properties on tb0529

git-svn-id: trunk@6514 -

.gitattributes

@@ -6226,7 +6226,6 @@ tests/tbs/tb0525.pp svneol=native#text/plain
 tests/tbs/tb0526.pp -text
 tests/tbs/tb0527.pp svneol=native#text/plain
 tests/tbs/tb0528.pp svneol=native#text/x-pascal
-tests/tbs/tb0529.pp -text
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain

tests/tbs/tb0529.pp

@@ -1,22 +1,22 @@
-{ It tests conversion from "array of char" to "array of PChar" }
-
-function DoTest(params: array of PChar): string;
-var
-  i: integer;
-  res: string;
-begin
-  res:='';
-  for i:=Low(params) to High(params) do
-    res:=res + params[i];
-  DoTest:=res;
-end;
-
-var
-  s: string;
-begin
-  s:=DoTest(['1', '2', '3']);
-  if s <> '123' then begin
-    writeln('Test failed. S=', s);
-    Halt(1);
-  end;
-end.
+{ It tests conversion from "array of char" to "array of PChar" }
+
+function DoTest(params: array of PChar): string;
+var
+  i: integer;
+  res: string;
+begin
+  res:='';
+  for i:=Low(params) to High(params) do
+    res:=res + params[i];
+  DoTest:=res;
+end;
+
+var
+  s: string;
+begin
+  s:=DoTest(['1', '2', '3']);
+  if s <> '123' then begin
+    writeln('Test failed. S=', s);
+    Halt(1);
+  end;
+end.