From da3caf4f5b08fc2b6376955a64576f96314b5ca1 Mon Sep 17 00:00:00 2001 From: chetz Date: Wed, 22 Sep 2004 07:43:39 +0000 Subject: [PATCH] first commit --- scsh/test/terminal-device-control-test.scm | 268 +++++++++++++++++++++ 1 file changed, 268 insertions(+) create mode 100644 scsh/test/terminal-device-control-test.scm diff --git a/scsh/test/terminal-device-control-test.scm b/scsh/test/terminal-device-control-test.scm new file mode 100644 index 0000000..5d808db --- /dev/null +++ b/scsh/test/terminal-device-control-test.scm @@ -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))))) \ No newline at end of file