Add 'packages/load-relative/' from commit '064074d7dcc8d26d59ab9ceb099b43e6870c58d1'

[gnu-emacs-elpa] / packages / load-relative / test / test-require-list.el

diff --git a/packages/load-relative/test/test-require-list.el b/packages/load-relative/test/test-require-list.el
new file mode 100644 (file)
index 0000000..fae8421
--- /dev/null
+++ b/packages/load-relative/test/test-require-list.el
@@ -0,0 +1,28 @@
+;; Copyright (C) 2015 Free Software Foundation, Inc
+
+;; Author: Rocky Bernstein <rocky@gnu.org>
+
+;; 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/>.
+(require 'cl)
+(require 'test-simple)
+(load-file "../load-relative.el")
+
+(test-simple-start)
+
+(if (featurep 'require-file1)
+    (unload-feature 'require-file1))
+(require-relative-list '("./require-file1"))
+(assert-t (featurep 'require-file1) "relative-relative-list")
+
+(end-tests)