luv

Workshop wiki

status-bar-tests.lisp

luft/render/status-bar-tests.lisp

system luft/render/test · 6 definitions · on GitHub

in-package#:luft.render.tests
defclassviewer-status-boundary-test-canvas
requests:initform0:accessorviewer-status-boundary-test-requests
defmethodluv:request-canvas-frame
incf
viewer-status-boundary-test-requestscanvas
funcallfunction0d0
deftestluft-status-bar-adds-game-fields-through-the-shared-clos-protocol
let
viewer
clim:make-application-frame'render:viewer:sourcenil:playernil:bevel-width2
ok
equal'
:application:pid:fps:heap:lobby:worktree:bevel:view
ok
string="1/4"
mcluv:status-bar-channel-value:bevelviewer
clim:make-application-frame'mcluv:status-bar:ownerviewer:logical-width900:worktreenil
deftestluft-status-bar-is-default-visible-instrument-above-radio
let
viewer
gensym"VIEWER"
status
make-instance'render:viewer-status-bar:framenil:compositornil
radio
make-instance'render::viewer-lobby-instrument:clientnil
unwind-protect

Frames are NIL in this lifecycle-only fixture; detach without calling the release methods whose production contract owns real frames.

deftestluft-status-and-lobby-mutations-cross-the-canvas-boundary
let*
viewer
clim:make-application-frame'render:viewer:canvascanvas:sourcenil:playernil
status
make-instance'render:viewer-status-bar:framenil:compositornil
unwind-protect
progn
ok
=1
viewer-status-boundary-test-requestscanvas

An existing attachment lets this exercise the public frame-safe path without constructing production GPU state in the fixture.

ok
=2
viewer-status-boundary-test-requestscanvas
ok
=3
viewer-status-boundary-test-requestscanvas