BirDt/imugi
1
0
Fork 0
Code Issues 14 Pull requests Projects 1 Wiki Activity Actions

refactor + some extra tests

Browse source
This commit is contained in:
BirDt_ 2026-04-02 22:04:17 +08:00
parent 36d72dded2
commit 5456f643e3
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
engine/core.scm
View file

@ -363,7 +363,7 @@
(assert (symbol? queue-name)) (assert (symbol? queue-name))
(assert (integer? layer)) (assert (integer? layer))
(assert (procedure? thunk)) (assert (procedure? thunk))
(set! (hash-table-ref render-queues queue-name) (hash-table-set! render-queues queue-name
(cons (cons layer thunk) (hash-table-ref render-queues queue-name)))) (cons (cons layer thunk) (hash-table-ref render-queues queue-name))))
;; Evaluate a single render queue with a specific mode. ;; Evaluate a single render queue with a specific mode.

5
test/engine.scm
View file

@ -88,6 +88,11 @@
;; Render queue tests ;; Render queue tests
(check (hash-table-size render-queues) => 3) (check (hash-table-size render-queues) => 3)
(check (length render-priority) => 3) (check (length render-priority) => 3)
(register-render-queue 'screen2 'screen)
(check (hash-table-size render-queues) => 4)
(check (length render-priority) => 4)
(check (length (hash-table-ref render-queues 'screen)) => 0) (check (length (hash-table-ref render-queues 'screen)) => 0)
(push-render-object 'screen 0 (lambda () #t)) (push-render-object 'screen 0 (lambda () #t))