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