|
|
|
(test-begin "mouth")
|
|
|
|
(spit "/tmp/mouthtestfile" "Hello world")
|
|
|
|
(test-assert (string=? (slurp "/tmp/mouthtestfile") "Hello world"))
|
|
|
|
(spit "/tmp/mouthtestfile" ", and append" #t)
|
|
|
|
(test-assert (string=? (slurp "/tmp/mouthtestfile") "Hello world, and append"))
|
|
|
|
(test-end "mouth")
|
|
|
|
|