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

Add some simple tests

Browse source
This commit is contained in:
BirDt_ 2026-04-02 14:35:13 +08:00
parent 99dd46d3f6
commit 36d72dded2
2 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
test/engine.scm
View file

@ -85,5 +85,18 @@
(check (point-x (pop-event 'foo 'bar)) => 1) ;; Event is popped
(check (hash-table-size (fetch-event-bus 'foo)) => 0) ;; Event is removed exists
;; Render queue tests
(check (hash-table-size render-queues) => 3)
(check (length render-priority) => 3)
(check (length (hash-table-ref render-queues 'screen)) => 0)
(push-render-object 'screen 0 (lambda () #t))
(check (length (hash-table-ref render-queues 'screen)) => 1)
(evaluate-render-queue 'screen 'screen)
(check (length (hash-table-ref render-queues 'screen)) => 0)
(check-report)
(create-window)
)