geekinney/etaf
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

test: use semantic generation adjacency

Browse Source
This commit is contained in:
Kinneyzhang 2026-08-27 20:30:53 +08:00
parent 5921dcb8a2
commit 1b6f5871a1
1 changed files with 16 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
tests/etaf-tests.el
View File

@ -3060,14 +3060,12 @@ Event composition is a Runtime contract, not a UI-library helper contract."
(cl-labels (cl-labels
((walk (parent-id) ((walk (parent-id)
(dolist (child-id (dolist (child-id
(etaf--pvec-get (etaf--generation-child-ids
(etaf-generation-children-table generation) generation parent-id))
parent-id))
(should (integerp child-id)) (should (integerp child-id))
(should (= parent-id (should (= parent-id
(etaf--pvec-get (etaf--generation-parent-id
(etaf-generation-parent-table generation) generation child-id)))
child-id)))
(walk child-id)))) (walk child-id))))
(walk 0))))) (walk 0)))))
(when-let* ((runtime (etaf-runtime-for-buffer buffer-name))) (when-let* ((runtime (etaf-runtime-for-buffer buffer-name)))
@ -3150,9 +3148,8 @@ Event composition is a Runtime contract, not a UI-library helper contract."
(parent-id (etaf--semantic-range-parent-id range))) (parent-id (etaf--semantic-range-parent-id range)))
(setq static-records (setq static-records
(cl-loop for child-id in (cl-loop for child-id in
(etaf--pvec-get (etaf--generation-child-ids
(etaf-generation-children-table generation) generation parent-id)
parent-id)
unless (= child-id range-id) unless (= child-id range-id)
collect collect
(cons child-id (cons child-id
@ -3552,12 +3549,11 @@ Event composition is a Runtime contract, not a UI-library helper contract."
(should-not (etaf--pvec-get (should-not (etaf--pvec-get
(etaf-generation-semantic-nodes new-generation) (etaf-generation-semantic-nodes new-generation)
semantic-id)) semantic-id))
(should-not (etaf--pvec-get (should-not
(etaf-generation-parent-table new-generation) (etaf--generation-parent-id new-generation semantic-id))
semantic-id)) (should-not
(should-not (etaf--pvec-get (etaf--generation-child-ids
(etaf-generation-children-table new-generation) new-generation semantic-id))))))))
semantic-id))))))))
(when-let* ((runtime (etaf-runtime-for-buffer buffer-name))) (when-let* ((runtime (etaf-runtime-for-buffer buffer-name)))
(etaf-unmount runtime)) (etaf-unmount runtime))
(when-let* ((buffer (get-buffer buffer-name))) (kill-buffer buffer))))) (when-let* ((buffer (get-buffer buffer-name))) (kill-buffer buffer)))))
@ -3904,10 +3900,10 @@ Event composition is a Runtime contract, not a UI-library helper contract."
(let ((generation (etaf-runtime-current-generation runtime))) (let ((generation (etaf-runtime-current-generation runtime)))
(should-not (etaf--pvec-get (should-not (etaf--pvec-get
(etaf-generation-semantic-nodes generation) item-id)) (etaf-generation-semantic-nodes generation) item-id))
(should-not (etaf--pvec-get (should-not
(etaf-generation-parent-table generation) item-id)) (etaf--generation-parent-id generation item-id))
(should-not (etaf--pvec-get (should-not
(etaf-generation-children-table generation) item-id)))))) (etaf--generation-child-ids generation item-id))))))
(when-let* ((runtime (etaf-runtime-for-buffer buffer-name))) (when-let* ((runtime (etaf-runtime-for-buffer buffer-name)))
(etaf-unmount runtime)) (etaf-unmount runtime))
(when-let* ((buffer (get-buffer buffer-name))) (kill-buffer buffer))))) (when-let* ((buffer (get-buffer buffer-name))) (kill-buffer buffer)))))
@ -3988,8 +3984,7 @@ Event composition is a Runtime contract, not a UI-library helper contract."
(generation (etaf-runtime-current-generation runtime)) (generation (etaf-runtime-current-generation runtime))
(root (etaf--pvec-get (root (etaf--pvec-get
(etaf-generation-semantic-nodes generation) 0)) (etaf-generation-semantic-nodes generation) 0))
(range-id (car (etaf--pvec-get (range-id (car (etaf--generation-child-ids generation 0)))
(etaf-generation-children-table generation) 0)))
(range (etaf--pvec-get (range (etaf--pvec-get
(etaf-generation-semantic-nodes generation) range-id))) (etaf-generation-semantic-nodes generation) range-id)))
(should (etaf--semantic-root-p root)) (should (etaf--semantic-root-p root))