code.delx.au - gnu-emacs-elpa/blob - packages/load-relative/test/subdir/test-require-list-from-subdir.el

   1 ;; Copyright (C) 2015 Free Software Foundation, Inc
   2
   3 ;; Author: Rocky Bernstein <rocky@gnu.org>
   4
   5 ;; This program is free software; you can redistribute it and/or modify
   6 ;; it under the terms of the GNU General Public License as published by
   7 ;; the Free Software Foundation, either version 3 of the License, or
   8 ;; (at your option) any later version.
   9
  10 ;; This program is distributed in the hope that it will be useful,
  11 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 ;; GNU General Public License for more details.
  14
  15 ;; You should have received a copy of the GNU General Public License
  16 ;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
  17 (require 'cl)
  18 (require 'test-unit)
  19 (load-file "../../load-relative.el")
  20
  21 (test-unit-clear-contexts)
  22
  23 (context "load-relative-list-from-subdir"
  24          (tag load-relative-list-from-subdir)
  25          (if (featurep 'require-file1)
  26              (unload-feature 'require-file1))
  27          (specify "relative-relative-list"
  28                   (require-relative-list '("../require-file1"))
  29                   (assert-t (featurep 'require-file1))
  30                   )
  31
  32 )
  33
  34 (test-unit "load-relative-list-from-subdir")