From 50332a97bc7fab547a01efb20e62521a6363d314 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Fri, 23 Jun 2017 06:03:26 +0000
Subject: [PATCH] textthr test to be more verbose on error conditions

git-svn-id: trunk@36584 -
---
 tests/test/textthr.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/test/textthr.pp b/tests/test/textthr.pp
index 7ca464e7bd..ca670db332 100644
--- a/tests/test/textthr.pp
+++ b/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.