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

   1 (require 'cl)
   2 (require 'test-simple)
   3 (load-file "../load-relative.el")
   4
   5 (test-simple-start)
   6
   7 (if (featurep 'require-file1)
   8     (unload-feature 'require-file1))
   9 (require-relative-list '("./require-file1"))
  10 (assert-t (featurep 'require-file1) "relative-relative-list")
  11
  12 (end-tests)