From fa32d2c24012d0a00ec49822f00545a95d4b8dbc Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 1 Nov 2006 23:22:43 +0000
Subject: [PATCH] * fixed test

git-svn-id: trunk@5164 -
---
 tests/test/tgeneric6.pp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/tests/test/tgeneric6.pp b/tests/test/tgeneric6.pp
index 2bfdaf55e9..6e97f8db10 100644
--- a/tests/test/tgeneric6.pp
+++ b/tests/test/tgeneric6.pp
@@ -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.