* fixed test, doing findclose twice hurts at least win64

git-svn-id: trunk@7048 -

tests/test/units/dos/tdos2.pp

@@ -530,6 +530,7 @@ Begin
 {$IFDEF FPC}
  FindClose(Search);
 {$ENDIF}
+
  if not FoundDir then
    WriteLn(s+'FAILURE. Did not find '+TestDir+' directory')
  else
@@ -546,10 +547,6 @@ Begin
  else
    WriteLn(s+'Success.');
 
-{$IFDEF FPC}
- FindClose(Search);
-{$ENDIF}
-
 {$ifdef go32v2}
  s:='Searching using ??? wildcard (normal files + all special files)...';
  FindFirst('???',AnyFile,Search);