Blame tests/p_abrt-cli/_expect_report

Matej Habrnal e4efea
#!/usr/bin/expect -f
Matej Habrnal e4efea
Matej Habrnal e4efea
set dir [lindex $argv 0]
Matej Habrnal e4efea
Matej Habrnal 814705
spawn report-cli -e report_CentOSBugTracker -vvv $dir
Matej Habrnal e4efea
Matej Habrnal 50921c
set timeout 100
Matej Habrnal 0104f7
set workflow_no 3
Matej Habrnal e4efea
Matej Habrnal e4efea
# timeout handler
Matej Habrnal e4efea
proc itstime {args} {
Matej Habrnal e4efea
    puts "!! expect timeout !!"
Matej Habrnal e4efea
        exit 1
Matej Habrnal e4efea
}
Matej Habrnal e4efea
Matej Habrnal e4efea
while {1} {
Matej Habrnal e4efea
    expect {
Matej Habrnal e4efea
Matej Habrnal e4efea
        eof {break}
Matej Habrnal e4efea
Matej Habrnal e4efea
        timeout { itstime }
Matej Habrnal e4efea
Matej Habrnal 0104f7
        -regexp {[[:space:]]+([[:digit:]]+)[[:space:]]+Report to CentOS Bug Tracker} {
Matej Habrnal 0104f7
            set workflow_no $expect_out(1,string)
Matej Habrnal 0104f7
        }
Matej Habrnal 0104f7
Matej Habrnal e4efea
        "Ok to upload core dump? (It may contain sensitive data)." {
Matej Habrnal e4efea
            send "N\n"
Matej Habrnal e4efea
        }
Matej Habrnal e4efea
        "This problem was already reported to CentOS Bug Tracker" {
Matej Habrnal e4efea
            send "y\n"
Matej Habrnal e4efea
        }
Matej Habrnal e4efea
        -re "Downloading.*Continue?.*" {
Matej Habrnal e4efea
            send "N\n"
Matej Habrnal e4efea
        }
Matej Habrnal e4efea
        "CentOS Bug Tracker Password" {
Matej Habrnal e4efea
            send "aaa\n"
Matej Habrnal e4efea
        }
Matej Habrnal e4efea
        "CentOS Bug Tracker User name" {
Matej Habrnal e4efea
            send "aaa\n"
Matej Habrnal e4efea
        }
Matej Habrnal e4efea
        "Select a workflow to run" {
Matej Habrnal 0104f7
            send "$workflow_no\n"
Matej Habrnal e4efea
        }
Matej Habrnal e4efea
    }
Matej Habrnal e4efea
}