diff --git a/test/programs/dev-ptr.flan b/test/programs/dev-ptr.flan index c88e768..b316a46 100644 --- a/test/programs/dev-ptr.flan +++ b/test/programs/dev-ptr.flan @@ -3,7 +3,11 @@ ;;;; them apart, and this is the program that shows it: ;;;; ;;;; ("live" "(Ptr Enemy)" "") -;;;; ("dead" "(Ptr Enemy)" "") +;;;; ("dead" "(Ptr Enemy)" "") +;;;; +;;;; N is the registry's own event counter and is no part of the claim: it +;;;; moves if anything allocates or frees ahead of this program's two Vecs. +;;;; A test that asserts these lines should match around it, not on it. ;;;; ;;;; Both lines are what `(:op "locals" :frame 1)` answers with today, and ;;;; both were read off a running session by hand. **No test drives this @@ -38,7 +42,7 @@ (defvar ticks i64) (defn main [] i32 - (agent/start "/tmp/flan-ptr-fallback.sock") + (agent/start "/tmp/flan-dev-ptr-fallback.sock") (print (outer)) (println "") (dotimes [i 4000] (agent/wait 5)