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

   1 (require 'cl)
   2 (require 'test-simple)
   3 (load-file "../load-relative.el")
   4
   5 (test-simple-start)
   6
   7 ;; (setq tempbuf (generate-new-buffer "*cmdbuf-test*"))
   8 ;; (assert-nil
   9 ;;  (with-current-buffer tempbuf
  10 ;;    (insert "(__FILE__)\n")
  11 ;;    (eval-current-buffer))
  12 ;;  (kill-buffer tempbuf) "(__FILE__) on temporary buffer")
  13
  14 (assert-equal "test-load"
  15               (file-name-sans-extension
  16                (file-name-nondirectory (__FILE__)))
  17               "(__FILE__) on this running program"
  18               )
  19
  20 (dolist (file-name
  21          '("load-file1.el" "./load-file1.el" "../test/load-file1.el"))
  22   (assert-equal
  23    (expand-file-name file-name)
  24    (relative-expand-file-name file-name))
  25   "relative-expand-filename"
  26 )
  27
  28 (note "Basic load-relative")
  29 (setq loaded-file nil)
  30 (assert-equal t (load-relative "load-file2"))
  31 (assert-equal "load-file3" loaded-file)
  32
  33 (setq loaded-file nil)
  34 (setq loaded-file1 nil)
  35 (assert-equal '(t t)
  36               (load-relative '("load-file1" "load-file2")
  37                              ))
  38 (assert-equal 't loaded-file1)
  39 (assert-equal "load-file3" loaded-file)
  40
  41
  42 (dolist (file-name
  43          '("load-file1.el" "./load-file1.el" "../test/load-file1.el"))
  44   (setq loaded-file nil)
  45   (assert-equal t (load-relative file-name)
  46                 (format "load-relative with list file %s" loaded-file))
  47   (assert-equal "load-file1" loaded-file
  48                 (format "load-relative value with list file %s" loaded-file)
  49   ))
  50
  51 (if (featurep 'require-file1 t)
  52     (unload-feature 'require-file1))
  53
  54 (require-relative "require-file1")
  55 (assert-t (featurep 'require-file1) "require-relative")
  56
  57 (if (featurep 'require-file1 t)
  58              (unload-feature 'require-file1))
  59
  60 (require-relative-list '("require-file1" "require-file3"))
  61 (assert-t (and (featurep 'require-file1)
  62                (featurep 'require-file3)) "require-relative-list")
  63
  64 (if (featurep 'my-require-file2 t)
  65     (unload-feature 'my-require-file2))
  66
  67 (require-relative-list '("require-file2") "my-")
  68 (assert-t (featurep 'my-require-file2) "require-relative-list with prefix")
  69
  70
  71 (if (featurep 'test-load t)
  72     (unload-feature 'test-load) "provide-me - no prefix")
  73 (provide-me)
  74 (assert-t (featurep 'test-load))
  75
  76 (if (featurep 'my-test-load t)
  77     (unload-feature 'my-test-load))
  78 (provide-me "my-")
  79 (assert-t (featurep 'my-test-load) "provide-me - prefix")
  80
  81 (end-tests)
  82