guile-termenv/tests/test-screen.scm

(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")
begin adding tests, one of which already failed. fix it! 2024-02-10 01:28:55 +00:00			`(define-module (tests test-screen)`
			`#:use-module (termenv screen)`
Tidy up tests some more! 2024-02-10 01:37:00 +00:00			`#:use-module (tests utils)`
begin adding tests, one of which already failed. fix it! 2024-02-10 01:28:55 +00:00			`#:use-module (srfi srfi-64)`
Renamed "reverse" to "invert" 2024-02-11 19:06:38 +00:00			`#:use-module (rnrs io ports))`
begin adding tests, one of which already failed. fix it! 2024-02-10 01:28:55 +00:00
			`(test-begin "test-screen")`

Tidy up tests some more! 2024-02-10 01:37:00 +00:00			`(verify-output`
			`"\x1b[0m"`
			`(reset (current-output-port)))`
begin adding tests, one of which already failed. fix it! 2024-02-10 01:28:55 +00:00
			`(test-end "test-screen")`