paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 06:29:32 +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;
end;
var
first : PListItem;
first,last : PListItem;
procedure Add(item: _T);
end;
@ -20,6 +20,7 @@ begin
new(newitem);
newitem^.data:=item;
newitem^.next:=first;
first:=newitem;
end;
type
@ -35,17 +36,17 @@ begin
ilist.Add(someInt);
ilist.Add(someInt+1);
writeln(ilist.first^.data);
if ilist.first^.data<>10 then
if ilist.first^.data<>11 then
halt(1);
writeln(ilist.first^.next^.data);
if ilist.first^.data<>11 then
if ilist.first^.next^.data<>10 then
halt(1);
slist := TMyStringList.Create;
slist.Add('Test1');
slist.Add('Test2');
writeln(slist.first^.data);
if slist.first^.data<>'Test1' then
if slist.first^.data<>'Test2' then
halt(1);
writeln('ok');
end.