diff options
-rwxr-xr-x | tests/termios.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/tests/termios.scm b/tests/termios.scm index 22d8e242..f07d20a0 100755 --- a/tests/termios.scm +++ b/tests/termios.scm @@ -16,21 +16,24 @@ ((srfi srfi-60) (bitwise-ior . ||) (bitwise-not . ~) - (bitwise-and . &))) + (bitwise-and . &)) + ((guile) open-input-file)) + +(define tty (open-input-file "/dev/tty")) (define-syntax-rule (&= lvalue val) (mod! lvalue (lambda (v) (& v val)))) (define t (make-termios)) -(test-equal 0 (tcgetattr! t)) +(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)) +(test-equal 0 (tcsetattr! t tty)) (test-equal (& ifl (~ (|| ECHO ICANON))) (lflag t)) -(test-equal 0 (tcsetattr! copy)) +(test-equal 0 (tcsetattr! copy tty)) |