first commit
This commit is contained in:
chetz
parent
9da5680d55
commit
da3caf4f5b
|
|
@ -0,0 +1,268 @@
|
|||
;;; Test for the function in section 3.12 of the scsh-manual "Terminal device control"
|
||||
;;; Author: Christoph Hetz
|
||||
|
||||
;; for testing: (certainly the path will be an other on other systems...)
|
||||
|
||||
;; ,open define-record-types handle
|
||||
;; ,config ,load C:/cygwin/home/mephisto/cvs-scsh/scsh/scsh/test/test-packages.scm
|
||||
;; ,load C:/cygwin/home/mephisto/cvs-scsh/scsh/scsh/test/test-base.scm
|
||||
;; load this file
|
||||
;; (test-all)
|
||||
|
||||
(add-test! 'tty-info-record-test 'terminal-devive-control
|
||||
(lambda ()
|
||||
(let ((ti (tty-info)))
|
||||
(and (string? (tty-info:control-chars ti))
|
||||
(or (integer? (tty-info:input-flags ti))
|
||||
(not (tty-info:input-flags ti)))
|
||||
(or (integer? (tty-info:output-flags ti))
|
||||
(not (tty-info:output-flags ti)))
|
||||
(or (integer? (tty-info:control-flags ti))
|
||||
(not (tty-info:control-flags ti)))
|
||||
(or (integer? (tty-info:local-flags ti))
|
||||
(not (tty-info:local-flags ti)))
|
||||
(or (integer? (tty-info:input-speed ti))
|
||||
(not (tty-info:input-speed ti)))
|
||||
(or (integer? (tty-info:output-speed ti))
|
||||
(not (tty-info:output-speed ti)))
|
||||
(or (integer? (tty-info:min ti))
|
||||
(not (tty-info:min ti)))
|
||||
(or (integer? (tty-info:time ti))
|
||||
(not(tty-info:time ti)))))))
|
||||
|
||||
(add-test! 'make-tty-info-test 'terminal-device-control
|
||||
(lambda ()
|
||||
(let* ((in-fl 770)
|
||||
(out-fl 3)
|
||||
(c-fl 19200)
|
||||
(loc-fl 1482)
|
||||
(in-spd 1200)
|
||||
(out-spd 1200)
|
||||
(min 1)
|
||||
(time 0)
|
||||
(ti (make-tty-info in-fl
|
||||
out-fl
|
||||
c-fl
|
||||
loc-fl
|
||||
in-spd
|
||||
out-spd
|
||||
min
|
||||
time)))
|
||||
(and (= in-fl
|
||||
(tty-info:input-flags ti))
|
||||
(= out-fl
|
||||
(tty-info:output-flags ti))
|
||||
(= c-fl
|
||||
(tty-info:control-flags ti))
|
||||
(= in-spd
|
||||
(tty-info:input-speed ti))
|
||||
(= out-spd
|
||||
(tty-info:output-speed ti))
|
||||
(= min
|
||||
(tty-info:min ti))
|
||||
(= time
|
||||
(tty-info:time ti))))))
|
||||
|
||||
(add-test! 'copy-tty-test 'terminal-device-control
|
||||
(lambda ()
|
||||
(let* ((ti (tty-info))
|
||||
(ti-c (copy-tty-info ti)))
|
||||
(and (tty-info? ti)
|
||||
(tty-info? ti-c)
|
||||
(equal? (tty-info:control-chars ti)
|
||||
(tty-info:control-chars ti-c))
|
||||
(= (tty-info:input-flags ti)
|
||||
(tty-info:input-flags ti-c))
|
||||
(= (tty-info:output-flags ti)
|
||||
(tty-info:output-flags ti-c))
|
||||
(= (tty-info:control-flags ti)
|
||||
(tty-info:control-flags ti-c))
|
||||
(= (tty-info:local-flags ti)
|
||||
(tty-info:local-flags ti-c))
|
||||
(equal? (tty-info:input-speed ti)
|
||||
(tty-info:input-speed ti-c))
|
||||
(equal? (tty-info:output-speed ti)
|
||||
(tty-info:output-speed ti-c))
|
||||
(= (tty-info:min ti)
|
||||
(tty-info:min ti-c))
|
||||
(= (tty-info:time ti)
|
||||
(tty-info:time ti-c))))))
|
||||
|
||||
(add-test! 'tty-info-record-posix-indicies-test 'terminal-device-control
|
||||
(lambda ()
|
||||
(and ttychar/delete-char
|
||||
ttychar/delete-line
|
||||
ttychar/eof
|
||||
ttychar/eol
|
||||
ttychar/interrupt
|
||||
ttychar/quit
|
||||
ttychar/suspend
|
||||
ttychar/start
|
||||
ttychar/stop)))
|
||||
|
||||
(add-test! 'tty-info-record-svr4&4.3+bsd-indicies-test 'terminal-device-control
|
||||
(lambda ()
|
||||
(or (and ttychar/delayed-suspend
|
||||
ttychar/delete-word
|
||||
ttychar/discard
|
||||
ttychar/eol2
|
||||
ttychar/literal-next
|
||||
ttychar/reprint
|
||||
ttychar/status)
|
||||
(not (and ttychar/delayed-suspend
|
||||
ttychar/delete-word
|
||||
ttychar/discard
|
||||
ttychar/eol2
|
||||
ttychar/literal-next
|
||||
ttychar/reprint
|
||||
ttychar/status)))))
|
||||
|
||||
(add-test! 'tty-info-record-posix-input-flags 'terminal-device-control
|
||||
(lambda ()
|
||||
(and ttyin/check-parity
|
||||
ttyin/ignore-bad-parity-chars
|
||||
ttyin/mark-parity-errors
|
||||
ttyin/ignore-break
|
||||
ttyin/interrupt-on-break
|
||||
ttyin/7bits
|
||||
ttyin/cr->nl
|
||||
ttyin/ignore-cr
|
||||
ttyin/nl->cr
|
||||
ttyin/input-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
|
||||
(lambda ()
|
||||
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
|
||||
(lambda ()
|
||||
(or (and ttyout/bs-delay
|
||||
ttyout/bs-delay0
|
||||
ttyout/bs-delay1
|
||||
ttyout/cr-delay
|
||||
ttyout/cr-delay0
|
||||
ttyout/cr-delay1
|
||||
ttyout/cr-delay2
|
||||
ttyout/cr-delay3
|
||||
ttyout/ff-delay
|
||||
ttyout/ff-delay0
|
||||
ttyout/ff-delay1
|
||||
ttyout/tab-delay
|
||||
ttyout/tab-delay0
|
||||
ttyout/tab-delay1
|
||||
ttyout/tab-delay2
|
||||
ttyout/tab-delayx
|
||||
ttyout/nl-delay
|
||||
ttyout/nl-delay0
|
||||
ttyout/nl-delay1
|
||||
ttyout/vtab-delay
|
||||
ttyout/vtab-delay0
|
||||
ttyout/vtab-delay1
|
||||
ttyout/all-delay)
|
||||
(not (and ttyout/bs-delay
|
||||
ttyout/bs-delay0
|
||||
ttyout/bs-delay1
|
||||
ttyout/cr-delay
|
||||
ttyout/cr-delay0
|
||||
ttyout/cr-delay1
|
||||
ttyout/cr-delay2
|
||||
ttyout/cr-delay3
|
||||
ttyout/ff-delay
|
||||
ttyout/ff-delay0
|
||||
ttyout/ff-delay1
|
||||
ttyout/tab-delay
|
||||
ttyout/tab-delay0
|
||||
ttyout/tab-delay1
|
||||
ttyout/tab-delay2
|
||||
ttyout/tab-delayx
|
||||
ttyout/nl-delay
|
||||
ttyout/nl-delay0
|
||||
ttyout/nl-delay1
|
||||
ttyout/vtab-delay
|
||||
ttyout/vtab-delay0
|
||||
ttyout/vtab-delay1
|
||||
ttyout/all-delay)))))
|
||||
|
||||
(add-test! 'tty-info-record-posix-control-flags 'terminal-device-control
|
||||
(lambda ()
|
||||
(and ttyc/char-size
|
||||
ttyc/char-size5
|
||||
ttyc/char-size6
|
||||
ttyc/char-size7
|
||||
ttyc/char-size8
|
||||
ttyc/enable-parity
|
||||
ttyc/odd-parity
|
||||
ttyc/enable-read
|
||||
ttyc/hup-on-close
|
||||
ttyc/no-modem-sync
|
||||
ttyc/2-stop-bits)))
|
||||
|
||||
(add-test! 'tty-info-record-4.3+bsd-control-flags 'terminal-device-control
|
||||
(lambda ()
|
||||
(or (and ttyc/ignore-flags
|
||||
ttyc/CTS-output-flow-ctl
|
||||
ttyc/RTS-input-flow-ctl
|
||||
ttyc/carrier-flow-ctl)
|
||||
(not (and ttyc/ignore-flags
|
||||
ttyc/CTS-output-flow-ctl
|
||||
ttyc/RTS-input-flow-ctl
|
||||
ttyc/carrier-flow-ctl)))))
|
||||
|
||||
(add-test! 'tty-info-record-posix-local-flags 'terminal-device-control
|
||||
(lambda ()
|
||||
(and ttyl/canonical
|
||||
ttyl/echo
|
||||
ttyl/echo-delete-line
|
||||
ttyl/echo-nl
|
||||
ttyl/visual-delete
|
||||
ttyl/enable-signals
|
||||
ttyl/extended
|
||||
ttyl/no-flush-on-interrupt
|
||||
ttyl/ttou-signal)))
|
||||
|
||||
(add-test! 'tty-info-record-svr4&4.3+bsd-local-flags 'terminal-device-control
|
||||
(lambda ()
|
||||
(or (and ttyl/echo-ctl
|
||||
ttyl/flush-output
|
||||
ttyl/hardcopy-delete
|
||||
ttyl/reprint-unread-chars
|
||||
ttyl/visual-delete-line
|
||||
ttyl/alt-delete-word
|
||||
ttyl/no-kernel-status
|
||||
ttyl/case-map)
|
||||
(not (and ttyl/echo-ctl
|
||||
ttyl/flush-output
|
||||
ttyl/hardcopy-delete
|
||||
ttyl/reprint-unread-chars
|
||||
ttyl/visual-delete-line
|
||||
ttyl/alt-delete-word
|
||||
ttyl/no-kernel-status
|
||||
ttyl/case-map)))))
|
||||
Loading…
Reference in New Issue