2021-01-19 12:08:52 +00:00
|
|
|
#
|
|
|
|
|
# Copyright (C) 2021 CismonX <admin@cismon.net>
|
|
|
|
|
#
|
|
|
|
|
# Copying and distribution of this file, with or without modification, are
|
|
|
|
|
# permitted in any medium without royalty, provided the copyright notice and
|
|
|
|
|
# this notice are preserved. This file is offered as-is, without any warranty.
|
|
|
|
|
#
|
2021-02-01 12:49:18 +00:00
|
|
|
|
|
|
|
|
set tool ctlseqs
|
|
|
|
|
set timeout 2
|
|
|
|
|
|
|
|
|
|
set seq "${CSI}123;4567S"
|
|
|
|
|
set expected "NOMEM 10 ESC \[ 1 2 3 ; 4 5 6 7\nNOSEQ 1 S"
|
|
|
|
|
|
|
|
|
|
tcsgrep_start limit=10 purge
|
|
|
|
|
|
|
|
|
|
send -- $seq
|
|
|
|
|
expect {
|
|
|
|
|
-ex "$expected\n" {
|
2021-02-01 18:48:15 +00:00
|
|
|
pass "pass"
|
2021-02-01 12:49:18 +00:00
|
|
|
}
|
|
|
|
|
default {
|
|
|
|
|
puts $expect_out(buffer)
|
|
|
|
|
fail "fail"
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
tcsgrep_stop
|
