Commit | Line | Data |
f259aaad |
1 | #!perl |
2 | use strict; |
3 | use warnings; |
652b2a97 |
4 | use constant HAS_THREADS => eval{ require threads && require threads::shared }; |
f259aaad |
5 | |
20a12328 |
6 | use if !HAS_THREADS, 'Test::More', (skip_all => "This is a test for threads ($@)"); |
7 | use Test::More; |
f259aaad |
8 | |
9 | { |
20a12328 |
10 | package MyTraits; |
11 | use Mouse::Role; |
12 | |
f259aaad |
13 | package MyClass; |
14 | use Mouse; |
15 | |
16 | has foo => ( |
17 | is => 'rw', |
aff73a9e |
18 | isa => 'Foo', |
19 | ); |
20 | |
21 | package Foo; |
22 | use Mouse; |
23 | |
24 | has value => ( |
25 | is => 'rw', |
20a12328 |
26 | isa => 'Int', |
27 | |
28 | traits => [qw(MyTraits)], |
f259aaad |
29 | ); |
30 | } |
31 | |
aff73a9e |
32 | my $o = MyClass->new(foo => Foo->new(value => 42)); |
f259aaad |
33 | threads->create(sub{ |
aff73a9e |
34 | my $x = MyClass->new(foo => Foo->new(value => 1)); |
35 | is $x->foo->value, 1; |
f259aaad |
36 | |
aff73a9e |
37 | $x->foo(Foo->new(value => 2)); |
f259aaad |
38 | |
aff73a9e |
39 | is $x->foo->value, 2; |
f259aaad |
40 | |
41 | MyClass->meta->make_immutable(); |
42 | |
aff73a9e |
43 | $x = MyClass->new(foo => Foo->new(value => 10)); |
44 | is $x->foo->value, 10; |
f259aaad |
45 | |
aff73a9e |
46 | $x->foo(Foo->new(value => 20)); |
f259aaad |
47 | |
aff73a9e |
48 | is $x->foo->value, 20; |
f259aaad |
49 | })->join(); |
50 | |
aff73a9e |
51 | is $o->foo->value, 42; |
20a12328 |
52 | |
53 | $o = MyClass->new(foo => Foo->new(value => 43)); |
54 | is $o->foo->value, 43; |
55 | |
f259aaad |
56 | ok !$o->meta->is_immutable; |
57 | |
20a12328 |
58 | done_testing; |