paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 11:10:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct properties on tb0529

Browse Source 
git-svn-id: trunk@6514 -
This commit is contained in:
daniel 2007-02-16 18:02:57 +00:00
parent 5792438e3a
commit 34bdb90822
2 changed files with 22 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

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

44
tests/tbs/tb0529.pp
View File

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