procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* test/src/xdisp-tests.el: Fix tests to work in batch mode

Browse source 
(xdisp-tests--window-text-pixel-size)
(xdisp-tests--window-text-pixel-size-leading-space)
(xdisp-tests--window-text-pixel-size-trailing-space): Fix tests.
(Bug#45748)
This commit is contained in:
Aaron Jensen 2021-01-16 12:28:46 -06:00 • committed by Eli Zaretskii
parent 36d33776c2
commit c4be126c42
1 changed files with 15 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
test/src/xdisp-tests.el
View file

@ -75,31 +75,28 @@
(ert-deftest xdisp-tests--window-text-pixel-size () ;; bug#45748
(with-temp-buffer
(insert "xxx")
(let* ((window
(display-buffer (current-buffer) '(display-buffer-in-child-frame . nil)))
(char-width (frame-char-width))
(size (window-text-pixel-size nil t t)))
(delete-frame (window-frame window))
(should (equal (/ (car size) char-width) 3)))))
(switch-to-buffer (current-buffer))
(let* ((char-width (frame-char-width))
(size (window-text-pixel-size nil t t))
(width-in-chars (/ (car size) char-width)))
(should (equal width-in-chars 3)))))
(ert-deftest xdisp-tests--window-text-pixel-size-leading-space () ;; bug#45748
(with-temp-buffer
(insert " xx")
(let* ((window
(display-buffer (current-buffer) '(display-buffer-in-child-frame . nil)))
(char-width (frame-char-width))
(size (window-text-pixel-size nil t t)))
(delete-frame (window-frame window))
(should (equal (/ (car size) char-width) 3)))))
(switch-to-buffer (current-buffer))
(let* ((char-width (frame-char-width))
(size (window-text-pixel-size nil t t))
(width-in-chars (/ (car size) char-width)))
(should (equal width-in-chars 3)))))
(ert-deftest xdisp-tests--window-text-pixel-size-trailing-space () ;; bug#45748
(with-temp-buffer
(insert "xx ")
(let* ((window
(display-buffer (current-buffer) '(display-buffer-in-child-frame . nil)))
(char-width (frame-char-width))
(size (window-text-pixel-size nil t t)))
(delete-frame (window-frame window))
(should (equal (/ (car size) char-width) 3)))))
(switch-to-buffer (current-buffer))
(let* ((char-width (frame-char-width))
(size (window-text-pixel-size nil t t))
(width-in-chars (/ (car size) char-width)))
(should (equal width-in-chars 3)))))
;;; xdisp-tests.el ends here