ngcp-panel/t/lib/Test/WebDriver/Sipwise.pm

package Test::WebDriver::Sipwise;
use Sipwise::Base;
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;
    $elem->click;
    return 1;
}

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

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