Merge commit '0e1d1440e4819d76cc68b213431722884af66e89'

[gnu-emacs-elpa] / packages / load-relative / test / test-file.el

diff --git a/packages/load-relative/test/test-file.el b/packages/load-relative/test/test-file.el
new file mode 100644 (file)
index 0000000..d2be52f
--- /dev/null
+++ b/packages/load-relative/test/test-file.el
@@ -0,0 +1,36 @@
+(load-file "../load-relative.el")
+(require 'ert)
+
+
+(ert-deftest test-name ()
+  (should
+   ;; not sure how I can test the full path here because, well, I need to
+   ;; resolve a relative path to do so...
+   (equal
+    "simple.txt"
+    (let ((bf
+           (find-file-noselect-relative "simple.txt")))
+      (kill-buffer bf)
+      (file-name-nondirectory
+       (buffer-file-name bf))))))
+
+(ert-deftest test-contents ()
+  (should
+   (equal
+    "simple\n"
+    (let* ((bf
+            (find-file-noselect-relative "simple.txt"))
+           (ct
+            (with-current-buffer
+                bf
+              (buffer-string))))
+      (kill-buffer bf)
+      ct))))
+
+(ert-deftest test-contents-with-relative-file ()
+  (should
+   (equal
+    "simple\n"
+    (with-relative-file
+        "simple.txt"
+      (buffer-string)))))