Revision 22551
- Date:
- 2008/10/09 02:49:42
- Files:
Legend:
- Added
- Removed
- Modified
-
t/spec/S12-role/basic.t
47 47 # L<S12/Roles/Roles may have attributes:> 48 48 #?rakudo skip 'role parse failure' 49 49 { 50 role B { has $.attr = 42 is rw } 50 role B { has $.attr is rw = 42 } 51 51 my Foo $b does B .= new(); 52 52 ok defined($b), 'mixing B into $b worked'; 53 53 is $b.attr, 42, '$b "inherited" the $.attr attribute of B (1)';