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
|
#!/usr/bin/perl
use v5.18;
use warnings;
use Test2::V0 0.000148; # is_refcount
use Object::Pad 0.800;
my $arr = [];
class WithWeak {
field $one = 1;
field $field :writer :param :weak;
field $two = 2;
}
is_oneref( $arr, '$arr has one reference before we start' );
{
my $obj = WithWeak->new( field => $arr );
is_oneref( $arr, '$arr has one reference after WithWeak construction' );
}
{
my $obj = WithWeak->new( field => [] );
$obj->set_field( $arr );
is_oneref( $arr, '$arr has one reference after WithWeak mutator' );
}
# RT139665
{
class subWithWeak {
inherit WithWeak;
field $three = 3;
}
my $obj = subWithWeak->new( field => $arr );
is_oneref( $arr, '$arr has one reference after subWithWeak construction' );
}
{
class WithInnerHelper {
field $field :writer :param :weak;
class InnerHelperClass { inherit WithInnerHelper; }
}
my $obj = InnerHelperClass->new( field => $arr );
is_oneref( $arr, '$arr has one reference after InnerHelperClass construction' );
}
is_oneref( $arr, '$arr has one reference before EOF' );
done_testing;
|
