blob: 7771724f6d06237c5c1c69a378779351823cf5e6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(define-module (test vulgar)
:use-module (srfi srfi-64)
:use-module (srfi srfi-88)
:use-module (vulgar))
(test-equal "CLS"
"\x1b[H\x1b[J"
(with-output-to-string (lambda () (cls))))
;;; Extra with-output-to-string so escape sequences are escaped in error diff.
(test-equal "set-cursor-position"
(with-output-to-string (lambda () (write "\x1b[21;11H")))
(with-output-to-string (lambda () (write (with-output-to-string (lambda () (set-cursor-pos 10 20)))))))
'((vulgar))
|