The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Path::Class;
use lib file(__FILE__)->dir->file('lib')->stringify;

use parent qw(Test::Class);
use Test::More;

use Cinnamon::Task;

sub execute : Tests {
    my $task = Cinnamon::Task->new(
        name => 'name',
        code => sub { return $_[0] },
    );
    my $res = $task->execute('hostname');
    is $res, 'hostname';
}

sub info : Tests {
    my $task = Cinnamon::Task->new(
        name => 'name',
        code => sub { },
    );
    my $info = $task->info;
    ok $info->{name};
}

__PACKAGE__->runtests;