hal/tracy-capture-tests.lisp
defpackage#:luv.tracy.capture.tests
:use#:cl#:rove
in-package#:luv.tracy.capture.tests
defclassscripted-tracy-process
role:initarg:role:readerscripted-process-role
pathname:initarg:pathname:initformnil:readerscripted-process-pathname
lock:initform
sb-thread:make-mutex:name"scripted Tracy process"
:readerscripted-process-lockcompletion:initform
sb-thread:make-semaphore:name"scripted Tracy completion"
:readerscripted-process-completionalive-p:initformt:accessorscripted-process-alive-p
exit-code:initarg:exit-code:initform0:accessorscripted-process-exit-code
wait-error:initarg:wait-error:initformnil:readerscripted-process-wait-error
interrupts:initform0:accessorscripted-process-interrupts
terminations:initform0:accessorscripted-process-terminations
closes:initform0:accessorscripted-process-closes
defclassscripted-tracy-runtime
lock:initform
sb-thread:make-mutex:name"scripted Tracy runtime"
:readerscripted-runtime-locknow:initarg:now:initform
encode-universal-time5432120260
:accessorscripted-runtime-nowconnected-p:initarg:connected-p:initformnil:accessorscripted-runtime-connected-p
prepare-error:initarg:prepare-error:initformnil:accessorscripted-runtime-prepare-error
prepare-count:initform0:accessorscripted-runtime-prepare-count
launch-error-role:initarg:launch-error-role:initformnil:accessorscripted-runtime-launch-error-role
capture-launch-gate:initarg:capture-launch-gate:initformnil:accessorscripted-runtime-capture-launch-gate
interrupt-gate:initarg:interrupt-gate:initformnil:accessorscripted-runtime-interrupt-gate
interrupt-failures:initarg:interrupt-failures:initform0:accessorscripted-runtime-interrupt-failures
auxiliary-launch-gate:initarg:auxiliary-launch-gate:initformnil:accessorscripted-runtime-auxiliary-launch-gate
capture-wait-error:initarg:capture-wait-error:initformnil:accessorscripted-runtime-capture-wait-error
capture-exit-code:initarg:capture-exit-code:initform0:accessorscripted-runtime-capture-exit-code
write-output-p:initarg:write-output-p:initformt:accessorscripted-runtime-write-output-p
existing-pathnames:initform
make-hash-table:test#'equal
:readerscripted-runtime-existing-pathnameslaunches:initformnil:accessorscripted-runtime-launches
processes:initformnil:accessorscripted-runtime-processes
defmethodluv.tracy.capture:tracy-clock-now
runtimescripted-tracy-runtime
scripted-runtime-nowruntime
defmethodluv.tracy.capture:tracy-path-exists-p
runtimescripted-tracy-runtime
pathnamesb-thread:with-mutex
scripted-runtime-lockruntime
not
null
gethash
namestringpathname
scripted-runtime-existing-pathnamesruntime
defmethodluv.tracy.capture:prepare-tracy-client
runtimescripted-tracy-runtime
application-namedeclare
ignoreapplication-name
sb-thread:with-mutex
scripted-runtime-lockruntime
incf
scripted-runtime-prepare-countruntime
when
tscripted-runtime-prepare-errorruntime
error
scripted-runtime-prepare-errorruntime
defmethodluv.tracy.capture:tracy-viewer-connected-p
runtimescripted-tracy-runtime
scripted-runtime-connected-pruntime
defmethodluv.tracy.capture:resolve-tracy-program
runtimescripted-tracy-runtime
roledeclare
ignoreruntime
ecaserole
:capture#P"/scripted/tracy-capture"
:profiler#P"/scripted/tracy-profiler"
:reveal#P"/scripted/reveal"
defmethodluv.tracy.capture:launch-tracy-process
let
gate
if
eqrole:capture
scripted-runtime-capture-launch-gateruntime
scripted-runtime-auxiliary-launch-gateruntime
whengate
unless
sb-thread:wait-on-semaphoregate:timeout1.0
error"Scripted Tracy launch gate timed out."
when
eqrole
scripted-runtime-launch-error-roleruntime
error"Scripted Tracy ~(~A~) launch failed."role
let
process
make-instance'scripted-tracy-process:rolerole:pathname:exit-code
if
:wait-erroreqrole:capture
scripted-runtime-capture-exit-coderuntime
0sb-thread:with-mutex
scripted-runtime-lockruntime
push
listroleprogram
copy-listarguments
scripted-runtime-launchesruntime
pushprocess
scripted-runtime-processesruntime
unless
processeqrole:capture
setf
scripted-process-alive-pprocess
nilsb-thread:signal-semaphore
scripted-process-completionprocess
defmethodluv.tracy.capture:tracy-process-alive-p
runtimescripted-tracy-runtime
processscripted-tracy-process
declare
ignoreruntime
sb-thread:with-mutex
scripted-process-lockprocess
scripted-process-alive-pprocess
defmethodluv.tracy.capture:interrupt-tracy-process
runtimescripted-tracy-runtime
processscripted-tracy-process
let
gate
scripted-runtime-interrupt-gateruntime
whengate
unless
sb-thread:wait-on-semaphoregate:timeout1.0
error"Scripted Tracy interrupt gate timed out."
sb-thread:with-mutex
tscripted-process-lockprocess
incf
scripted-process-interruptsprocess
when
plusp
scripted-runtime-interrupt-failuresruntime
decf
scripted-runtime-interrupt-failuresruntime
error"Scripted Tracy interrupt failed."
when
scripted-process-alive-pprocess
setf
scripted-process-alive-pprocess
nilwhen
sb-thread:with-mutex
scripted-runtime-lockruntime
setf
gethash
tnamestring
scripted-process-pathnameprocess
scripted-runtime-existing-pathnamesruntime
sb-thread:signal-semaphore
scripted-process-completionprocess
defmethodluv.tracy.capture:terminate-tracy-process
runtimescripted-tracy-runtime
processscripted-tracy-process
declare
ignoreruntime
sb-thread:with-mutex
tscripted-process-lockprocess
incf
scripted-process-terminationsprocess
setf
scripted-process-alive-pprocess
nilsb-thread:signal-semaphore
scripted-process-completionprocess
defmethodluv.tracy.capture:wait-tracy-process
runtimescripted-tracy-runtime
processscripted-tracy-process
declare
ignoreruntime
when
scripted-process-wait-errorprocess
error
scripted-process-wait-errorprocess
unless
processsb-thread:wait-on-semaphore
scripted-process-completionprocess
:timeout1.0error"Scripted Tracy process did not finish."
defmethodluv.tracy.capture:tracy-process-exit-code
runtimescripted-tracy-runtime
processscripted-tracy-process
declare
ignoreruntime
scripted-process-exit-codeprocess
defmethodluv.tracy.capture:close-tracy-process
runtimescripted-tracy-runtime
processscripted-tracy-process
declare
ignoreruntime
sb-thread:with-mutex
tscripted-process-lockprocess
incf
scripted-process-closesprocess
defunmake-scripted-controller
runtime&key
graceful-stop-seconds5.0d0
luv.tracy.capture:make-tracy-capture-controller:application-name"Test Game":directory
uiop:temporary-directory
:runtimeruntime:graceful-stop-secondsgraceful-stop-seconds:open-on-completion-pnildefunscripted-capture-process
runtime
sb-thread:with-mutex
scripted-runtime-lockruntime
find:capture
scripted-runtime-processesruntime
:key#'scripted-process-roledefunscripted-launches
runtime
sb-thread:with-mutex
scripted-runtime-lockruntime
reverse
copy-tree
scripted-runtime-launchesruntime
deftesttracy-capture-launch-is-off-caller-and-uses-the-exact-program
let*
gate
sb-thread:make-semaphore:name"Tracy launch gate"
runtime
controller
make-scripted-controllerruntime
started
get-internal-real-time
pathname
luv.tracy.capture:start-tracy-capturecontroller
ok"START does not wait for the injected launcher"
ok
eq:starting
luv.tracy.capture:tracy-capture-statecontroller
ok
search"test-game-20260102-030405Z"
namestringpathname
sb-thread:signal-semaphoregate
ok
wait-for-tracy-test
lambda
eq:recording
luv.tracy.capture:tracy-capture-statecontroller
destructuring-bind
roleprogramarguments
first
scripted-launchesruntime
ok
eq:capturerole
ok
equal#P"/scripted/tracy-capture"program
ok
equal
list"-o"
argumentsnamestringpathname
"-a""127.0.0.1"luv.tracy.capture:stop-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:idle
luv.tracy.capture:tracy-capture-statecontroller
deftesttracy-path-reservation-skips-an-existing-capture-at-the-same-clock
let*
runtime
make-instance'scripted-tracy-runtime
controller
make-scripted-controllerruntime
first
luv.tracy.capture:start-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:recording
luv.tracy.capture:tracy-capture-statecontroller
luv.tracy.capture:stop-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:idle
luv.tracy.capture:tracy-capture-statecontroller
sb-thread:with-mutex
luv.tracy.capture::tracy-capture-lockcontroller
setf
luv.tracy.capture::tracy-capture-serialcontroller
0let*
started
get-internal-real-time
ok
ok
ok
wait-for-tracy-test
lambda
eq:recording
luv.tracy.capture:tracy-capture-statecontroller
luv.tracy.capture:stop-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:idle
luv.tracy.capture:tracy-capture-statecontroller
deftestconcurrent-tracy-stops-emit-one-interrupt-and-one-close
let*
runtime
make-instance'scripted-tracy-runtime
controller
make-scripted-controllerruntime
pathname
luv.tracy.capture:start-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:recording
luv.tracy.capture:tracy-capture-statecontroller
let
threads
dolist
threadthreads
sb-thread:join-threadthread
ok
wait-for-tracy-test
lambda
eq:idle
luv.tracy.capture:tracy-capture-statecontroller
let
process
scripted-capture-processruntime
ok
ok
ok
ok
null
deftestcapture-owner-retries-transient-interrupt-failures
let*
runtime
controller
make-scripted-controllerruntime
luv.tracy.capture:start-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:recording
luv.tracy.capture:tracy-capture-statecontroller
luv.tracy.capture:stop-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:idle
luv.tracy.capture:tracy-capture-statecontroller
let
process
scripted-capture-processruntime
ok
ok
ok
ok
equal'
:stop:stop
mapcar#'luv.tracy.capture:tracy-capture-diagnostic-operation
deftestpersistent-interrupt-failure-cannot-orphan-a-released-capture
let*
runtime
controller
make-scripted-controllerruntime
luv.tracy.capture:start-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:recording
luv.tracy.capture:tracy-capture-statecontroller
Model an application adapter dropping its last reference immediately. The generation-owning closure still retries and finally terminates its exact child before releasing the Lisp process handle.
ok
eq:released
luv.tracy.capture:tracy-capture-statecontroller
ok
wait-for-tracy-test
lambda
let
process
scripted-capture-processruntime
let
process
scripted-capture-processruntime
ok
ng
scripted-process-alive-pprocess
ok
eq:released
luv.tracy.capture:tracy-capture-statecontroller
ok
member:terminate
mapcar#'luv.tracy.capture:tracy-capture-diagnostic-operation
deftesttracy-stop-does-not-wait-for-interrupt-or-finalization
let*
gate
sb-thread:make-semaphore:name"Tracy interrupt gate"
runtime
controller
make-scripted-controllerruntime
luv.tracy.capture:start-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:recording
luv.tracy.capture:tracy-capture-statecontroller
let
started
get-internal-real-time
luv.tracy.capture:stop-tracy-capturecontroller
ok
eq:stopping
luv.tracy.capture:tracy-capture-statecontroller
sb-thread:signal-semaphoregate
ok
wait-for-tracy-test
lambda
eq:idle
luv.tracy.capture:tracy-capture-statecontroller
deftestfailed-tracy-launch-is-contained-and-controller-recovers
let*
runtime
controller
make-scripted-controllerruntime
luv.tracy.capture:start-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:idle
luv.tracy.capture:tracy-capture-statecontroller
let
diagnostic
ok
eq:start
luv.tracy.capture:tracy-capture-diagnostic-operationdiagnostic
ok
typep
luv.tracy.capture:tracy-capture-diagnostic-conditiondiagnostic
'errorsetf
scripted-runtime-launch-error-roleruntime
nilluv.tracy.capture:start-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:recording
luv.tracy.capture:tracy-capture-statecontroller
luv.tracy.capture:stop-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:idle
luv.tracy.capture:tracy-capture-statecontroller
deftestfailed-tracy-finalizer-is-contained-and-closes-the-handle
let*
runtime
make-instance'scripted-tracy-runtime:capture-wait-error
make-condition'simple-error:format-control"scripted wait failure"
controller
make-scripted-controllerruntime
luv.tracy.capture:start-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:recording
luv.tracy.capture:tracy-capture-statecontroller
The owner observes exit before it performs the injected failing reap. Request a normal stop so this test exercises that finalization edge rather than leaving the scripted capture intentionally alive.
luv.tracy.capture:stop-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:idle
luv.tracy.capture:tracy-capture-statecontroller
let
process
scripted-capture-processruntime
diagnostic
ok
ok
eq:finalize
luv.tracy.capture:tracy-capture-diagnostic-operationdiagnostic
deftesttracy-profiler-open-is-off-caller-and-failure-is-diagnostic
let*
runtime
make-instance'scripted-tracy-runtime
controller
make-scripted-controllerruntime
pathname
luv.tracy.capture:start-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:recording
luv.tracy.capture:tracy-capture-statecontroller
luv.tracy.capture:stop-tracy-capturecontroller
ok
wait-for-tracy-test
lambda
eq:idle
luv.tracy.capture:tracy-capture-statecontroller
let
gate
sb-thread:make-semaphore:name"Tracy profiler gate"
setf
scripted-runtime-auxiliary-launch-gateruntime
gatescripted-runtime-launch-error-roleruntime
:profilerlet
started
get-internal-real-time
ok
sb-thread:signal-semaphoregate
ok
wait-for-tracy-test
lambda
let
diagnostic
deftesttracy-controller-release-is-immediate-terminal-and-idempotent
let*
gate
sb-thread:make-semaphore:name"Tracy release launch gate"
runtime
controller
make-scripted-controllerruntime
luv.tracy.capture:start-tracy-capturecontroller
let
started
get-internal-real-time
ok
eq:released
luv.tracy.capture:tracy-capture-statecontroller
sb-thread:signal-semaphoregate
ok
wait-for-tracy-test
lambda
let
process
scripted-capture-processruntime
ok
eq:released
luv.tracy.capture:tracy-capture-statecontroller
defclass tracy-capture-runtime
The platform edge of a TRACY-CAPTURE-CONTROLLER. Applications normally use NATIVE-TRACY-CAPTURE-RUNTIME. Tests and unusual hosts can specialize this protocol without replacing the controller's state machine.
define-arithmetic-operator not
Logical negation of one test or raw truth value.
defgeneric prepare-tracy-client
(runtime application-name)Ensure the in-process Tracy client is running for APPLICATION-NAME.
defgeneric resolve-tracy-program
(runtime role)Return the exact executable pathname for ROLE. ROLE is one of :CAPTURE, :PROFILER, or :REVEAL. Implementations must not silently fall back to a different tool version through PATH lookup.
defgeneric launch-tracy-process
(runtime role program arguments)Launch PROGRAM for ROLE with exact string ARGUMENTS and return a handle.
define-arithmetic-operator and
Logical conjunction of tests and raw truth values.
defgeneric interrupt-tracy-process
(runtime process)Request PROCESS's graceful Tracy capture stop without waiting for it.
defgeneric terminate-tracy-process
(runtime process)Forcibly terminate PROCESS after graceful capture shutdown failed. This is the terminal orphan-prevention edge. A native implementation may discard the unfinished trace, but must make eventual process exit more likely than another graceful request would.
defgeneric tracy-process-exit-code
(runtime process)Return PROCESS's exit code after WAIT-TRACY-PROCESS.
defun make-scripted-controller
(runtime &key (graceful-stop-seconds 5.0d0))defun make-tracy-capture-controller
(&key application-name directory
(runtime (make-instance 'native-tracy-capture-runtime))
(open-on-completion-p t)
(graceful-stop-seconds 5.0d0))defun wait-for-tracy-test
(predicate &key (timeout 1.0))define-arithmetic-operator =
Test whether two compatible scalars are equal.
define-arithmetic-operator +
Addition over compatible quantities.
define-arithmetic-operator *
Multiplication and scalar scaling.
define-arithmetic-operator >=
Test whether one compatible scalar is at least another.
defun scripted-capture-process
(runtime)defun scripted-launches
(runtime)defun start-tracy-capture
(controller)define-arithmetic-operator /
Division of two represented quantities.
define-arithmetic-operator -
Subtraction or unary negation.
define-arithmetic-operator <
Test whether one compatible scalar is less than another.
defun tracy-capture-state
(controller)defun stop-tracy-capture
(controller)Request one graceful stop and return immediately. Concurrent and repeated calls publish only one interrupt for a generation.
defun tracy-capture-last-completed-pathname
(controller)defun tracy-capture-diagnostics
(controller)defun release-tracy-capture-controller
(controller)Detach CONTROLLER immediately and asynchronously stop its owned capture. This operation is terminal and idempotent. It never waits for capture finalization or for a profiler window.
defun tracy-capture-last-diagnostic
(controller)defun open-tracy-capture
(controller &optional pathname)
Revisit serial zero at the identical injected clock. The first exact candidate now exists, so reservation must advance rather than spin or overwrite it.