diff options
Diffstat (limited to 'test/pdf-sync.ert')
| -rw-r--r-- | test/pdf-sync.ert | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/test/pdf-sync.ert b/test/pdf-sync.ert new file mode 100644 index 0000000..544f99b --- /dev/null +++ b/test/pdf-sync.ert @@ -0,0 +1,50 @@ + + +;; * ================================================================== * +;; * Tests for pdf-sync.el +;; * ================================================================== * + +(require 'ert) +(require 'pdf-sync) + +(ert-deftest pdf-sync-backward--source-strip-comments () + (should-not (cl-remove-if + (lambda (ch) + (memq ch '(?\\ ?\s ?\n))) + (append (pdf-sync-backward--source-strip-comments + (concat "%comment\n" + " %comment\n" + "\\\\%comment\n" + "\\\\ %comment\n" + " \\\\ %comment\n" + " \\\\%comment\n")) + nil))) + (let ((source (concat "\\%comment\n" + " \\%comment\n" + "\\ %comment\n" + " \\ %comment\n" + " \\%comment\n"))) + (should (equal (pdf-sync-backward--source-strip-comments source) + source)))) + +(ert-deftest pdf-sync-backward--get-text-context () + (pdf-test-with-test-pdf + (should (= 3 (length (pdf-sync-backward--get-text-context 1 0.5 0.25)))) + ;; Empty page + (should (equal '(-1 0 nil) + (pdf-sync-backward--get-text-context 6 0.5 0.5))))) + +(ert-deftest pdf-sync-backward--get-source-context () + (with-temp-buffer + (should-not (pdf-sync-backward--get-source-context)) + (insert "\\begin{foo}\nsource\n\\end{foo}") + (should (cl-every 'stringp (pdf-sync-backward--get-source-context))))) + +(ert-deftest pdf-sync-backward--find-position () + (let ((context '(3 2 ("000" "1111" "222222" "333333" "4444" "55555"))) + (prefix "000 XXXX 222222 YYYY 333") + (suffix "333 4444 XXXX")) + (with-temp-buffer + (insert prefix suffix) + (should (progn (pdf-sync-backward--find-position 1 -1 context) + (eq (length prefix) (point))))))) |