File Coverage

blib/lib/Poet/t/Subclassing.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Poet::t::Subclassing;
$Poet::t::Subclassing::VERSION = '0.16';
use Poet::Tools qw(write_file);
use Test::Class::Most parent => 'Poet::Test::Class';

sub test_subclassing : Tests {
    my $self = shift;

    my $root_dir = $self->temp_env_dir();
    write_file( "$root_dir/lib/TestApp/Cache.pm",
        join( "\n", "package TestApp::Cache;", "use Poet::Moose;", "extends 'Poet::Cache';" ) );
    write_file(
        "$root_dir/lib/TestApp/Import.pm",
        join( "\n",
            "package TestApp::Import;",
            "use Poet::Moose;",
            "extends 'Poet::Import';",
            "no strict 'refs';",
            "before 'export_to_class' => sub { *{\$_[1] . '::bar'} = sub { 5 } };",
            "1",
        )
    );
    write_file(
        "$root_dir/lib/TestApp/Log.pm",
        join( "\n",
            "package TestApp::Log;",
            "use Poet::Moose;",
            "extends 'Poet::Log';",
            "sub get_logger { return bless({}, 'TestApp::Logger') }",
        )
    );
    my $poet = Poet::Environment->initialize_current_environment(
        root_dir => $root_dir,
        app_name => 'TestApp'
    );
    isa_ok( $poet,           'Poet::Environment', 'env' );      # can't override this yet
    isa_ok( $poet->importer, 'TestApp::Import',   'import' );
    isa_ok( $poet->conf,     'TestApp::Conf',     'conf' );
    is( $poet->app_class('Cache'), 'TestApp::Cache', 'cache' );

    {
        package Foo;
$Foo::VERSION = '0.16';
Poet->import(qw($cache $conf $log $poet));
        use Test::More;
        is( $Foo::cache->chi_root_class, 'TestApp::Cache', '$cache' );
        isa_ok( $Foo::conf, 'TestApp::Conf',     '$conf' );
        isa_ok( $Foo::log,  'TestApp::Logger',   '$log' );
        isa_ok( $Foo::poet, 'Poet::Environment', '$poet' );
        is( Foo::bar(), 5, 'imported bar' );
    }
}

1;