view release on metacpan or  search on metacpan

t/lib/App/Rssfilter/Group/Test/Update.pm  view on Meta::CPAN

use strict;
use warnings;

package App::Rssfilter::Group::Test::Update;

use Test::Routine;
use Test::Exception;
use namespace::autoclean;
use Method::Signatures;

requires 'group';
requires 'group_name';
requires 'mock_storage';
requires 'rules_for_update';

method do_update( $group ) {
    $self->mock_storage->set_always( path_push => $self->path_pushed_storage );
    $group->update( rules => $self->rules_for_update );
}

test update => method {
    lives_ok(
        sub { $self->do_update( $self->group ) },
        'called update without calamitous results'
    );

    $self->mock_storage->called_ok( 'path_push', 'called path_push ...');

    $self->mock_storage->called_args_pos_is(
        0,
        2,
        $self->group_name,
        '... with the name of the group'
    );
};

1;