1 ;;; test-file.el --- Simple test for load-relative
3 ;; Copyright (C) 2015 Free Software Foundation, Inc.
5 ;; This program is free software: you can redistribute it and/or modify
6 ;; it under the terms of the GNU General Public License as published by
7 ;; the Free Software Foundation, either version 3 of the License, or
8 ;; (at your option) any later version.
10 ;; This program is distributed in the hope that it will be useful,
11 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 ;; GNU General Public License for more details.
15 ;; You should have received a copy of the GNU General Public License
16 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
22 (load-file "../load-relative.el")
27 (ert-deftest test-name ()
29 ;; not sure how I can test the full path here because, well, I need to
30 ;; resolve a relative path to do so...
34 (find-file-noselect-relative "simple.txt")))
36 (file-name-nondirectory
37 (buffer-file-name bf))))))
39 (ert-deftest test-contents ()
44 (find-file-noselect-relative "simple.txt"))
52 (ert-deftest test-contents-with-relative-file ()
62 ;;; test-file.el ends here