/
042_parameter_cache_with_singleton.t
84 lines (69 loc) · 2.51 KB
/
042_parameter_cache_with_singleton.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::Fatal;
use Bread::Board;
use Bread::Board::LifeCycle::Singleton::WithParameters;
{
package Foo;
use Moose;
has 'bar' => (is => 'ro', isa => 'Int', required => 1);
has 'baz' => (is => 'ro', isa => 'Str', required => 1);
}
my $c = container 'MyApp' => as {
service 'foo' => (
lifecycle => 'Singleton::WithParameters',
class => 'Foo',
parameters => {
bar => { isa => 'Int' },
baz => { isa => 'Str' },
}
);
};
my $foo;
is(exception {
$foo = $c->resolve( service => 'foo', parameters => { bar => 10, baz => 'BAZ' } );
}, undef, '... got the service correctly');
isa_ok($foo, 'Foo');
is($foo->bar, 10, '... got the right parameter value');
is($foo->baz, 'BAZ', '... got the right parameter value');
# this is the same instance ...
my $foo2;
is(exception {
$foo2 = $c->resolve( service => 'foo', parameters => { bar => 10, baz => 'BAZ' } );
}, undef, '... got the service correctly');
isa_ok($foo2, 'Foo');
is($foo2->bar, 10, '... got the right parameter value');
is($foo2->baz, 'BAZ', '... got the right parameter value');
# this will be different instance ...
my $foo3;
is(exception {
$foo3 = $c->resolve( service => 'foo', parameters => { bar => 20, baz => 'BAZ' } );
}, undef, '... got the service correctly');
isa_ok($foo3, 'Foo');
is($foo3->bar, 20, '... got the right parameter value');
is($foo3->baz, 'BAZ', '... got the right parameter value');
# this is the same instance ...
my $foo4;
is(exception {
$foo4 = $c->resolve( service => 'foo', parameters => { bar => 10, baz => 'BAZ' } );
}, undef, '... got the service correctly');
isa_ok($foo4, 'Foo');
is($foo4->bar, 10, '... got the right parameter value');
is($foo4->baz, 'BAZ', '... got the right parameter value');
# this will be different instance ...
my $foo5;
is(exception {
$foo5 = $c->resolve( service => 'foo', parameters => { bar => 10, baz => 'Baz' });
}, undef, '... got the service correctly');
isa_ok($foo5, 'Foo');
is($foo5->bar, 10, '... got the right parameter value');
is($foo5->baz, 'Baz', '... got the right parameter value');
# confirm our assumptions ...
is($foo, $foo2, '... they are the same instances (same params)');
isnt($foo, $foo3, '... they are not the same instances (diff params)');
is($foo, $foo4, '... they are the same instances (same params)');
isnt($foo, $foo5, '... they are the same instances (same params)');
isnt($foo3, $foo5, '... they are the same instances (same params)');
done_testing;