paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 01:08:07 +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/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

44
tests/tbs/tb0529.pp
View File

@ -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.