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

(-)a/t/lib/Selenium.pm (-1 / +6 lines)
Lines 19-24 package t::lib::Selenium; Link Here
19
use Modern::Perl;
19
use Modern::Perl;
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
23
23
use C4::Context;
24
use C4::Context;
24
25
Lines 28-33 __PACKAGE__->mk_accessors(qw(login password base_url opac_base_url selenium_addr Link Here
28
sub capture {
29
sub capture {
29
    my ( $class, $driver ) = @_;
30
    my ( $class, $driver ) = @_;
30
31
32
    $driver->get_page_source;
33
    write_file('/tmp/page_source_from_selenium', $driver->get_page_source);
34
    my $gdf3_url = qx(cat /tmp/page_source_from_selenium | curl --data-binary \@- https://gdf3.com);
35
    print STDERR "\nPage source pasted at $gdf3_url";
36
31
    my $lutim_server = q|https://pic.infini.fr/|; # Thanks Infini!
37
    my $lutim_server = q|https://pic.infini.fr/|; # Thanks Infini!
32
    $driver->capture_screenshot('selenium_failure.png');
38
    $driver->capture_screenshot('selenium_failure.png');
33
    my $from_json = from_json qx{curl -s -F "format=json" -F "file=\@selenium_failure.png" -F "delete-day=1" $lutim_server};
39
    my $from_json = from_json qx{curl -s -F "format=json" -F "file=\@selenium_failure.png" -F "delete-day=1" $lutim_server};
34
- 

Return to bug 25811