diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-27 21:29:47 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:25 +0100 |
commit | ad99ea49de2bda94f1f6af1c14b61401c1696f9d (patch) | |
tree | 4c50a7ccbe52a066586842436908e0409994eab3 /tests/unit/vulgar/vulgar.scm | |
parent | Group tests/recurrence-simple to avoid warnings. (diff) | |
download | calp-ad99ea49de2bda94f1f6af1c14b61401c1696f9d.tar.gz calp-ad99ea49de2bda94f1f6af1c14b61401c1696f9d.tar.xz |
Tests.
Diffstat (limited to '')
-rw-r--r-- | tests/unit/vulgar/vulgar.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/unit/vulgar/vulgar.scm b/tests/unit/vulgar/vulgar.scm index 7771724f..e0021fd1 100644 --- a/tests/unit/vulgar/vulgar.scm +++ b/tests/unit/vulgar/vulgar.scm @@ -12,4 +12,15 @@ (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))))))) +(test-equal "with-vulgar returning its argument" + 'return + (with-vulgar (lambda () 'return))) + +;;; TODO these tests can test the termios flags outside and inside the +;;; vulgar block Checking that they are +;;; - different. +;;; - what's expected. +;;; - properly restored. +;; (test-group "with-vulgar tty attrs") + '((vulgar)) |