84a14cdb67
This requires adding products, flavors and needles and test cases, and tweaking some existing ones to handle the slightly different behaviour of live images in shared tests. To handle the different main hub screens in live and non-live, a less stringent needle is added which is unregistered for non-live tests, so they don't match on it before they've finished updating repository metadata. There are a few small bugfix tweaks in this too, like some delays in user creation to try and avoid intermittent failures there. A new root_logged_in needle is also included, to handle a new console font in Rawhide - that has nothing strictly to do with live testing, it just happened to come up while working on this.
50 lines
1.2 KiB
Perl
50 lines
1.2 KiB
Perl
package anacondalog;
|
|
use base 'basetest';
|
|
|
|
use testapi;
|
|
|
|
sub post_fail_hook {
|
|
my $self = shift;
|
|
send_key "ctrl-alt-f2";
|
|
my $logged_in = 0;
|
|
if (get_var("LIVE") && check_screen "text_console_login", 20) {
|
|
# On live installs, we need to log in
|
|
type_string "root";
|
|
send_key "ret";
|
|
if (check_screen "root_logged_in", 10) {
|
|
$logged_in = 1;
|
|
}
|
|
}
|
|
elsif (check_screen "anaconda_console", 10) {
|
|
$logged_in = 1;
|
|
}
|
|
|
|
if ($logged_in == 1) {
|
|
upload_logs "/tmp/X.log";
|
|
upload_logs "/tmp/anaconda.log";
|
|
upload_logs "/tmp/packaging.log";
|
|
upload_logs "/tmp/storage.log";
|
|
upload_logs "/tmp/syslog";
|
|
upload_logs "/tmp/program.log";
|
|
upload_logs "/tmp/dnf.log";
|
|
|
|
# Upload all ABRT logs
|
|
type_string "cd /var/tmp/abrt && tar czvf abrt.tar.gz *";
|
|
send_key "ret";
|
|
upload_logs "/var/tmp/abrt/abrt.tar.gz";
|
|
|
|
# Upload Anaconda logs
|
|
type_string "tar czvf /tmp/anaconda_tb.tar.gz /tmp/anaconda-tb-*";
|
|
send_key "ret";
|
|
upload_logs "/tmp/anaconda_tb.tar.gz";
|
|
}
|
|
else {
|
|
save_screenshot;
|
|
}
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|
|
|