Prefer \` and \' when matching the beg/end of string

* test/lisp/net/tramp-tests.el (tramp--test-instrument-test-case)
(tramp-test01-file-name-syntax): Use more precise regexp

(cherry picked from commit 12fb298e21d877c772a19fc8f2fec68a40bcda14)

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 489b682d0c338b74d26ae740582a22e6dad2ca97..4a964f0daf033dd065f88cbc1ffd28752f8a1b2b 100644 (file)
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -265,8 +265,8 @@ is greater than 10.
   `(let* ((tramp-verbose (max (or ,verbose 0) (or tramp-verbose 0)))
          (debug-ignored-errors
           (append
-           '("^make-symbolic-link not supported$"
-             "^error with add-name-to-file")
+           '("\\`make-symbolic-link not supported\\'"
+             "\\`error with add-name-to-file")
            debug-ignored-errors))
          inhibit-message)
      (unwind-protect
@@ -379,7 +379,7 @@ is greater than 10.
          (let (tramp-mode)
            (should-not (tramp-tramp-file-p "/method:user@host:")))
          ;; `tramp-ignored-file-name-regexp' suppresses Tramp.
-         (let ((tramp-ignored-file-name-regexp "^/method:user@host:"))
+         (let ((tramp-ignored-file-name-regexp "\\`/method:user@host:"))
            (should-not (tramp-tramp-file-p "/method:user@host:")))
          ;; Methods shall be at least two characters, except the
          ;; default method.