diff options
Diffstat (limited to 'test/pdf-cache-test.el')
| -rw-r--r-- | test/pdf-cache-test.el | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/test/pdf-cache-test.el b/test/pdf-cache-test.el new file mode 100644 index 0000000..26b7fe7 --- /dev/null +++ b/test/pdf-cache-test.el @@ -0,0 +1,31 @@ + + +;; * ================================================================== * +;; * Tests for pdf-cache.el +;; * ================================================================== * + +(require 'pdf-cache) +(require 'ert) + +(ert-deftest pdf-cache-get-image () + (let (pdf-cache--image-cache) + (should-not (pdf-cache-get-image 1 1)) + (setq pdf-cache--image-cache + (list + (pdf-cache--make-image 1 1 "1" nil) + (pdf-cache--make-image 2 1 "2" nil) + (pdf-cache--make-image 3 1 "3" nil))) + (should (equal (pdf-cache-get-image 1 1) "1")) + (should (equal pdf-cache--image-cache + (list + (pdf-cache--make-image 1 1 "1" nil) + (pdf-cache--make-image 2 1 "2" nil) + (pdf-cache--make-image 3 1 "3" nil)))) + (should (equal (pdf-cache-get-image 2 1) "2")) + (should (equal pdf-cache--image-cache + (list + (pdf-cache--make-image 2 1 "2" nil) + (pdf-cache--make-image 1 1 "1" nil) + (pdf-cache--make-image 3 1 "3" nil)))) + (should-not (pdf-cache-get-image 4 1)))) + |