use v6;
use Test;

use Bread::Board;

class MyApp::Schema { }
class MyApp::View::TT { }

my $c = Bread::Board::Container.new(
    name           => 'Application',
    sub_containers => [
        Bread::Board::Container.new(
            name     => 'Model',
            services => [
                Bread::Board::Literal.new(name => 'dsn', value => ''),
                Bread::Board::ConstructorInjection.new(
                    name         => 'schema',
                    class        => MyApp::Schema,
                    dependencies => {
                        dsn => Bread::Board::Dependency.new(
                            service_path => 'dsn',
                        ),
                        user => Bread::Board::Literal.new(
                            name  => 'user',
                            value => '',
                        ),
                        pass => Bread::Board::Literal.new(
                            name  => 'pass',
                            value => '',
                        ),
                    },
                ),
            ],
        ),
        Bread::Board::Container.new(
            name     => 'View',
            services => [
                Bread::Board::ConstructorInjection.new(
                    name         => 'TT',
                    class        => MyApp::View::TT,
                    dependencies => {
                        tt_include_path => Bread::Board::Literal.new(
                            name  => 'include_path',
                            value => [],
                        ),
                    },
                ),
            ],
        ),
        Bread::Board::Container.new(name => 'Controller'),
    ],
);

my $model = $c.fetch('Model');
isa_ok($model, Bread::Board::Container);
is($model.name, 'Model');

{
    my $model2 = $c.fetch('/Model');
    isa_ok($model2, Bread::Board::Container);
    is($model, $model2);
}

my $dsn = $model.fetch('schema/dsn');
isa_ok($dsn, Bread::Board::Dependency);
is($dsn.service_path, 'dsn');

{
    my $dsn2 = $c.fetch('/Model/schema/dsn');
    isa_ok($dsn2, Bread::Board::Dependency);
    is($dsn, $dsn2);
}

my $root = $model.fetch('../');
isa_ok($root, Bread::Board::Container);
is($root, $c);
is($model, $model.fetch('../Model'));
is($dsn, $model.fetch('../Model/schema/dsn'));
is($model, $dsn.fetch('../Model'));

done;

# vim:ft=perl6:foldmethod=manual