From: Tino Calancha Date: Wed, 2 Aug 2017 07:31:36 +0000 (+0900) Subject: * test/lisp/ls-lisp-tests.el: Rename it from ls-lisp.el X-Git-Tag: emacs-26.0.90~517^2~47 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0668ecc0cd9c2ef7bc0e6f320af454aca1325c25;p=emacs.git * test/lisp/ls-lisp-tests.el: Rename it from ls-lisp.el --- diff --git a/test/lisp/ls-lisp-tests.el b/test/lisp/ls-lisp-tests.el new file mode 100644 index 00000000000..5ef7c78f4df --- /dev/null +++ b/test/lisp/ls-lisp-tests.el @@ -0,0 +1,37 @@ +;;; ls-lisp-tests.el --- tests for ls-lisp.el -*- lexical-binding: t-*- + +;; Copyright (C) 2017 Free Software Foundation, Inc. + +;; Author: Tino Calacha +;; Keywords: + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + +;;; Commentary: + + +;;; Code: +(require 'ert) + +(ert-deftest ls-lisp-unload () + "Test for http://debbugs.gnu.org/xxxxx ." + (require 'ls-lisp) + (should (advice-member-p 'ls-lisp--insert-directory 'insert-directory)) + (unload-feature 'ls-lisp 'force) + (should-not (advice-member-p 'ls-lisp--insert-directory 'insert-directory))) + +(provide 'ls-lisp-tests) +;;; ls-lisp-tests.el ends here diff --git a/test/lisp/ls-lisp.el b/test/lisp/ls-lisp.el deleted file mode 100644 index 5ef7c78f4df..00000000000 --- a/test/lisp/ls-lisp.el +++ /dev/null @@ -1,37 +0,0 @@ -;;; ls-lisp-tests.el --- tests for ls-lisp.el -*- lexical-binding: t-*- - -;; Copyright (C) 2017 Free Software Foundation, Inc. - -;; Author: Tino Calacha -;; Keywords: - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Commentary: - - -;;; Code: -(require 'ert) - -(ert-deftest ls-lisp-unload () - "Test for http://debbugs.gnu.org/xxxxx ." - (require 'ls-lisp) - (should (advice-member-p 'ls-lisp--insert-directory 'insert-directory)) - (unload-feature 'ls-lisp 'force) - (should-not (advice-member-p 'ls-lisp--insert-directory 'insert-directory))) - -(provide 'ls-lisp-tests) -;;; ls-lisp-tests.el ends here