luv

Workshop wiki

capture-specification-tests.lisp

hal/capture-specification-tests.lisp

system luv/test · 2 definitions · on GitHub

in-package#:luv.tests
deftestcapture-specifications-have-stable-wiki-paths-and-live-redefinition
let*
name"capture-protocol-test"
first
make-instance'luv:capture-specification:namename:figure-id"ABC12G":kind:image:description"first":extension"png":renderer#'identity
second
make-instance'luv:capture-specification:namename:figure-id"ABC12G":kind:image:description"second":extension"webp":layout:portrait:renderer#'identity
unwind-protect
progn
luv:register-capture-specificationfirst
ok
string="ABC12G-capture-protocol-test.png"
file-namestring
luv:capture-output-pathnamefirst#P"build/"
luv:register-capture-specificationsecond
ok
eqsecond
luv:find-capture-specificationname
ok
eq:portrait
luv:capture-specification-layoutsecond
ok
=1
countname
luv:capture-specifications
:key#'luv:capture-specification-name:test#'string=
remhashnameluv::*capture-specifications*
setfluv::*capture-specification-order*
removenameluv::*capture-specification-order*:test#'string=
deftestcapture-web-derivative-is-smaller-and-keeps-the-original
let*
directory
uiop:ensure-directory-pathname
merge-pathnames
formatnil"luv-capture-web-test-~36R/"
randommost-positive-fixnum
uiop:temporary-directory
specification
make-instance'luv:capture-specification:name"web-derivative-test":figure-id"WEB12G":kind:image:description"responsive image test":extension"png":renderer#'identity
original
luv:capture-output-pathnamespecificationdirectory
responsive
luv::capture-responsive-image-pathnameoriginal
unwind-protect
progn
ensure-directories-existoriginal
luv:write-rgba-pngoriginal
make-array
*8004004
:element-type'
unsigned-byte8
:initial-element127
800400:rgba8-unorm
luv::prepare-capture-web-mediaspecificationoriginal
ok
probe-fileoriginal
ok
probe-fileresponsive
multiple-value-bind
widthheight
luv::capture-media-dimensionsresponsive
ok
=768width
ok
=384height
let*
entry
luv::capture-manifest-entryspecificationdirectory
variants
getfentry:variants
variant
find768variants:key
lambda
item
getfitem:width
ok
string="WEB12G-web-derivative-test.png"
getfentry:file
ok
eq:landscape
getfentry:layout
ok
equal'
480768
mapcar
lambda
item
getfitem:width
variants
ok
string="WEB12G-web-derivative-test-768w.webp"
getfvariant:file
ok
=768
getfvariant:width
uiop:delete-directory-treedirectory:validatet:if-does-not-exist:ignore