all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
blob de92d26ef825c8743661f7ce1d887b3a79b7c805 4373 bytes (raw)
name: test/src/xdisp-tests.el 	 # note: path name is non-authoritative(*)

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
 
;;; xdisp-tests.el --- tests for xdisp.c functions -*- lexical-binding: t -*-

;; Copyright (C) 2020-2021 Free Software Foundation, Inc.

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.

;;; Code:

(require 'ert)

(defmacro xdisp-tests--in-minibuffer (&rest body)
  (declare (debug t) (indent 0))
  `(catch 'result
     (minibuffer-with-setup-hook
         (lambda ()
           (let ((redisplay-skip-initial-frame nil)
                 (executing-kbd-macro nil)) ;Don't skip redisplay
             (throw 'result (progn . ,body))))
       (let ((executing-kbd-macro t)) ;Force real minibuffer in `read-string'.
         (read-string "toto: ")))))

(ert-deftest xdisp-tests--minibuffer-resizing () ;; bug#43519
  (should
   (equal
    t
    (xdisp-tests--in-minibuffer
      (insert "hello")
      (let ((ol (make-overlay (point) (point)))
            (max-mini-window-height 1)
            (text "askdjfhaklsjdfhlkasjdfhklasdhflkasdhflkajsdhflkashdfkljahsdlfkjahsdlfkjhasldkfhalskdjfhalskdfhlaksdhfklasdhflkasdhflkasdhflkajsdhklajsdgh"))
        ;; (save-excursion (insert text))
        ;; (sit-for 2)
        ;; (delete-region (point) (point-max))
        (put-text-property 0 1 'cursor t text)
        (overlay-put ol 'after-string text)
        (redisplay 'force)
        ;; Make sure we do the see "hello" text.
        (prog1 (equal (window-start) (point-min))
          ;; (list (window-start) (window-end) (window-width))
          (delete-overlay ol)))))))

(ert-deftest xdisp-tests--minibuffer-scroll () ;; bug#44070
  (let ((posns
         (xdisp-tests--in-minibuffer
           (let ((max-mini-window-height 4))
             (dotimes (_ 80) (insert "\nhello"))
             (goto-char (point-min))
             (redisplay 'force)
             (goto-char (point-max))
             ;; A simple edit like removing the last `o' shouldn't cause
             ;; the rest of the minibuffer's text to move.
             (list
              (progn (redisplay 'force) (window-start))
              (progn (delete-char -1)
                     (redisplay 'force) (window-start))
              (progn (goto-char (point-min)) (redisplay 'force)
                     (goto-char (point-max)) (redisplay 'force)
                     (window-start)))))))
    (should (equal (nth 0 posns) (nth 1 posns)))
    (should (equal (nth 1 posns) (nth 2 posns)))))

(when (display-graphic-p)
  (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))))))

(when (display-graphic-p)
  (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))))))

(when (display-graphic-p)
  (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))))))

;;; xdisp-tests.el ends here

debug log:

solving de92d26ef8 ...
found de92d26ef8 in https://yhetil.org/emacs/871relaiyy.fsf@dick/
found ec96d777ff in https://git.savannah.gnu.org/cgit/emacs.git
preparing index
index prepared:
100644 ec96d777ffbb124157ee5b2347d88d1117cad154	test/src/xdisp-tests.el

applying [1/1] https://yhetil.org/emacs/871relaiyy.fsf@dick/
diff --git a/test/src/xdisp-tests.el b/test/src/xdisp-tests.el
index ec96d777ff..de92d26ef8 100644

Checking patch test/src/xdisp-tests.el...
Applied patch test/src/xdisp-tests.el cleanly.

index at:
100644 de92d26ef825c8743661f7ce1d887b3a79b7c805	test/src/xdisp-tests.el

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.