* fix tw8730 tests for windows

git-svn-id: trunk@14945 -
This commit is contained in:
pierre 2010-02-26 16:33:14 +00:00
parent 3112305989
commit a0ad752e16
2 changed files with 3 additions and 1 deletions

View File

@ -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;

View File

@ -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.