package Test::WebDriver::Sipwise;
use warnings;
use strict;
use Moo;
use MooseX::Method::Signatures;
extends 'Test::WebDriver';

method find(Str $scheme, Str $query) {
    $self->find_element($query, $scheme);
}

method findclick(Str $scheme, Str $query) {
    my $elem = $self->find($scheme, $query);
    return 0 unless $elem;
    return 0 unless $elem->is_displayed;
    $elem->click;
    return 1;
}

method select_if_unselected(Str $scheme, Str $query) {
    my $elem = $self->find($scheme, $query);
    return 0 unless $elem;
    return 0 unless $elem->is_displayed;
    if (! $elem->is_selected() ) {
        $elem->click;
    }
    return 1;
}

method findtext(Str $text, Any $ignore) {
    return $self->find(xpath => "//*[contains(text(),\"$text\")]");
}

method save_screenshot() {
    use MIME::Base64;
    open(my $FH,'>','screenshot.png');
    binmode $FH;
    my $png_base64 = $self->screenshot();
    print $FH decode_base64($png_base64);
    close $FH;
}

method fill_element(ArrayRef $options, Any $ignore) {
    my ($scheme, $query, $filltext) = @$options;
    my $elem = $self->find($scheme => $query);
    return 0 unless $elem;
    return 0 unless $elem->is_displayed;
    $elem->clear;
    $elem->send_keys($filltext);
    return 1;
}

sub browser_name_in {
    my ($self, @names) = @_;
    my $browser_name = $self->get_capabilities->{browserName};
    return scalar grep {/^$browser_name$/} @names;
}

1;