diff options
Diffstat (limited to 'test/lisp/dired-x-tests.el')
| -rw-r--r-- | test/lisp/dired-x-tests.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/lisp/dired-x-tests.el b/test/lisp/dired-x-tests.el index 5b51c997e36..003923d60fa 100644 --- a/test/lisp/dired-x-tests.el +++ b/test/lisp/dired-x-tests.el @@ -49,5 +49,18 @@ (sort (dired-get-marked-files 'local) #'string<)))) (delete-directory dir 'recursive)))) +(ert-deftest dired-guess-default () + (let ((dired-guess-shell-alist-user nil) + (dired-guess-shell-alist-default + '(("\\.png\\'" "display") + ("\\.gif\\'" "display" "xloadimage") + ("\\.gif\\'" "feh") + ("\\.jpe?g\\'" "xloadimage")))) + (should (equal (dired-guess-default '("/tmp/foo.png")) "display")) + (should (equal (dired-guess-default '("/tmp/foo.gif")) + '("display" "xloadimage" "feh"))) + (should (equal (dired-guess-default '("/tmp/foo.png" "/tmp/foo.txt")) + nil)))) + (provide 'dired-x-tests) ;; dired-x-tests.el ends here |