view release on metacpan or  search on metacpan

t/command-install-from-archive.t  view on Meta::CPAN

            shared => \%shared,
            method => 'do_install_archive',
            with_args => [ object { call 'basename' => $params{filename} } ];

        expect_dispatch_via
            shared => \%shared,
            method => 'do_extract_tarball',
            with_args => [ object { call 'basename' => $params{filename} } ],
            stubs     => { do_install_this => '' };

        expect_dispatch_via
            shared => \%shared,
            method => 'do_install_this',
            with_args => [
                object { call basename => 'foo' },
                $params{dist_version},
                $params{installation_name},
            ],
            stubs     => { do_extract_tarball => sub { $_[-1]->dirname->child('foo') } };

    };
};

sub arrange_file {
    my (%params) = @_;

    my $dir;
    $dir ||= $params{dir} if $params{dir};
    $dir ||= tempdir (CLEANUP => 1) if $params{tempdir};
    $dir ||= '.';

    my $file = file ($dir, $params{name});

    open my $fh, '>', $file;
    close $fh;

    return $file;
}

sub expect_dispatch_via {
    my (%params) = @_;
    tests "should dispatch via $params{method}()" => sub {
        my $app = $params{shared}{app};
        my $mock = mocked($app);

        if ($params{stubs}) {
            $mock->stubs($params{stubs});
        }

        if ($params{with_args}) {
            $mock->expects($params{method})
                ->with(@{ $params{with_args} })
                ->returns(undef);
        } else {
            $mock->expects($params{method})
                ->returns(undef);
        }

        $app->run;

        $mock->verify;
        $mock->reset;
    };
}