use warnings;
use strict;
use feature 'say';

use lib '.';
use Test::MockSub;
use MyPackage;

{# called() && call_counnt()

    my $foo = Test::MockSub->mock('One::foo');
    MyPackage::test;
    MyPackage::test;

    my $count = $foo->call_count;
    say "testing call_count(): $count";

    my $called = $foo->called;
    say "testing called(): $called";
}
{# return_value

    my $foo = Test::MockSub->mock('One::foo', return_value => 'True');
    my $ret = MyPackage::test;
    say "testing return_value: $ret";
}
{# side_effect

    my $cref = sub {die "thowing error";};
    my $foo = Test::MockSub->mock('One::foo', side_effect => $cref);

    eval{MyPackage::test;};

    print "testing side_effect: ";
    say $@ ? 'success' : 'failed';
}
{# side_effect && return_value dies()

    my $foo;
    
    my $cref = sub {};

    eval{
        $foo = Test::MockSub->mock('One::foo', side_effect => $cref, return_value => 1);};

    print "testing side_effect & return_value dies(): "; 
    say $@ ? 'success' : 'failed';
}
{# reset()

    my $foo = Test::MockSub->mock('One::foo', return_value => 1);
    my $ret1 = MyPackage::test;
    
    $foo->reset;

    my $ret2 = MyPackage::test;

    print "testing reset():";
    say defined $ret1 && ! defined $ret2 ? 'success' : 'failed';
}