guile-termenv/tests/test-screen.scm

14 lines
271 B
Scheme

(define-module (tests test-screen)
#:use-module (termenv screen)
#:use-module (tests utils)
#:use-module (srfi srfi-64)
#:use-module (rnrs io ports))
(test-begin "test-screen")
(verify-output
"\x1b[0m"
(reset (current-output-port)))
(test-end "test-screen")