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

   1 (require 'cl)
   2 (require 'test-unit)
   3 (load-file "../../load-relative.el")
   4
   5 (test-unit-clear-contexts)
   6
   7 (context "load-relative-list-from-subdir"
   8          (tag load-relative-list-from-subdir)
   9          (if (featurep 'require-file1)
  10              (unload-feature 'require-file1))
  11          (specify "relative-relative-list"
  12                   (require-relative-list '("../require-file1"))
  13                   (assert-t (featurep 'require-file1))
  14                   )
  15
  16 )
  17
  18 (test-unit "load-relative-list-from-subdir")