TT#56376 selenium: move crash_handler to Collection.pm

moved crash handler to Collection.pm, because copy pasting changes over
12 files is not fun =). also comparing differences in git is way easier
with this change

Change-Id: I0278bc4f85c6b6b2a1b56985c30b7100c0c93cd9
changes/57/31057/4
Nico Schedel 6 years ago
parent dfdde86154
commit 119c41eba9

@ -359,4 +359,44 @@ sub popup_confirm_cancel {
diag($message);
$self->driver->find_element('//*[@id="dataConfirmCancel"]')->click();
}
sub crash_handler {
my($self) = @_;
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $self->driver->get_current_url();
my $title = $self->driver->get_title();
my $realtime = localtime();
if($self->driver->find_text("Sorry!") || $self->driver->find_text("Oops!")) {
my $crashvar = $self->driver->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $self->driver->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $self->driver->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($self->driver->find_text("nginx")) {
my $crashvar = $self->driver->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
}
diag("----------------------------------------------------------------");
}
1;

@ -148,42 +148,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -227,42 +227,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -244,42 +244,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -171,42 +171,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -225,42 +225,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -183,42 +183,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -219,42 +219,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -330,42 +330,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -228,42 +228,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -188,42 +188,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -403,42 +403,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}

@ -158,42 +158,7 @@ $run_ok = 1;
END {
if(!$run_ok) {
is("tests", "failed", "This test wasnt successful, check complete test logs for more info");
diag("-----------------------SCRIPT HAS CRASHED-----------------------");
my $url = $d->get_current_url();
my $title = $d->get_title();
my $realtime = localtime();
if($d->find_text("Sorry!") || $d->find_text("Oops!")) {
my $crashvar = $d->find_element_by_css('.error-container > h2:nth-child(2)')->get_text();
my $incident = "incident number: not avalible";
my $time = "time of incident: not avalible";
eval {
$incident = $d->find_element('.error-details > div:nth-child(2)', 'css')->get_text();
$time = $d->find_element('.error-details > div:nth-child(3)', 'css')->get_text();
};
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Server error: $crashvar");
diag($incident);
diag($time);
diag("Perl localtime(): $realtime");
} elsif($d->find_text("nginx")) {
my $crashvar = $d->find_element_by_css('body > center:nth-child(1) > h1:nth-child(1)')->get_text();
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("nginx error: $crashvar");
diag("Perl localtime(): $realtime");
} else {
diag("Could not detect Server issues. Maybe script problems?");
diag("If you still want to check server logs, here's some info");
diag("Server: $ENV{CATALYST_SERVER}");
diag("Url: $url");
diag("Tab Title: $title");
diag("Perl localtime(): $realtime");
$c->crash_handler();
}
diag("----------------------------------------------------------------");
};
done_testing;
}
Loading…
Cancel
Save