QA/tests/p_abrt-cli/_expect

#!/usr/bin/expect -f

set dir [lindex $argv 0]

spawn abrt-cli report $dir

set timeout 10
set workflow_no 3

# timeout handler
proc itstime {args} {
    puts "!! expect timeout !!"
        exit 1
}

while {1} {
    expect {

        eof {break}

        timeout { itstime }

        -regexp {[[:space:]]+([[:digit:]]+)[[:space:]]+Report to CentOS Bug Tracker} {
            set workflow_no $expect_out(1,string)
        }

        "Ok to upload core dump? (It may contain sensitive data)." {
            send "N\n"
        }
        "This problem was already reported to CentOS Bug Tracker" {
            send "y\n"
        }
        -re "Downloading.*Continue?.*" {
            send "N\n"
        }
        "CentOS Bug Tracker Password" {
            send "\n"
        }
        "CentOS Bug Tracker User name" {
            send "\n"
        }
        "CentOS Bug Tracker CentOS Bug Tracker project" {
            send "\n"
        }
        "Select a workflow to run" {
            send "$workflow_no\n"
        }
    }
}