use strict;
use Test::Stub::Generator qw(make_subroutine);
subtest "single" => sub {
my $increment = make_subroutine { expects => [0], return => 1 };
is( &$increment(0), 1, 'sub return are as You expected' );
};
subtest "multi" => sub {
my $increment = make_subroutine(
[
{ expects => [0], return => 1 },
{ expects => [1], return => 2 },
]
);
is( &$increment(0), 1, 'sub return are as You expected' );
is( &$increment(1), 2, 'sub return are as You expected' );
};
done_testing;