View | Details | Raw Unified | Return to bug 19802
Collapse All | Expand All

(-)a/t/lib/Selenium.pm (-1 / +11 lines)
Lines 17-22 package t::lib::Selenium; Link Here
17
17
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
use Carp qw( croak );
21
20
use C4::Context;
22
use C4::Context;
21
23
22
use base qw(Class::Accessor);
24
use base qw(Class::Accessor);
Lines 34-39 sub new { Link Here
34
    $self->{driver} = Selenium::Remote::Driver->new(
36
    $self->{driver} = Selenium::Remote::Driver->new(
35
        port               => $self->{selenium_port},
37
        port               => $self->{selenium_port},
36
        remote_server_addr => $self->{selenium_addr},
38
        remote_server_addr => $self->{selenium_addr},
39
        error_handler => sub {
40
            my $selenium_error = $_[1];
41
            print STDERR "\nSTRACE:";
42
            my $i = 1;
43
            while ( (my @call_details = (caller($i++))) ){
44
                print STDERR "\t" . $call_details[1]. ":" . $call_details[2] . " in " . $call_details[3]."\n";
45
            }
46
            print STDERR "\n";
47
            croak $selenium_error; }
37
    );
48
    );
38
    return bless $self, $class;
49
    return bless $self, $class;
39
}
50
}
40
- 

Return to bug 19802