diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:11:38 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:11:38 +0100 |
commit | b6d12e309b207c25de7873f658aa0f88ea77080c (patch) | |
tree | ea4a8515c4c5b3e6798f6b3b69e24ad76f53b883 /tests/termios.scm | |
parent | Fix keyword argument. (diff) | |
download | calp-b6d12e309b207c25de7873f658aa0f88ea77080c.tar.gz calp-b6d12e309b207c25de7873f658aa0f88ea77080c.tar.xz |
Reworked tests.
Diffstat (limited to 'tests/termios.scm')
-rwxr-xr-x | tests/termios.scm | 19 |
1 files changed, 10 insertions, 9 deletions
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)))) |