luv

Workshop wiki

z-fiber-benchmark-tests.lisp

luft/z-fiber-benchmark-tests.lisp

system luft/z-fiber-benchmark/test · 7 definitions · on GitHub

defpackage#:luft.z-fiber-benchmark.tests
:use#:cl#:rove
:local-nicknames
#:z#:luft.z-fiber-benchmark
in-package#:luft.z-fiber-benchmark.tests
deftestscalar-fibers-match-the-cell-oracle
dolist
pattern'
:solid:terrain:architecture:caves:checkerboard
let*
case
z::make-fiber-case4pattern
cell
progn
z::surface-masks-cell-scancase
z::copy-outputcase
scalar
progn
z::surface-masks-scalarcase
z::copy-outputcase
ok
equalpcellscalar
formatnil"~A surface masks"pattern
dotimes
y4
dotimes
x4
let
base
z::input-base
z::fiber-case-stridecase
1+x
1+y
ok
=
z::fiber-run-count-scan
z::fiber-case-occupancycase
base
z::fiber-run-count-bits
z::fiber-case-occupancycase
base
formatnil"~A runs at (~D,~D)"patternxy
deftestnative-simd-matches-scalar-fibers
let
families
remove:scalar
z:available-kernel-families
okfamilies"A native SIMD family is available"
dolist
familyfamilies
dolist
pattern'
:solid:terrain:architecture:caves:checkerboard
let*
case
z::make-fiber-case5pattern
scalar
progn
z::surface-masks-scalarcase
z::copy-outputcase
funcall
z::surface-kernelfamily
case
ok
equalpscalar
z::fiber-case-outputcase
formatnil"~A agrees for ~A"familypattern
deftestcamera-air-algorithms-find-the-same-boundary
dolist
pattern'
:solid:terrain:architecture:caves:checkerboard
let*
case
z::make-fiber-case5pattern
cell
progn
z::camera-boundary-cell-floodcase
z::copy-outputcase
bits
progn
z::camera-boundary-bit-wavescase
z::copy-outputcase
z::camera-boundary-run-floodcase
ok
equalpcellbits
formatnil"~A cell and bit-wave camera boundary"pattern
ok
equalpcell
z::fiber-case-outputcase
formatnil"~A cell and air-run camera boundary"pattern
deftestmaintained-atmosphere-chain-matches-rebuilds
let*
maintained
z::make-atmosphere-edit-case6
rebuilt
z::make-atmosphere-edit-case6
maintained-case
z::atmosphere-edit-case-casemaintained
rebuilt-case
z::atmosphere-edit-case-caserebuilt
dotimes
edit32
z::maintain-atmosphere-surface-editmaintained
z::rebuild-atmosphere-after-editrebuilt
ok
equalp
z::fiber-case-occupancymaintained-case
z::fiber-case-occupancyrebuilt-case
formatnil"occupancy after surface edit ~D"edit
ok
equalp
z::fiber-case-outputmaintained-case
z::fiber-case-outputrebuilt-case
formatnil"atmosphere chain after surface edit ~D"edit
ok
=
z::fiber-case-solid-countmaintained-case
z::fiber-case-solid-countrebuilt-case
formatnil"solid count after surface edit ~D"edit
let
maintained-air
z::fiber-case-air-workspacemaintained-case
rebuilt-air
z::fiber-case-air-workspacerebuilt-case
ok
equalp
z::air-workspace-run-offsetsmaintained-air
z::air-workspace-run-offsetsrebuilt-air
formatnil"air-run offsets after surface edit ~D"edit
ok
equalp
z::air-workspace-run-startsmaintained-air
z::air-workspace-run-startsrebuilt-air
formatnil"air-run starts after surface edit ~D"edit
ok
equalp
z::air-workspace-run-endsmaintained-air
z::air-workspace-run-endsrebuilt-air
formatnil"air-run ends after surface edit ~D"edit
deftestfull-height-solid-and-checkerboard-have-expected-shape
let
solid
z::make-fiber-case4:solid
checkerboard
z::make-fiber-case4:checkerboard
z::surface-masks-scalarsolid
ok
=32
z::output-face-count
z::fiber-case-outputsolid
ok
=16
z::fiber-case-total-runssolid
ok
=1
z::fiber-case-maximum-runssolid
ok
=
*16luft:+top-z+
z::fiber-case-total-runscheckerboard
ok
=luft:+top-z+
z::fiber-case-maximum-runscheckerboard
ok
loopforindexfrom3below
length
z::fiber-case-occupancysolid
byz::+fiber-words+always
not
logbitp63
aref
z::fiber-case-occupancysolid
index
"Bit 255 remains the air sentinel"