20 lines
377 B
Scheme
20 lines
377 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(retropikzel mouth)
|
|
(srfi 64))
|
|
|
|
|
|
(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")
|
|
|
|
|