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.