textthr test to be more verbose on error conditions

git-svn-id: trunk@36584 -

tests/test/textthr.pp

@@ -58,7 +58,7 @@ begin
     end;
   if res<>pointer(11) then
     begin
-      writeln('error 1');
+      writeln('error 1: ',ptruint(res));
       halt(1);
     end;
 
@@ -69,7 +69,7 @@ begin
     end;
   if res<>pointer(12) then
     begin
-      writeln('error 2');
+      writeln('error 2: ',ptruint(res));
       halt(2);
     end;
 
@@ -80,7 +80,7 @@ begin
     end;
   if res<>pointer(13) then
     begin
-      writeln('error 3');
+      writeln('error 3: ',ptruint(res));
       halt(3);
     end;
 end.