luv

Workshop wiki

mcclim-tests.lisp

lobby/mcclim-tests.lisp

system luv/lobby/mcclim/test · 8 definitions · on GitHub

defpackage#:luv.lobby.mcclim.tests
:use#:cl#:rove
in-package#:luv.lobby.mcclim.tests
defclasslobby-preparation-probe
revisions:initformnil:accessorlobby-preparation-probe-revisions
defmethodmcluv::prepare-mirror-compositor-revision
declare
ignoremirror
pushrevision
lobby-preparation-probe-revisionsprobe
defunmount-static-lobby-preparation-probe
let*
sheet
make-instance'mcluv:transparent-gpu-top-level-sheet-pane:region
clim:make-bounding-rectangle00320140
mirror
make-instance'mcluv:luv-gpu-mirror:sheetsheet:targetnil:contextnil:embedded-pt
probe
revision
mcluv::make-gpu-mirror-prepared-revisionmirror
list
mcluv::make-gpu-solid-command
setf
slot-valueframe'clim-internals::top-level-sheet
sheet
clim:sheet-direct-mirrorsheet
mirror
setf
mcluv:mirror-compositormirror
probe
valuesproberevision
defteststatic-lobby-hud-prepares-live-shader-revisions
let*
client
luv.lobby:make-lobby-client:client-id-prefix"test":transport
frame
clim:make-application-frame'luv.lobby.mcclim::lobby-hud:clientclient:visible-snapshotsnapshot
setf
luv.lobby.mcclim::lobby-hud-painted-revisionframe
luv.lobby:lobby-snapshot-revisionsnapshot
multiple-value-bind
proberevision
ok
equal
listrevision
lobby-preparation-probe-revisionsprobe
deftestlobby-hud-is-authored-in-logical-pixels-at-native-destination
let*
logical'
1344840
drawable'
26881680
half-width
arefstate4
half-height
arefstate9
ok
<
abs
-320.0
*half-width
firstlogical
1.0e-4
ok
<
abs
-140.0
*half-height
secondlogical
1.0e-4

The same logical affine receives two physical samples per authored coordinate on a 2x drawable; there is no 320x140 panel raster.

ok
<
abs
-640.0
*half-width
firstdrawable
1.0e-4
ok
<
abs
-280.0
*half-height
seconddrawable
1.0e-4
deftestlobby-hud-panel-is-translucent-analytic-media
let
medium
make-instance'mcluv:luv-gpu-medium
let
vertices
mcluv::gpu-medium-analytic-verticesmedium
commands
mcluv::gpu-medium-commandsmedium
ok
<
abs
-0.84
arefvertices2
1.0e-5
ok
=1
lengthcommands
ok
typep
arefcommands0
'mcluv::gpu-analytic-command
let*
sheet
make-instance'luv.lobby.mcclim::lobby-hud-pane:region
clim:make-bounding-rectangle00320140
mirror
make-instance'mcluv:luv-gpu-mirror:sheetsheet:targetnil:embedded-pt
multiple-value-bind
preparedtext-data
declare
ignoretext-data
ok
=1
lengthprepared
ok
null
find-if
lambda
command
prepared
deftestlobby-hud-snapshot-is-a-copied-frame-boundary
let*
client
luv.lobby:make-lobby-client:client-id-prefix"test":transport
luv.lobby:receive-lobby-publicationclient"luv/presence/peer""Daniel"
let

Already-published frame state does not alias the client's table.

ok
null
luv.lobby:lobby-snapshot-peersbefore
ok
equal'
"Daniel"
mapcar#'luv.lobby:lobby-peer-name
luv.lobby:lobby-snapshot-peersafter