Joseph Ferano
9a820d86cd
The script is in tools/ rather than thrown away, because two lanes are
writing Flan in the old spelling right now and their files need the same
pass at merge.
It works on forms, not on text: a keyword becomes a dot only where it sits
in a field-label position inside a brace, so an enum member in value
position, a map key inside an EDN string and a type-position {K V} are all
left alone. :keys keeps its colon -- it names no field.
16 lines
981 B
Plaintext
16 lines
981 B
Plaintext
;;;; The agent's condition_name[128], which had no coverage at all: it is on
|
|
;;;; the socket path, so nothing in the sanitizer corpus can reach it.
|
|
;;;;
|
|
;;;; The condition class here is 200 characters, so the copy into that buffer
|
|
;;;; has to clamp, and [status] answers with the 127 that fit. The name is ugly
|
|
;;;; on purpose — its length is the whole of the test.
|
|
(import agent "vendor:agent")
|
|
|
|
(defstruct MissingYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY [id i32])
|
|
|
|
(defn main [] i32
|
|
;; The path is overridden by FLAN_AGENT_SOCKET; a program has to name one.
|
|
(agent/start "/tmp/flan-longname.sock")
|
|
(error (MissingYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY {.id 1}))
|
|
0)
|