From ee1a5843aa321c69fc227748ae1fb5689bab4c5c Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sun, 22 Apr 2018 22:18:27 +0000
Subject: [PATCH]  Avoid program RTE if failing to remove temporary directory

git-svn-id: trunk@38816 -
---
 tests/utils/dosbox/dosbox_wrapper.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/utils/dosbox/dosbox_wrapper.pas b/tests/utils/dosbox/dosbox_wrapper.pas
index 5a7fd48ad2..ea91c25633 100644
--- a/tests/utils/dosbox/dosbox_wrapper.pas
+++ b/tests/utils/dosbox/dosbox_wrapper.pas
@@ -397,7 +397,8 @@ begin
     end;
   TmpFileList.Free;
   ChDir(StartDir);
-  RmDir(ADosBoxDir);
+  if not RemoveDir(ADosBoxDir) then
+    writeln('Failed to remove dir ',ADosBoxDir);
 end;