use strict;
use warnings;
use Test::More;
use_ok 'Test::Mock::Recorder';
subtest 'A' => sub {
my $double = Test::Mock::Recorder->new;
$double->expects(
print => 1,
);
is($double->default_test_name, q{called 'print'});
done_testing;
};
subtest 'A and B' => sub {
my $double = Test::Mock::Recorder->new;
$double->expects(
print => 1,
close => 1,
);
is($double->default_test_name, q{called 'print' and 'close'});
done_testing;
};
subtest 'A, B and C' => sub {
my $double = Test::Mock::Recorder->new;
$double->expects(
print => 1,
print => 1,
close => 1,
);
is($double->default_test_name, q{called 'print', 'print' and 'close'});
done_testing;
};
done_testing;