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

   1 (load-file "../load-relative.el")
   2 (require 'ert)
   3
   4
   5 (ert-deftest test-name ()
   6   (should
   7    ;; not sure how I can test the full path here because, well, I need to
   8    ;; resolve a relative path to do so...
   9    (equal
  10     "simple.txt"
  11     (let ((bf
  12            (find-file-noselect-relative "simple.txt")))
  13       (kill-buffer bf)
  14       (file-name-nondirectory
  15        (buffer-file-name bf))))))
  16
  17 (ert-deftest test-contents ()
  18   (should
  19    (equal
  20     "simple\n"
  21     (let* ((bf
  22             (find-file-noselect-relative "simple.txt"))
  23            (ct
  24             (with-current-buffer
  25                 bf
  26               (buffer-string))))
  27       (kill-buffer bf)
  28       ct))))
  29
  30 (ert-deftest test-contents-with-relative-file ()
  31   (should
  32    (equal
  33     "simple\n"
  34     (with-relative-file
  35         "simple.txt"
  36       (buffer-string)))))