From 712654d4c023a2ab13190c6905d313e0ba897965 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 2 Oct 2023 19:26:40 +0200 Subject: Rewrite test running system. --- tests/test/termios.scm | 48 ------------------------------------------------ 1 file changed, 48 deletions(-) delete mode 100644 tests/test/termios.scm (limited to 'tests/test/termios.scm') diff --git a/tests/test/termios.scm b/tests/test/termios.scm deleted file mode 100644 index 7f607cc4..00000000 --- a/tests/test/termios.scm +++ /dev/null @@ -1,48 +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: - -(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)) - - -- cgit v1.2.3