view release on metacpan or  search on metacpan

t/01.override.t  view on Meta::CPAN

use Test::More;
use Test::Differences;

use Devel::Decouple;
use lib 't';
use TestMod::Baz;

my $module = 'TestMod::Baz';
my @modules = qw{
        TestMod::Foo
        TestMod::Bar
};
my @functions = qw{
        prohibit
        inhibit
};

DEFAULT_OVERRIDES: {
    #           GOT                     EXPECTED                    MESSAGE
    is( TestMod::Baz::inhibit(),        "I'm inhibited",            "original 'inhibit'"            );
    is( TestMod::Baz::prohibit(),       "I'm prohibited",           "original 'prohibit'"           );
    
    my $DD = Devel::Decouple->new->decouple( $module );
    #note( explain $DD );
    
    is( TestMod::Baz::inhibit(),        undef,                      "default override 'inhibit'"    );
    is( TestMod::Baz::prohibit(),       undef,                      "default override 'prohibit'"   );
    
}

CUSTOM_OVERRIDES: {
    #           GOT                     EXPECTED                    MESSAGE
    is( TestMod::Baz::inhibit(),        "I'm inhibited",            "original 'inhibit'"            );
    is( TestMod::Baz::prohibit(),       "I'm prohibited",           "original 'prohibit'"           );
    
    my $DD1 = Devel::Decouple->new;
    $DD1->decouple( $module, from @modules,
                        function 'prohibit', as { return 2 },
                        function 'inhibit',  as { return 3 }
                        );
    
    is( TestMod::Baz::prohibit(),       2,                          "custom override 'prohibit'"    );
    is( TestMod::Baz::inhibit(),        3,                          "custom override 'inhibit'"     );
    
    my $DD2 = Devel::Decouple->new;
    $DD2->decouple( $module,
                        default_sub,          as { return 'boom!' },
                        functions @functions, as { return "defined by \$DD2" }  # functions takes a literal array
                        );
    
    is( TestMod::Baz::inhibit(),        "defined by \$DD2",         "custom override 'inhibit' with 'functions'" );
    is( TestMod::Baz::prohibit(),       "defined by \$DD2",         "custom override 'prohibit' with 'functions'");
    
    my $DD3 = Devel::Decouple->new;
    $DD3->decouple( $module, from @modules,
                        function 'prohibit', preserved,
                        function 'inhibit',  as { return "defined by \$DD3" }
                        );
    #note( explain $DD2 );
    #note( explain $DD3 );
    
    is( TestMod::Baz::inhibit(),        "defined by \$DD3",         "custom override 'inhibit' with 'preserved'" );