Add tests for pdf-loader.el

1 files changed, 24 insertions, 0 deletions

diff --git a/test/pdf-loader-test.el b/test/pdf-loader-test.el
new file mode 100644
index 0000000..a7bc79f
--- /dev/null
+++ b/test/pdf-loader-test.el
@@ -0,0 +1,24 @@
+;; -*- lexical-binding: t -*-
+
+(require 'pdf-loader)
+(require 'ert)
+(require 'cl-lib)
+
+(ert-deftest pdf-loader-activation ()
+  :expected-result :failed ;; Until someone figures out how to run the
+                           ;; tests w/o loading all of the package.
+  (should-not (memq 'pdf-tools features))
+  (pdf-loader-install)
+  (with-current-buffer (find-file "test.pdf")
+    (should (eq major-mode 'pdf-view-mode))))
+
+(ert-deftest pdf-loader-install/uninstall-alists ()
+  (cl-labels ((alists-installed-p ()
+                (and (assoc pdf-loader--auto-mode-alist-item
+                            auto-mode-alist)
+                     (assoc pdf-loader--magic-mode-alist-item
+                            magic-mode-alist))))
+    (pdf-loader--install #'ignore)
+    (should (alists-installed-p))
+    (pdf-loader--uninstall)
+    (should-not (alists-installed-p))))