From b6d12e309b207c25de7873f658aa0f88ea77080c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 30 Dec 2019 02:11:38 +0100
Subject: Reworked tests.

---
 tests/termios.scm | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

(limited to 'tests/termios.scm')

diff --git a/tests/termios.scm b/tests/termios.scm
index 3d5ef9d1..22d8e242 100755
--- a/tests/termios.scm
+++ b/tests/termios.scm
@@ -7,15 +7,16 @@
 
 ;;; Code:
 
-(use-modules (terminal termios)
-             ((util) :select (mod!))
-             ((srfi srfi-60)
-              :renamer (lambda (symb)
-                         (case symb
-                           ((bitwise-ior) '||)
-                           ((bitwise-not) '~)
-                           ((bitwise-and) '&)
-                           (else symb)))))
+(((util) mod!)
+ ((vulgar termios)
+  make-termios copy-termios
+  lflag
+  tcgetattr! tcsetattr!
+  ECHO ICANON)
+ ((srfi srfi-60)
+  (bitwise-ior . ||)
+  (bitwise-not . ~)
+  (bitwise-and . &)))
 
 (define-syntax-rule (&= lvalue val)
   (mod! lvalue (lambda (v) (& v val))))
-- 
cgit v1.2.3