BirDt/imugi
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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

4
engine/core.scm
View file

@ -382,7 +382,7 @@
(when (eq? mode '3d)
(begin-mode-3d (*active-camera-3d*)))
(for-each
(lambda (x) (x))
(lambda (render-obj) (cdr render-obj))
(sort queue
(lambda (render-obj-a render-obj-b)
(< (car render-obj-a)
@ -391,7 +391,7 @@
(end-mode-2d))
(when (eq? mode '3d)
(end-mode-3d)))
(set! queue '())))
(hash-table-set! render-queues queue-name '())))
;; Frame generation and game loop
(export resolve-queues next-frame *clear-color* perform-render)

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)
)