3 (load-file "../../load-relative.el")
5 (test-unit-clear-contexts)
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))
18 (test-unit "load-relative-list-from-subdir")