Lines 20-25
use Modern::Perl;
Link Here
|
20 |
use Carp qw( croak ); |
20 |
use Carp qw( croak ); |
21 |
use JSON qw( from_json ); |
21 |
use JSON qw( from_json ); |
22 |
use File::Slurp qw( write_file ); |
22 |
use File::Slurp qw( write_file ); |
|
|
23 |
use Test::More; |
23 |
|
24 |
|
24 |
use C4::Context; |
25 |
use C4::Context; |
25 |
|
26 |
|
Lines 65-72
sub add_error_handler {
Link Here
|
65 |
} |
66 |
} |
66 |
print STDERR "\n"; |
67 |
print STDERR "\n"; |
67 |
$self->capture( $driver ); |
68 |
$self->capture( $driver ); |
68 |
$driver->quit(); |
69 |
fail(); |
69 |
croak $selenium_error; |
70 |
croak $selenium_error; # tells which element wasn't found for example |
70 |
} |
71 |
} |
71 |
); |
72 |
); |
72 |
} |
73 |
} |
73 |
- |
|
|