jj/demos/demo_helpers.tcl

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"
    }
}