Mercurial > pub > Impl
diff _test/Test/Config/Container.pm @ 417:3ed0c58e9da3 ref20150831
working on di container, tests
author | cin |
---|---|
date | Mon, 02 Nov 2015 01:56:53 +0300 |
parents | |
children | 3f38dabaf5cc |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/_test/Test/Config/Container.pm Mon Nov 02 01:56:53 2015 +0300 @@ -0,0 +1,40 @@ +package Test::Config::Container; +use strict; + +{ + package Test::Config::Container::Baz; + use IMPL::declare { + base => { + 'IMPL::Object' => undef + }, + props => [ + value => 'r' + ] + }; + + sub CTOR { + my $this = shift; + $this->value(shift); + } +} + +use IMPL::declare { + require => { + Container => 'IMPL::Config::Container' + }, + base => { + 'IMPL::Test::Unit' => '@_' + } +}; +use IMPL::Test qw(test assert failed); + +test CreateContainer => sub { + my $c1 = Container->new(); +}; + +sub RegisterServices { + my $c1 = Container->new(); +} + + +1; \ No newline at end of file