Update tests.
continuous-integration/drone/push Build is passing
Details
continuous-integration/drone/push Build is passing
Details
This commit is contained in:
parent
5b9d919a17
commit
5f1ddd66d8
|
@ -31,7 +31,7 @@ for { set i 0 } { $i < [ llength $input ] } { incr i } {
|
|||
send -- $seq
|
||||
expect {
|
||||
-ex "$expected\n" {
|
||||
pass "OK"
|
||||
pass "pass"
|
||||
}
|
||||
default {
|
||||
puts $expect_out(buffer)
|
||||
|
|
|
@ -17,7 +17,7 @@ tcsgrep_start limit=10 purge
|
|||
send -- $seq
|
||||
expect {
|
||||
-ex "$expected\n" {
|
||||
pass "OK"
|
||||
pass "pass"
|
||||
}
|
||||
default {
|
||||
puts $expect_out(buffer)
|
||||
|
|
|
@ -36,7 +36,9 @@ for { set i 0 } { $i < $nlen } { incr i } {
|
|||
|
||||
send -- "p"
|
||||
expect {
|
||||
-ex "NOMATCH [ expr $nlen + 3 ] ESC \[ [ split $n1 {} ] p\n" { }
|
||||
-ex "NOMATCH [ expr $nlen + 3 ] ESC \[ [ split $n1 {} ] p\n" {
|
||||
pass "pass"
|
||||
}
|
||||
default {
|
||||
puts $expect_out(buffer)
|
||||
fail "fail"
|
||||
|
|
|
@ -5,3 +5,18 @@
|
|||
# permitted in any medium without royalty, provided the copyright notice and
|
||||
# this notice are preserved. This file is offered as-is, without any warranty.
|
||||
#
|
||||
|
||||
set tool ctlseqs
|
||||
set timeout 2
|
||||
|
||||
tcsgrep_start timeout=500
|
||||
|
||||
expect {
|
||||
-ex "TIMEOUT\n" {
|
||||
pass "pass"
|
||||
}
|
||||
default {
|
||||
puts $expect_out(buffer)
|
||||
fail "fail"
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue