30 lines
1.5 KiB
EmacsLisp
30 lines
1.5 KiB
EmacsLisp
;;; test.el --- Visual QA: Render Cycle & Present -*- lexical-binding: t; -*-
|
|
;;
|
|
;; GPU: emacs --no-init-file -l qa/01-render-cycle/test.el
|
|
;; Vanilla: EMACS_GPU_DISABLE=1 emacs --no-init-file -l qa/01-render-cycle/test.el
|
|
|
|
(let ((buf (get-buffer-create "*QA: Render Cycle*")))
|
|
(with-current-buffer buf
|
|
(erase-buffer)
|
|
(insert (propertize "=== Render Cycle & Present QA ===\n\n"
|
|
'face '(:weight bold :height 1.3)))
|
|
(insert "Perform each step below and check for visual artifacts.\n\n")
|
|
|
|
(insert (propertize "Steps:\n" 'face '(:weight bold)))
|
|
(insert " 1. Note: did this window appear cleanly? (no black flash on startup)\n")
|
|
(insert " 2. C-x t t — toggle tab-bar (must not flash white)\n")
|
|
(insert " 3. M-x C-g — open and close minibuffer (no flash below text area)\n")
|
|
(insert " 4. Drag the window border with the mouse (no black band during resize)\n")
|
|
(insert " 5. C-x b RET — switch to *scratch* then back (no old content flicker)\n")
|
|
(insert " 6. Move mouse over mode-line buttons (mouse-face must not flicker)\n")
|
|
(insert " 7. Minimize and restore the window (content must redraw correctly)\n\n")
|
|
|
|
(insert (make-string 65 ?─) "\n")
|
|
(insert "Background content (to make content flicker visible):\n\n")
|
|
(dotimes (i 30)
|
|
(insert (format " Line %3d │ The quick brown fox jumps over the lazy dog 1234567890\n" i)))
|
|
|
|
(goto-char (point-min)))
|
|
(switch-to-buffer buf)
|
|
(setq buffer-read-only t))
|