efdc35f4af
Some checks are pending
CI / test (29.1) (push) Waiting to run
CI / test (30.2) (push) Waiting to run
CI / native-build (macos-latest) (push) Waiting to run
CI / native-build (ubuntu-latest) (push) Waiting to run
CI / native-build (windows-latest) (push) Waiting to run
CI / native-msrv (macos-latest) (push) Waiting to run
CI / native-msrv (ubuntu-latest) (push) Waiting to run
CI / native-msrv (windows-latest) (push) Waiting to run
Batch region callbacks and preserve native repeated-click behavior. Reuse proven layer slots, root scroll content and nested viewport allocations while retaining conservative fallbacks. Isolate cold prefix producers and caches before publication, retain current-owner continuations, and project separator ownership consistently. Add lifecycle, rollback, layout and performance regression coverage with bilingual contracts.
265 lines
13 KiB
EmacsLisp
265 lines
13 KiB
EmacsLisp
;;; ebox-layer-tests.el --- Box composition contracts -*- lexical-binding: t; -*-
|
|
|
|
(require 'ert)
|
|
(require 'ebox)
|
|
|
|
(defun ebox-layer-test--render (form)
|
|
"Render FORM through the public canonical boundary."
|
|
(ebox-render (ebox-build form)))
|
|
|
|
(ert-deftest ebox-layer-minimal-opaque-overlap ()
|
|
(let ((output
|
|
(ebox-layer-test--render
|
|
'(box :width (ch 10) :height (lh 3)
|
|
(box "abcdefghij\nABCDEFGHIJ\n0123456789")
|
|
(box :position absolute :left (ch 2) :top (lh 1)
|
|
:width (ch 4) :height (lh 1) :background-color "red"
|
|
"TOP")))))
|
|
(should (equal (substring-no-properties output)
|
|
"abcdefghij\nABTOP GHIJ\n0123456789"))
|
|
(should (= (length (ebox-string-lines output)) 3))))
|
|
|
|
(ert-deftest ebox-layer-relative-reserves-flow-slot ()
|
|
(let ((lines
|
|
(ebox-string-lines
|
|
(ebox-layer-test--render
|
|
'(column :width (ch 10) :height (lh 3)
|
|
(box :position relative :left (ch 2) :top (lh 1)
|
|
:z-index 1 :width (ch 4) "MOVE")
|
|
(box "abcdefghij")
|
|
(box "0123456789"))))))
|
|
(should (= (length lines) 3))
|
|
(should-not (string-match-p "MOVE" (car lines)))
|
|
(should (equal (substring-no-properties (cadr lines)) "abMOVEghij"))
|
|
(should (equal (substring-no-properties (nth 2 lines)) "0123456789"))))
|
|
|
|
(ert-deftest ebox-layer-negative-z-stays-below-normal-content ()
|
|
(let ((output (ebox-layer-test--render
|
|
'(box :width (ch 6) :height (lh 1)
|
|
(box "BOTTOM")
|
|
(box :position absolute :width (ch 6) :z-index -1 "HIDDEN")))))
|
|
(should (equal (substring-no-properties output) "BOTTOM"))))
|
|
|
|
(ert-deftest ebox-layer-nested-isolation-orders-groups ()
|
|
(let ((output (ebox-layer-test--render
|
|
'(box :width (ch 6) :height (lh 1)
|
|
(box
|
|
(box "BOTTOM")
|
|
(box :position absolute :width (ch 6)
|
|
:z-index 100 "INSIDE"))
|
|
(box :position absolute :width (ch 6) :z-index 1 "FRONT!")))))
|
|
(should (equal (substring-no-properties output) "FRONT!"))))
|
|
|
|
(ert-deftest ebox-layer-root-projection-escapes-local-clipping ()
|
|
(let ((output (ebox-layer-test--render
|
|
'(box :width (ch 10) :height (lh 3)
|
|
(box :height (lh 1) :overflow hidden
|
|
(box :id trigger "BUTTON")
|
|
(box :position absolute :layer root :anchor trigger
|
|
:width (ch 4) :height (lh 1) "MENU"))
|
|
(box "abcdefghij\n0123456789")))))
|
|
(should (equal (substring-no-properties output)
|
|
"BUTTON \nMENUefghij\n0123456789"))))
|
|
|
|
(ert-deftest ebox-layer-missing-anchor-does-not-paint ()
|
|
(let ((output (ebox-layer-test--render
|
|
'(box :width (ch 6) :height (lh 1)
|
|
(box "BOTTOM")
|
|
(box :position absolute :anchor missing
|
|
:width (ch 6) "HIDDEN")))))
|
|
(should (equal (substring-no-properties output) "BOTTOM"))))
|
|
|
|
(ert-deftest ebox-layer-hidden-upper-reveals-base ()
|
|
(let ((output (ebox-layer-test--render
|
|
'(box :width (ch 6) :height (lh 1)
|
|
(box "LATEST")
|
|
(box :position absolute :visibility hidden
|
|
:width (ch 6) "HIDDEN")))))
|
|
(should (equal (substring-no-properties output) "LATEST"))))
|
|
|
|
(ert-deftest ebox-layer-max-content-row-paints-positioned-descendants ()
|
|
(let ((output (ebox-layer-test--render
|
|
'(row :width max-content
|
|
(box :width (ch 4) :height (lh 1)
|
|
(box "ABCD")
|
|
(box :position absolute :left (ch 1)
|
|
:width (ch 2) "XX"))))))
|
|
(should (equal (substring-no-properties output) "AXXD"))))
|
|
|
|
(ert-deftest ebox-layer-anchor-dependency-resolves-before-paint-order ()
|
|
(let ((output (ebox-layer-test--render
|
|
'(box :width (ch 10) :height (lh 4)
|
|
(box "0123456789\nabcdefghij\nABCDEFGHIJ\n0123456789")
|
|
(box :position absolute :anchor parent-panel :width (ch 4)
|
|
:z-index 2 "MENU")
|
|
(box :id parent-panel :position absolute :left (ch 2)
|
|
:top (lh 1) :width (ch 4) :z-index 1 "BASE")))))
|
|
(should (equal (substring-no-properties output)
|
|
"0123456789\nabBASEghij\nABMENUGHIJ\n0123456789"))))
|
|
|
|
(ert-deftest ebox-layer-anchor-cycles-are-rejected ()
|
|
(should-error
|
|
(ebox-layer-test--render
|
|
'(box :width (ch 10) :height (lh 4)
|
|
(box :id a :position absolute :anchor b "A")
|
|
(box :id b :position absolute :anchor a "B")))))
|
|
|
|
(ert-deftest ebox-layer-absolute-margins-do-not-cover-underlay ()
|
|
(let ((output (ebox-layer-test--render
|
|
'(box :width (ch 8) :height (lh 3)
|
|
(box "abcdefgh\nABCDEFGH\n01234567")
|
|
(box :position absolute :width (ch 4) :height (lh 1)
|
|
:margin ((lh 1) (ch 1)) :background-color "red"
|
|
"TOP!")))))
|
|
(should (equal (substring-no-properties output)
|
|
"abcdefgh\nATOP!FGH\n01234567"))))
|
|
|
|
(ert-deftest ebox-layer-absolute-keeps-all-flow-layout-sizes ()
|
|
(dolist (tag '(box row column flex grid))
|
|
(let* ((form `(,tag :width (ch 8)
|
|
(box :width (ch 8) :height (lh 1) "abcdefgh")
|
|
(box :position absolute :left (ch 2)
|
|
:width (ch 2) :height (lh 9) "XX")))
|
|
(output (ebox-layer-test--render form)))
|
|
(ert-info ((format "Layout %s" tag))
|
|
(should (= (length (ebox-string-lines output)) 1))
|
|
(should (equal (substring-no-properties output) "abXXefgh"))))))
|
|
|
|
(ert-deftest ebox-layer-root-projection-inside-an-absolute-panel ()
|
|
(let ((output (ebox-layer-test--render
|
|
'(box :width (ch 10) :height (lh 4)
|
|
(box "0123456789\nabcdefghij\nABCDEFGHIJ\n0123456789")
|
|
(box :position absolute :left (ch 2) :top (lh 1)
|
|
:width (ch 4) :height (lh 1)
|
|
(box :id trigger "BASE")
|
|
(box :position absolute :layer root :anchor trigger
|
|
:width (ch 4) :height (lh 1) "MENU"))))))
|
|
(should (equal (substring-no-properties output)
|
|
"0123456789\nabBASEghij\nABMENUGHIJ\n0123456789"))))
|
|
|
|
(ert-deftest ebox-layer-native-to-layer-transition-keeps-composition ()
|
|
(skip-unless (and (fboundp 'ebox-native-reflow-layout-ready-p)
|
|
(ebox-native-reflow-layout-ready-p)))
|
|
(let ((ebox-viewport-width 80) (ebox-viewport-height 10)
|
|
(ebox-runtime-idle-prewarm nil)
|
|
(ebox-runtime-idle-reflow-cache-prewarm nil))
|
|
(with-temp-buffer
|
|
(ebox-render-to-buffer
|
|
(current-buffer)
|
|
(ebox-build '(column :width (px 8) :height (lh 2)
|
|
(box :id "lower" :width (px 8) :height (lh 1) "LOWER001")
|
|
(box :id "upper" :width (px 8) :height (lh 1) "UPPER001"))))
|
|
(should (eq (plist-get (ebox--buffer-render-state (current-buffer))
|
|
:projection-kind) 'native-frame))
|
|
(should (ebox-region-update "upper" :position 'absolute))
|
|
(should (plist-get (ebox--buffer-render-state (current-buffer)) :layered-p))
|
|
(should-not (string-match-p "LOWER001" (buffer-string)))
|
|
(should (string-match-p "UPPER001" (buffer-string)))
|
|
(ebox-region-update "lower" :content "LOWER002")
|
|
(ebox-region-update "upper" :visibility 'hidden)
|
|
(should (string-match-p "LOWER002" (buffer-string)))
|
|
(should-not (string-match-p "UPPER001" (buffer-string))))))
|
|
|
|
(ert-deftest ebox-layer-pieces-preserve-owner-margins-and-property-boundaries ()
|
|
"Nested ownership and each owner's margins produce separate exact pieces."
|
|
(let* ((parent (list :node-id 1 :region-id 0))
|
|
(child (list :node-id 2 :region-id "child"))
|
|
(line (propertize "ABCDEFGH" 'ebox-content-owners '(0 "child")))
|
|
(second (propertize "XY" 'ebox-content "child"))
|
|
(lines (list line second)))
|
|
(put-text-property 0 1 'ebox-ml "child" line)
|
|
(put-text-property 3 4 'ebox-mt "child" line)
|
|
(put-text-property 6 7 'ebox-mb "child" line)
|
|
(put-text-property 7 8 'ebox-mr "child" line)
|
|
;; Duplicate roles and unrelated face boundaries do not split ownership.
|
|
(put-text-property 1 2 'ebox-content-owner "child" line)
|
|
(put-text-property 2 3 'face 'bold line)
|
|
(put-text-property 4 5 'ebox-pl "child" line)
|
|
(put-text-property 5 6 'ebox-br "child" line)
|
|
(cl-letf (((symbol-function 'ebox--string-pixel-width) #'length))
|
|
(let ((pieces (ebox-layer--pieces lines parent)))
|
|
(should (equal pieces (list (list :line line :start 0 :end 8 :y 0)))))
|
|
(let ((pieces (ebox-layer--pieces lines child)))
|
|
(should (equal pieces
|
|
(list (list :line line :start 1 :end 3 :y 0)
|
|
(list :line line :start 4 :end 6 :y 0)
|
|
(list :line second :start 0 :end 2 :y 1))))
|
|
(should (eq (plist-get (car pieces) :line) line))))))
|
|
|
|
(ert-deftest ebox-layer-pieces-keep-shaping-graphemes-and-shared-display-source ()
|
|
"An ownership scan preserves original shaping and complete display runs."
|
|
(let* ((node (list :node-id 1 :region-id "owner"))
|
|
(display (list 'space :width '(15)))
|
|
(keymap (make-sparse-keymap))
|
|
(line (propertize "fi éabcQ" 'ebox-content-owner "owner"
|
|
'keymap keymap))
|
|
;; Original prefixes: fi shapes, the combining mark has no advance,
|
|
;; and abc is one EQ replacement run despite property boundaries.
|
|
(widths [0 7 11 18 25 25 40 40 40 47]))
|
|
(put-text-property 5 8 'display display line)
|
|
(dotimes (index (length line))
|
|
(put-text-property index (1+ index) 'source-position index line))
|
|
(cl-letf (((symbol-function 'ebox--string-pixel-width)
|
|
(lambda (source)
|
|
(should (equal-including-properties
|
|
source (substring line 0 (length source))))
|
|
(aref widths (length source)))))
|
|
(let* ((pieces (ebox-layer--pieces (list line) node))
|
|
(source (plist-get (car pieces) :line)))
|
|
(should (equal pieces (list (list :line line :start 0 :end 47 :y 0))))
|
|
(should (eq source line))
|
|
(should (eq (get-text-property 5 'display source) display))
|
|
(should (eq (get-text-property 7 'display source) display))
|
|
(should (eq (get-text-property 0 'keymap source) keymap))))))
|
|
|
|
(ert-deftest ebox-layer-pieces-share-prefix-measurements-within-one-composition ()
|
|
"Sibling and anchor lookups share metrics without sharing mutable pieces."
|
|
(let* ((line (propertize "ABCD" 'ebox-content-owners '(0 "child" "child")))
|
|
(lines (list line))
|
|
(parent (list :node-id 1 :region-id 0))
|
|
(child (list :node-id 2 :region-id (copy-sequence "child")))
|
|
(measurements 0)
|
|
(ebox-layer--piece-width-cache (make-hash-table :test #'eq)))
|
|
(put-text-property 0 1 'ebox-ml "child" line)
|
|
(put-text-property 3 4 'ebox-mr "child" line)
|
|
(cl-letf (((symbol-function 'ebox--string-pixel-width)
|
|
(lambda (source)
|
|
(cl-incf measurements)
|
|
(length source))))
|
|
(let ((parent-pieces (ebox-layer--pieces lines parent))
|
|
(child-pieces (ebox-layer--pieces lines child)))
|
|
(should (= measurements 3))
|
|
(dotimes (_ 10)
|
|
(should (equal parent-pieces (ebox-layer--pieces lines parent)))
|
|
(should (equal child-pieces (ebox-layer--pieces lines child))))
|
|
(should (= measurements 3))
|
|
(should (equal parent-pieces
|
|
(list (list :line line :start 0 :end 4 :y 0))))
|
|
(should (equal child-pieces
|
|
(list (list :line line :start 1 :end 3 :y 0))))
|
|
(should-not (eq (car parent-pieces) (car child-pieces))))
|
|
;; An independently composed equal source keeps its own source identity.
|
|
(let* ((copy (copy-sequence line))
|
|
(pieces (ebox-layer--pieces (list copy) parent)))
|
|
(should (eq (plist-get (car pieces) :line) copy))
|
|
(should (= measurements 6))))))
|
|
|
|
(ert-deftest ebox-layer-pieces-standalone-does-not-retain-prefix-widths ()
|
|
"An isolated lookup rebuilds metrics after measurement context changes."
|
|
(let* ((node (list :node-id 1 :region-id "owner"))
|
|
(line (propertize "AB" 'ebox-content-owner "owner"))
|
|
(lines (list line))
|
|
(scale 1)
|
|
(ebox-layer--piece-width-cache nil))
|
|
(cl-letf (((symbol-function 'ebox--string-pixel-width)
|
|
(lambda (source) (* scale (length source)))))
|
|
(should (= (plist-get (car (ebox-layer--pieces lines node)) :end) 2))
|
|
(setq scale 2)
|
|
(should (= (plist-get (car (ebox-layer--pieces lines node)) :end) 4))
|
|
(remove-text-properties 0 (length line) '(ebox-content-owner nil) line)
|
|
(should-not (ebox-layer--pieces lines node))
|
|
(should-not ebox-layer--piece-width-cache))))
|
|
|
|
(provide 'ebox-layer-tests)
|
|
;;; ebox-layer-tests.el ends here
|