* Cleanup on exit.

git-svn-id: trunk@23618 -

tests/test/packages/fcl-db/tdb1.pp

@@ -41,5 +41,6 @@ begin
     AssertTrue(PassException);
 
     end;
+  FreeDBConnector;
 end.
 

tests/test/packages/fcl-db/tdb2.pp

@@ -45,4 +45,5 @@ begin
     post;
     AssertTrue(PassException);
     end;
+  FreeDBConnector;
 end.

tests/test/packages/fcl-db/tdb3.pp

@@ -45,6 +45,7 @@ begin
   if DateFloat<>0 then Halt(1);
 
   Db1.Free;
+  DeleteFile('testdatestr.dbf');
 end.