From 34bdb9082225502c7318b967cab1e1ca33f7368a Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Fri, 16 Feb 2007 18:02:57 +0000
Subject: [PATCH]   * Correct properties on tb0529

git-svn-id: trunk@6514 -
---
 .gitattributes      |  1 -
 tests/tbs/tb0529.pp | 44 ++++++++++++++++++++++----------------------
 2 files changed, 22 insertions(+), 23 deletions(-)

diff --git a/.gitattributes b/.gitattributes
index b2a5b570e5..89755faa07 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/tbs/tb0529.pp b/tests/tbs/tb0529.pp
index 596f04b9ab..9dfca7e724 100644
--- a/tests/tbs/tb0529.pp
+++ b/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.