File Coverage

blib/lib/Rofi/Script/TestHelpers.pm

Criterion	Covered	Total	%
statement	34	39	87.1
branch	2	4	50.0
condition	1	2	50.0
subroutine	9	10	90.0
pod	0	3	0.0
total	46	58	79.3

package Rofi::Script::TestHelpers;
use strict;
use warnings;

use Carp qw( croak );

use Test2::API qw( context );

use base 'Exporter';

## no critic (ProhibitAutomaticExportation)
our @EXPORT = qw(
  mock_rofi_args
  rofi_shows
  init_rofi
);

# need a rofi object
use Rofi::Script;

## no critic (ProhibitSubroutinePrototypes)
sub rofi_shows($$;$) {
    my ($want, $name) = @_;

    my $shown = '';
    open my $show_handle, '>', \$shown
      or croak "Could not open show handle";
    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(<<"DIAG", $want, $shown);
Wanted:
-------
%s

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

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

    return $shown;
}

# clear out the global rofi object, and provide a way to override the rofi
# environment
sub init_rofi(%) {
    $ENV{ROFI_RETV} ||= 0;
    rofi->clear();
    return;
}

# set the args slot on the global rofi object
sub mock_rofi_args (@) {
    my (@mock_args) = @_;
    rofi->{args} = \@mock_args;
    return;
}

1;