From c45806c84f088e194a9900fa2f1fd8dacfcf02ee Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 11 Nov 2018 17:32:21 +0000
Subject: [PATCH] * made test more verbose

git-svn-id: trunk@40283 -
---
 tests/webtbs/tw13628b.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/tests/webtbs/tw13628b.pp b/tests/webtbs/tw13628b.pp
index a46d9caeee..473db88a20 100644
--- a/tests/webtbs/tw13628b.pp
+++ b/tests/webtbs/tw13628b.pp
@@ -29,7 +29,11 @@ var
 begin
   hdl := loadlibrary(libname);
   if (hdl=nilhandle) then
-    halt(1);
+    begin
+      writeln(GetLoadErrorStr);
+      halt(1);
+    end;
   if not UnloadLibrary(hdl) then
-    halt(2);;
+    halt(2);
+  writeln('ok');
 end.