scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove some tests that didn't really make sense.

This commit is contained in:
mainzelm 2006-04-05 08:09:51 +00:00
parent 5db687eae1
commit e76661aadd
1 changed files with 6 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
scsh/test/terminal-device-control-test.scm
View File

@ -116,37 +116,10 @@
ttyin/input-flow-ctl ttyin/input-flow-ctl
ttyin/output-flow-ctl))) ttyin/output-flow-ctl)))
(add-test! 'tty-info-record-svr4&4.3+bsd-input-flags 'terminal-device-control
(lambda ()
(or (and ttyin/xon-any
ttyin/beep-on-overflow
ttyin/lowercase))))
(add-test! 'tty-info-record-posix-output-flags 'terminal-device-control (add-test! 'tty-info-record-posix-output-flags 'terminal-device-control
(lambda () (lambda ()
ttyout/enable)) ttyout/enable))
(add-test! 'tty-info-record-svr4&4.3+bsd-output-flags 'terminal-device-control
(lambda ()
(or (and ttyout/nl->crnl
ttyout/discard-eot
ttyout/expand-tabs
ttyout/cr->nl
ttyout/nl-does-cr
ttyout/no-col0-cr
ttyout/delay-w/fill-char
ttyout/fill-w/del
ttyout/uppercase)
(not (and ttyout/nl->crnl
ttyout/discard-eot
ttyout/expand-tabs
ttyout/cr->nl
ttyout/nl-does-cr
ttyout/no-col0-cr
ttyout/delay-w/fill-char
ttyout/fill-w/del
ttyout/uppercase)))))
(add-test! 'tty-info-record-delay-constants-for-output-flags 'terminal-device-control (add-test! 'tty-info-record-delay-constants-for-output-flags 'terminal-device-control
(lambda () (lambda ()
(or (and ttyout/bs-delay (or (and ttyout/bs-delay
@ -263,6 +236,8 @@
(close-output-port pty-out) ;; necessary on some systems for proper exit (close-output-port pty-out) ;; necessary on some systems for proper exit
res)))))) res))))))
;; fails on Solaris because local echo is not turned off
(add-test! 'fork-pty-session 'terminal-device-control (add-test! 'fork-pty-session 'terminal-device-control
(lambda () (lambda ()
(receive (process pty-in pty-out tty-name) (receive (process pty-in pty-out tty-name)
@ -270,12 +245,13 @@
(let ((inp (read))) (let ((inp (read)))
(write (string-append inp inp))) (write (string-append inp inp)))
(newline))) (newline)))
(let ((ti (copy-tty-info (tty-info pty-in)))) (let ((ti (copy-tty-info (tty-info pty-out))))
(set-tty-info:local-flags ti (set-tty-info:local-flags ti
(bitwise-xor ttyl/echo (tty-info:local-flags ti))) (bitwise-xor ttyl/echo (tty-info:local-flags ti)))
(set-tty-info/now pty-in ti)) (set-tty-info/now pty-out ti))
(write "hello" pty-out) (write "hello" pty-out)
(newline pty-out) (newline pty-out)
(let ((reply (read pty-in))) (let ((reply (read pty-in)))
(close-output-port pty-out) ;; necessary on some systems for proper exit (close-output-port pty-out) ;; necessary on some systems for proper exit
(string=? "hellohello" reply))))) (string=? "hellohello" reply)))))