diff options
Diffstat (limited to '.emacs.d.back/packages/all-the-icons/test/all-the-icons-test.el')
-rw-r--r-- | .emacs.d.back/packages/all-the-icons/test/all-the-icons-test.el | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/.emacs.d.back/packages/all-the-icons/test/all-the-icons-test.el b/.emacs.d.back/packages/all-the-icons/test/all-the-icons-test.el new file mode 100644 index 00000000..0fae192d --- /dev/null +++ b/.emacs.d.back/packages/all-the-icons/test/all-the-icons-test.el @@ -0,0 +1,48 @@ +;;; all-the-icons-test.el --- Tests for `all-the-icons' + +;; Copyright (C) 2017 Dominic Charlesworth <dgc336@gmail.com> + +;; Author: Dominic Charlesworth <dgc336@gmail.com> +;; Keywords: test +;; Created: 09 May 2017 + +;; This program 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. + +;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + +;; Test cases for `all-the-icons' + +;; Define all tests for mode icons +(require 'f) + +(defvar all-the-icons--root-test (f-dirname (f-this-file))) +(defvar all-the-icons--root-code (f-parent all-the-icons--root-test)) + +(require 'all-the-icons (expand-file-name "all-the-icons.el" all-the-icons--root-code)) + +(cl-loop + for alist in (apropos-internal "^all-the-icons-[a-z\\-]*icon-alist$") + do (cl-loop + for config in (symbol-value alist) + do (cl-destructuring-bind (mode f &optional icon &rest args) config + (when icon + (eval + `(ert-deftest ,(intern (format "all-the-icons--validate:%s:%s" alist mode)) () + ,(format "A test to validate that the config for %s in `%s' is correct" icon alist) + (should (funcall ',f ,icon)))))))) + +(ert "all-the-icons--validate:") + +(provide 'all-the-icons-test) +;;; all-the-icons-test.el ends here |