# 
# 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.
# 

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" {
        pass "pass"
    }
    default {
        puts $expect_out(buffer)
        fail "fail"
    }
}

tcsgrep_stop