From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 5 Jun 2018 07:43:34 +0000 (+0200)
Subject: Fix selinux test in files-tests.el
X-Git-Tag: emacs-27.0.90~4945
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7c1fa1795551af0890cfbc798d88d656d57c1728;p=emacs.git

Fix selinux test in files-tests.el

* test/lisp/files-tests.el
(files-tests-file-name-non-special-set-file-selinux-context):
Adapt test.
---

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index 30a09c796e8..3b192ee8727 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -998,7 +998,8 @@ unquoted file names."
       (set-file-selinux-context nospecial (file-selinux-context nospecial))))
   (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
     (unless (equal (file-selinux-context tmpfile) '(nil nil nil nil))
-      (set-file-selinux-context nospecial (file-selinux-context nospecial)))))
+      (should-error
+       (set-file-selinux-context nospecial (file-selinux-context nospecial))))))
 
 (ert-deftest files-tests-file-name-non-special-set-file-times ()
   (files-tests--with-temp-non-special (tmpfile nospecial)