read-unit-tests ( -- str )

Vocabulary

tools.scaffold

Inputs

None

Outputs

str

a string

Word description

Reads code snippets by the means of read-unit-test until two empty lines are input. Returns them separated with two newlines.

Definition

USING: kernel sequences ;

IN: tools.scaffold

: read-unit-tests ( -- str )
    [ read-unit-test dup ] [ ] produce nip "\n\n" join ;