diff options
Diffstat (limited to 'test/lisp/htmlfontify-tests.el')
| -rw-r--r-- | test/lisp/htmlfontify-tests.el | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/test/lisp/htmlfontify-tests.el b/test/lisp/htmlfontify-tests.el index 0ad775d74a0..5c1f053066b 100644 --- a/test/lisp/htmlfontify-tests.el +++ b/test/lisp/htmlfontify-tests.el @@ -1,6 +1,6 @@ ;;; htmlfontify-tests.el --- Test suite. -*- lexical-binding: t -*- -;; Copyright (C) 2015-2017 Free Software Foundation, Inc. +;; Copyright (C) 2015-2022 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -21,26 +21,17 @@ (require 'ert) (require 'htmlfontify) -(ert-deftest htmlfontify-autoload () - "Tests to see whether reftex-auc has been autoloaded" - (should - (fboundp 'htmlfontify-load-rgb-file)) - (should - (autoloadp - (symbol-function - 'htmlfontify-load-rgb-file)))) - (ert-deftest htmlfontify-bug25468 () "Tests that htmlfontify can be loaded even if no shell is available (Bug#25468)." (should (equal (let ((process-environment (cons "SHELL=/does/not/exist" process-environment))) (call-process - (expand-file-name (invocation-name) (invocation-directory)) + (expand-file-name invocation-name invocation-directory) nil nil nil "--quick" "--batch" (concat "--load=" (locate-library "htmlfontify")))) 0))) (provide 'htmlfontify-tests) -;; htmlfontify-tests.el ends here +;;; htmlfontify-tests.el ends here |