Move tests to separate file

diff --git a/lisp/use-package/use-package.el b/lisp/use-package/use-package.el
index 89f8987e7151d22362394d1a7df2aa146383da69..45d361a4dd84f2859f51c4bd311411470a4b5e9f 100644 (file)
--- a/lisp/use-package/use-package.el
+++ b/lisp/use-package/use-package.el
@@ -167,20 +167,6 @@ Currently this function infloops when the list is circular."
       (push (pop tail) result))
     (or (nreverse result) found)))
 
-(ert-deftest use-package-mplist-get ()
-  (let ((mplist '(:foo bar baz bal :blob plap plup :blam))
-        (tests '((:foo . (bar baz bal))
-                 (:blob . (plap plup))
-                 (:blam . t)
-                 (:blow . nil))))
-    (mapc (lambda (test)
-            (should
-             (equal
-              (use-package-mplist-get mplist
-                                      (car test))
-              (cdr test))))
-          tests)))
-
 (defun use-package-plist-get (plist prop)
   "Compatibility layer between classical and modified plists.
 
@@ -205,10 +191,6 @@ are all non-keywords elements that follow it."
               (push elt result)))
           plist)
     (nreverse result)))
-(ert-deftest use-package-mplist-keys ()
-  (should (equal (use-package-mplist-keys
-                  '(:foo bar baz bal :blob plap plup :blam))
-                 '(:foo :blob :blam))))
 
 (defun use-package-validate-keywords (args)
   "Error if any keyword given in ARGS is not recognized.

diff --git a/test/lisp/use-package/use-package-tests.el b/test/lisp/use-package/use-package-tests.el
new file mode 100644 (file)
index 0000000..869b818
--- /dev/null
+++ b/test/lisp/use-package/use-package-tests.el
@@ -0,0 +1,50 @@
+;;; use-package-tests.el --- Tests for use-package.el
+
+;; 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 2, 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 GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+\f
+;;; Commentary:
+
+;; 
+
+\f
+;;; Code:
+
+(require 'ert)
+(require 'use-package)
+
+(ert-deftest use-package-mplist-get ()
+  (let ((mplist '(:foo bar baz bal :blob plap plup :blam))
+        (tests '((:foo . (bar baz bal))
+                 (:blob . (plap plup))
+                 (:blam . t)
+                 (:blow . nil))))
+    (mapc (lambda (test)
+            (should
+             (equal
+              (use-package-mplist-get mplist
+                                      (car test))
+              (cdr test))))
+          tests)))
+
+(ert-deftest use-package-mplist-keys ()
+  (should (equal (use-package-mplist-keys
+                  '(:foo bar baz bal :blob plap plup :blam))
+                 '(:foo :blob :blam))))
+
+;; Local Variables:
+;; indent-tabs-mode: nil
+;; End:
+;;; use-package-tests.el ends here