Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add test for RT#122087.
  • Loading branch information
jnthn committed Jul 9, 2014
1 parent 11b5f96 commit 030b17a
Showing 1 changed file with 10 additions and 1 deletion.
11 changes: 10 additions & 1 deletion S12-attributes/class.t
Expand Up @@ -11,7 +11,7 @@ Class Attributes
#L<S12/Class attributes/"Class attributes are declared">
#L<S12/Class methods/Such a metaclass method is always delegated>

plan 25;
plan 26;

class Foo {
our $.bar = 23;
Expand Down Expand Up @@ -80,6 +80,15 @@ dies_ok {$test5 = Quux.bar}, 'class attribute accessor hidden by accessor in sub
is($y.x, 42, "class attributes shared by all instances");
}

# RT#122087
{
class Woof {
my $.x = 'yap';
}
my $x = Woof.new();
is($x.x, 'yap', "class attribute initialization works");
}

# RT #57336
#?niecza skip 'Exception'
{
Expand Down

0 comments on commit 030b17a

Please sign in to comment.