From 9f7914d39a5047c8d6b2cff554b8f575dcc32302 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 16 Jun 2013 16:54:12 +0200 Subject: [PATCH] tests: Remove symlink only when it exists. * test-suite/tests/filesys.test: Delete (test-symlink) only if it exists---i.e., not on Windows. Reported by Eli Zaretskii . --- test-suite/tests/filesys.test | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/test-suite/tests/filesys.test b/test-suite/tests/filesys.test index 049c9a2b0..253c32ac5 100644 --- a/test-suite/tests/filesys.test +++ b/test-suite/tests/filesys.test @@ -222,4 +222,5 @@ (throw 'unresolved))))) (delete-file (test-file)) -(delete-file (test-symlink)) +(when (file-exists? (test-symlink)) + (delete-file (test-symlink)))