* fix tw8730 tests for windows

git-svn-id: trunk@14945 -

tests/webtbs/tw8730b.pp

@@ -24,7 +24,7 @@ library tw8730b;
 uses uw8730b;
 
 exports
-{$if defined(darwin) or defined(win32) or defined(wince)}
+{$if defined(darwin)}
 Lib2Func name '_Lib2Func';
 {$else}
 Lib2Func;

tests/webtbs/tw8730c.pp

@@ -29,5 +29,7 @@ begin
     deletefile('tw8730a.txt');
   if (fileexists('tw8730b.txt')) then
     deletefile('tw8730b.txt');
+  if error<>0 then
+    writeln('tw8730c did not complete successfully');
   halt(error);
 end.