gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 19802: Add stack trace to ease debugging 

Signed-off-by: Mark Tompsett <mtompset@hotmail.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit f6f95808d8)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
This commit is contained in:
Jonathan Druart 2017-12-26 14:41:50 -03:00 committed by Fridolin Somers
parent 460976325b
commit ca2f8738ce
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
t/lib/Selenium.pm
View File

@ -17,6 +17,8 @@ package t::lib::Selenium;
use Modern::Perl;
use Carp qw( croak );
use C4::Context;
use base qw(Class::Accessor);
@ -34,6 +36,15 @@ sub new {
$self->{driver} = Selenium::Remote::Driver->new(
port => $self->{selenium_port},
remote_server_addr => $self->{selenium_addr},
error_handler => sub {
my $selenium_error = $_[1];
print STDERR "\nSTRACE:";
my $i = 1;
while ( (my @call_details = (caller($i++))) ){
print STDERR "\t" . $call_details[1]. ":" . $call_details[2] . " in " . $call_details[3]."\n";
}
print STDERR "\n";
croak $selenium_error; }
);
return bless $self, $class;
}