File Coverage

blib/lib/Rofi/Script/TestHelpers.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	28	32	87.5

package Rofi::Script::TestHelpers;

use Test2::API qw( context );

use base 'Exporter';
our @EXPORT = qw(
    rofi_shows
);

# need a rofi object
use Rofi::Script;

sub rofi_shows($$;$) {
    my ($want, $name) = @_;

    my $shown = '';
    open my $show_handle, '>', \$shown;
    rofi->set_show_handle($show_handle);

    rofi->show();

    close $show_handle;

    my $ctx = context(); # Get a context
    if ($shown eq $want) {
        $ctx->pass_and_release($name);
    } else {
        my $diag = sprintf(<
Wanted:
-------
%s

but got:
--------
%s
DIAG

        $ctx->fail_and_release($name, $diag);
    }

    return $shown;
}


1;