diff options
| author | Philipp Stephani <phst@google.com> | 2021-04-18 21:46:10 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2021-04-18 21:59:25 +0200 |
| commit | 55b22bff6d5fc573c2d1e5b05faa12bed5ee4156 (patch) | |
| tree | c9747d4c17e5e5fd7c7d31b295004f06c7dc36e4 /test/lisp/progmodes/project-tests.el | |
| parent | d91e1a5701860b39ccf7fb081a48d90c450ab283 (diff) | |
| download | emacs-55b22bff6d5fc573c2d1e5b05faa12bed5ee4156.tar.gz emacs-55b22bff6d5fc573c2d1e5b05faa12bed5ee4156.tar.bz2 emacs-55b22bff6d5fc573c2d1e5b05faa12bed5ee4156.zip | |
Extend project test so that 'project-current' works.
* test/lisp/progmodes/project-tests.el (project/quoted-directory):
Verify that 'project-current' returns the right project.
Diffstat (limited to 'test/lisp/progmodes/project-tests.el')
| -rw-r--r-- | test/lisp/progmodes/project-tests.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/test/lisp/progmodes/project-tests.el b/test/lisp/progmodes/project-tests.el index 6e71948477c..829f52adecc 100644 --- a/test/lisp/progmodes/project-tests.el +++ b/test/lisp/progmodes/project-tests.el @@ -35,9 +35,16 @@ names (Bug#47799)." (skip-unless (executable-find find-program)) (let ((directory (make-temp-file "project-tests-" :directory))) (unwind-protect - (let ((project (cons 'transient (file-name-quote directory))) + (let ((default-directory directory) + (project-current-inhibit-prompt t) + (project-find-functions nil) + (project-list-file + (expand-file-name "projects" directory)) + (project (cons 'transient (file-name-quote directory))) (file (expand-file-name "file" directory))) (make-empty-file file) + (add-hook 'project-find-functions (lambda (_dir) project)) + (should (eq (project-current) project)) (should (equal (project-files project) (list (file-name-quote file))))) (delete-directory directory :recursive)))) |