Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
94 lines (75 sloc) 2.08 KB
use v6;
use Test;
plan 19;
=begin pod
Test attributes with recursively typed attributes
=end pod
#L<S12/Attributes>
{
class A {
has A $.attr is rw;
};
my A $a;
my A $b;
lives_ok {
$a .= new();
$b .= new(:attr($a));
}, 'Can instantiate class with recursively-typed attribute';
isa_ok $a, A, 'Sanity check, $a is of type A';
ok $b.attr === $a, "Recursively-typed attribute stores correctly";
lives_ok { $a.attr = $b; }, "Cycles are fine";
ok $b.attr.attr === $b, "Cycles resolve correctly";
}
#L<S12/Class attributes/"Class attributes are declared">
{
class B {
my B $.attr is rw;
};
my B $a;
#?pugs todo
lives_ok {
$a .= new();
B.attr = $a;
}, "Can instantiate class with recursively-typed class lexical";
#?pugs skip 'Undeclared variable'
ok B.attr === $a, "Recursively-typed class lexical stores correctly";
}
#L<S12/Invocants/current lexically-determined class ::?CLASS>
#?niecza skip 'A type must be provided ???'
{
class C {
has ::?CLASS $.attr is rw;
};
my C $a;
my C $b;
lives_ok {
$a .= new();
$b .= new(:attr($a));
}, 'Can instantiate class with ::?CLASS attribute';
is $b.attr, $a, '::?CLASS attribute stores correctly';
lives_ok { $a.attr = $b; }, '::?CLASS cycles are fine';
ok $b.attr.attr === $b, '::?CLASS cycles resolve correctly';
lives_ok { $a.attr .= new(); }, 'Can instantiate attribute of type ::?CLASS';
isa_ok $a.attr, C, '::?CLASS instantiates to correct class';
class D is C { };
my D $d;
lives_ok {
$d .= new();
$d.attr .= new();
}, 'Can instantiate derived class with ::?CLASS attribute';
#?pugs todo 'bug'
isa_ok $d.attr, C, '::?CLASS is lexical, not virtual';
}
# RT #67236
{
class Z {
has Z @.as is rw;
}
my $good_a = Z.new;
lives_ok { $good_a.as[0] = Z.new }, 'can assign';
isa_ok $good_a.as[0], Z;
my $bad_a = Z.new;
lives_ok { $bad_a.as.push( Z.new ) }, 'can push';
isa_ok $bad_a.as[0], Z;
}
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.