paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-08 14:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test

Browse Source 
git-svn-id: trunk@5164 -
This commit is contained in:
florian 2006-11-01 23:22:43 +00:00
parent 107721f760
commit fa32d2c240
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/test/tgeneric6.pp
View File

@ -9,7 +9,7 @@ type
next : PListItem; next : PListItem;
end; end;
var var
first : PListItem; first,last : PListItem;
procedure Add(item: _T); procedure Add(item: _T);
end; end;
@ -20,6 +20,7 @@ begin
new(newitem); new(newitem);
newitem^.data:=item; newitem^.data:=item;
newitem^.next:=first; newitem^.next:=first;
first:=newitem;
end; end;
type type
@ -35,17 +36,17 @@ begin
ilist.Add(someInt); ilist.Add(someInt);
ilist.Add(someInt+1); ilist.Add(someInt+1);
writeln(ilist.first^.data); writeln(ilist.first^.data);
if ilist.first^.data<>10 then if ilist.first^.data<>11 then
halt(1); halt(1);
writeln(ilist.first^.next^.data); writeln(ilist.first^.next^.data);
if ilist.first^.data<>11 then if ilist.first^.next^.data<>10 then
halt(1); halt(1);
slist := TMyStringList.Create; slist := TMyStringList.Create;
slist.Add('Test1'); slist.Add('Test1');
slist.Add('Test2'); slist.Add('Test2');
writeln(slist.first^.data); writeln(slist.first^.data);
if slist.first^.data<>'Test1' then if slist.first^.data<>'Test2' then
halt(1); halt(1);
writeln('ok'); writeln('ok');
end. end.