Add new tests.

1 files changed, 48 insertions, 0 deletions

diff --git a/tests/test/termios.scm b/tests/test/termios.scm
new file mode 100644
index 00000000..7f607cc4
--- /dev/null
+++ b/tests/test/termios.scm
@@ -0,0 +1,48 @@
+;;; Commentary:
+;; Tests that my termios function works, at least somewhat.
+;; Note that this actually modifies the terminal it's run on, and might fail
+;; if the terminal doesn't support the wanted modes. See termios(3).
+;; It might also leave the terminal in a broken state if exited prematurely.
+;;; Code:
+
+(define-module (test termios)
+  :use-module (srfi srfi-64)
+  :use-module (srfi srfi-88)
+  :use-module ((hnh util) :select (set!))
+  :use-module ((vulgar termios)
+               :select (make-termios
+                        copy-termios
+                        lflag
+                        tcgetattr!
+                        tcsetattr!
+                        ECHO
+                        ICANON))
+  :use-module ((srfi srfi-60)
+               :select ((bitwise-ior . ||)
+                        (bitwise-not . ~)
+                        (bitwise-and . &))))
+
+(define tty (open-input-file "/dev/tty"))
+
+(define-syntax-rule (&= lvalue val)
+  (set! lvalue = ((lambda (v) (& v val)))))
+
+(define t (make-termios))
+
+(test-equal 0 (tcgetattr! t tty))
+
+(define ifl (lflag t))
+
+(define copy (copy-termios t))
+
+#!curly-infix {(lflag t) &= (~ (|| ECHO ICANON))}
+
+(test-equal 0 (tcsetattr! t tty))
+
+(test-equal
+  (& ifl (~ (|| ECHO ICANON)))
+  (lflag t))
+
+(test-equal 0 (tcsetattr! copy tty))
+
+