From: Rob Browning <rlb@defaultvalue.org>
Date: Mon, 4 May 2026 23:13:34 +0000 (-0500)
Subject: bytecomp-tests--dest-mountpoint: only run test if bwrap works
X-Git-Tag: archive/raspbian/1%30.1+1-6+rpi1+deb13u1^2~3
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=209edee87dab0114c8f2b8849c1ccba95db86691;p=emacs.git

bytecomp-tests--dest-mountpoint: only run test if bwrap works

Bug-Debian: https://bugs.debian.org/1129189
Added-by: Rob Browning <rlb@defaultvalue.org>
README-Debian: The bytecomp-tests--dest-mountpoint should now only run
 where bwrap works.
 .
 It doesn't, in some environments, like a Debian sbuild unshare.

Gbp-Pq: Name 0024-bytecomp-tests-dest-mountpoint-only-run-test-if-bwra.patch
---

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index 2bc096ff2df..20eb0022bc4 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -1715,6 +1715,10 @@ mountpoint (Bug#44631)."
   (let ((bwrap (executable-find "bwrap"))
         (emacs (expand-file-name invocation-name invocation-directory)))
     (skip-unless bwrap)
+    ;; Check that bwrap works in the current environment.  It does not
+    ;; in a debian sbuild unshare, for example.
+    (skip-unless (zerop (call-process bwrap nil t nil "--ro-bind" "/" "/"
+                                      "true")))
     (skip-unless (file-executable-p bwrap))
     (skip-unless (not (file-remote-p bwrap)))
     (skip-unless (file-executable-p emacs))