Add some simple tests

engine/core.scm

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

test/engine.scm

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