JosephFerano/flan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

The step number in dev-ptr's header is a counter, not a promise

Browse Source 
It is the registry's own event clock and moves if anything allocates ahead of
this program's two Vecs. Written as N, with a line saying a test should match
around it rather than on it — a header that reads as a spec and quietly goes
wrong is worse than no header. The fallback socket takes the name every other
dev program in this directory uses.
This commit is contained in:
Joseph Ferano 2026-09-13 09:27:26 +07:00
parent c95f11ff18
commit f795548ef7
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/programs/dev-ptr.flan
View File

@ -3,7 +3,11 @@
;;;; them apart, and this is the program that shows it: ;;;; them apart, and this is the program that shows it:
;;;; ;;;;
;;;; ("live" "(Ptr Enemy)" "<ptr (Enemy {.hp 41 .x 2})>") ;;;; ("live" "(Ptr Enemy)" "<ptr (Enemy {.hp 41 .x 2})>")
;;;; ("dead" "(Ptr Enemy)" "<ptr dead: was Enemy, freed at step 15>") ;;;; ("dead" "(Ptr Enemy)" "<ptr dead: was Enemy, freed at step N>")
;;;;
;;;; 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 lines are what `(:op "locals" :frame 1)` answers with today, and
;;;; both were read off a running session by hand. **No test drives this ;;;; both were read off a running session by hand. **No test drives this
@ -38,7 +42,7 @@
(defvar ticks i64) (defvar ticks i64)
(defn main [] i32 (defn main [] i32
(agent/start "/tmp/flan-ptr-fallback.sock") (agent/start "/tmp/flan-dev-ptr-fallback.sock")
(print (outer)) (println "") (print (outer)) (println "")
(dotimes [i 4000] (dotimes [i 4000]
(agent/wait 5) (agent/wait 5)