;; Copyright (C) 2015 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)
(require 'test-simple)
(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)