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