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