From 5f0f2f90361a4c0a76478b288998595fc3ddebd2 Mon Sep 17 00:00:00 2001 From: Roger Gonzalez Date: Wed, 8 Apr 2020 10:38:14 -0300 Subject: Added my old emacs config --- .../all-the-icons/test/all-the-icons-test.el | 48 ++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 .emacs.d.back/packages/all-the-icons/test/all-the-icons-test.el (limited to '.emacs.d.back/packages/all-the-icons/test/all-the-icons-test.el') 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 + +;; Author: Dominic Charlesworth +;; 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 . + +;;; 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 -- cgit v1.2.3