emacs-30 0f9d48e99ce 2/2: project-tests: Add test assertion for bug#73801

[Dmitry Gutov]

branch: emacs-30
commit 0f9d48e99ce10e92e19e20ea9d2872a176ea6f8f
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>

    project-tests: Add test assertion for bug#73801
    
    * test/lisp/progmodes/project-tests.el
    (project-vc-extra-root-markers-supports-wildcards): End with a
    check that we didn't cache a wrong value for parent (bug#73801).
    
    (cherry picked from commit 94a9e40e82d4180563d7bddfa0cc6c8990824f8d)
---
 test/lisp/progmodes/project-tests.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/test/lisp/progmodes/project-tests.el 
b/test/lisp/progmodes/project-tests.el
index 93943cef43b..1583732016b 100644
--- a/test/lisp/progmodes/project-tests.el
+++ b/test/lisp/progmodes/project-tests.el
@@ -138,7 +138,11 @@ When `project-ignores' includes a name matching project 
dir."
          (project (project-current nil dir)))
     (should-not (null project))
     (should (nth 1 project))
-    (should (string-match-p "/test/lisp/\\'" (project-root project)))))
+    (should (string-match-p "/test/lisp/\\'" (project-root project)))
+    ;; bug#73801
+    (should (equal
+             project
+             (project-current nil (project-root project))))))
 
 (ert-deftest project-vc-supports-project-in-different-dir ()
   "Check that it picks up dir-locals settings from somewhere else."