Expose the two writer-gate observations in the regression receipt

Changed

 test/test-writer-serialization.sgl | 2 ++
 1 file changed, 2 insertions(+)

Diff

@@ -56,6 +56,8 @@

(channel-send release #t)

(assert-true (jsonrpc-response? (channel-receive done)))

(assert-true (jsonrpc-response? (channel-receive done)))))

+59

(display (format "WRITER gate first-visible=~a second-waited=~a\n"

+60

first-visible? second-waited?))

(assert-true first-visible?)

(assert-true second-waited?)

(let ((content (read-file-string file)))