ok/jj
1
0
Fork 0
forked from mirrors/jj
jj/demos/demo_helpers.tcl

31 lines
513 B
Tcl
Raw Normal View History

set send_human {0.05 0.1 1 0.05 1}
set timeout 2
proc pause {duration} {
sleep $duration
}
proc expect_prompt {} {
expect "$ "
}
proc run_command {cmd} {
send -h "$cmd"
send "\r"
expect -timeout 5 "$ "
}
proc quit_and_dump_asciicast_path {} {
set CTRLC \003
set CTRLD \004
set ESC \033
send $CTRLD
expect "asciinema: recording finished"
sleep 1
send $CTRLC
expect -re "asciicast saved to (.+)$ESC.*\r" {
send_user "$expect_out(1,string)\n"
}
}