: write-and-read ( -- String )
    "Hello, file!" "/tmp/seqlings-write.txt" file.spit drop
    "/tmp/seqlings-write.txt" file.slurp
    [ string.chomp ]
    [ drop "" ]
    if
;

: test-write ( -- )
    write-and-read
    "Hello, file!" string.equal? test.assert
;
