13 lines
271 B
Scheme
13 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")
|