Add new tests.

1 files changed, 0 insertions, 37 deletions

diff --git a/tests/termios.scm b/tests/termios.scm
deleted file mode 100644
index e54ddc9c..00000000
--- a/tests/termios.scm
+++ /dev/null
@@ -1,37 +0,0 @@
-;;; 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:
-
-(((hnh util) set!)
- ((vulgar termios)
-  make-termios copy-termios
-  lflag
-  tcgetattr! tcsetattr!
-  ECHO ICANON)
- ((srfi srfi-60)
-  (bitwise-ior . ||)
-  (bitwise-not . ~)
-  (bitwise-and . &))
- ((guile) open-input-file))
-
-(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))