-
Notifications
You must be signed in to change notification settings - Fork 9
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Insert buffer-file-name as FILE if view mode is active
- checks if pdf-view-mode is active - checks if doc-view-mode is active - if either one is active it inserts the file name of the currently loaded pdf as FILE
- Loading branch information
Showing
3 changed files
with
99 additions
and
5 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,80 @@ | ||
;;; pdfgrep-tests.el --- Test for pdf-grep -*- lexical-binding: t; -*- | ||
|
||
|
||
;;; Commentary: | ||
|
||
;;; Code: | ||
|
||
|
||
(require 'ert) | ||
(require 'pdfgrep) | ||
|
||
(defun pth/pos-at-end (cmd) | ||
"Position at end of CMD. Counting begins at 1." | ||
(1+ (length cmd))) | ||
|
||
(ert-deftest pdfgrep-tests/pdfgrep-default-command/ignore-case () | ||
(let ((cmd "pdfgrep -H -n -i ")) | ||
(should (equal (pdfgrep-default-command) `(,cmd . ,(pth/pos-at-end cmd)))))) | ||
|
||
|
||
(ert-deftest pdfgrep-tests/pdfgrep-default-command/no-ignore-case () | ||
(let ((pdfgrep-ignore-case 'nil) | ||
(cmd "pdfgrep -H -n ")) | ||
(should (equal (pdfgrep-default-command) `(,cmd . ,(pth/pos-at-end cmd)))))) | ||
|
||
(ert-deftest pdfgrep-tests/pdfgrep-default-command/no-ignore-case-pdf-view-mode () | ||
(let* ((pdfgrep-ignore-case 'nil) | ||
(major-mode 'pdf-view-mode) | ||
(buffer-file-name "/some/path/to/test.pdf") | ||
(base-cmd "pdfgrep -H -n ") | ||
(cmd (concat base-cmd buffer-file-name))) | ||
(should (equal (pdfgrep-default-command) `(,cmd . ,(pth/pos-at-end cmd)))))) | ||
|
||
(ert-deftest pdfgrep-tests/pdfgrep-default-command/no-ignore-case-doc-view-mode () | ||
(let* ((pdfgrep-ignore-case 'nil) | ||
(major-mode 'doc-view-mode) | ||
(buffer-file-name "/some/path/to/test.pdf") | ||
(base-cmd "pdfgrep -H -n ") | ||
(cmd (concat base-cmd buffer-file-name))) | ||
(should (equal (pdfgrep-default-command) `(,cmd . ,(pth/pos-at-end cmd)))))) | ||
|
||
(ert-deftest pdfgrep-tests/pdfgrep-default-command/ignore-case-ignore-errors () | ||
(let* ((pdfgrep-ignore-errors t) | ||
(base-cmd "pdfgrep -H -n -i ") | ||
(ignore-errors " 2>/dev/null") | ||
(cmd (concat base-cmd ignore-errors))) | ||
(should (equal (pdfgrep-default-command) `(,cmd . ,(pth/pos-at-end base-cmd)))))) | ||
|
||
|
||
(ert-deftest pdfgrep-tests/pdfgrep-default-command/no-ignore-case-ignore-errors () | ||
(let* ((pdfgrep-ignore-errors t) | ||
(pdfgrep-ignore-case 'nil) | ||
(base-cmd "pdfgrep -H -n ") | ||
(ignore-errors " 2>/dev/null") | ||
(cmd (concat base-cmd ignore-errors))) | ||
(should (equal (pdfgrep-default-command) `(,cmd . ,(pth/pos-at-end base-cmd)))))) | ||
|
||
(ert-deftest pdfgrep-tests/pdfgrep-default-command/no-ignore-case-pdf-view-mode () | ||
(let* ((pdfgrep-ignore-errors t) | ||
(pdfgrep-ignore-case 'nil) | ||
(major-mode 'pdf-view-mode) | ||
(buffer-file-name "/some/path/to/test.pdf") | ||
(base-cmd "pdfgrep -H -n ") | ||
(ignore-errors " 2>/dev/null") | ||
(cmd (concat base-cmd buffer-file-name ignore-errors))) | ||
(should (equal (pdfgrep-default-command) `(,cmd . ,(pth/pos-at-end cmd)))))) | ||
|
||
(ert-deftest pdfgrep-tests/pdfgrep-default-command/no-ignore-case-doc-view-mode () | ||
(let* ((pdfgrep-ignore-errors t) | ||
(pdfgrep-ignore-case 'nil) | ||
(major-mode 'doc-view-mode) | ||
(buffer-file-name "/some/path/to/test.pdf") | ||
(base-cmd "pdfgrep -H -n ") | ||
(ignore-errors " 2>/dev/null") | ||
(cmd (concat base-cmd buffer-file-name ignore-errors))) | ||
(should (equal (pdfgrep-default-command) `(,cmd . ,(pth/pos-at-end cmd)))))) | ||
|
||
(provide 'pdfgrep-tests) | ||
|
||
;;; pdfgrep-tests.el ends here |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters