Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

57 lines (43 sloc) 1.501 kb
use v6;
use Test;
# RT #63826
{
class EnumClass { enum C <a b c> }
is +EnumClass::C::a, 0, 'enum element in class has the right value';
module EnumModule { enum M <a b c> }
is +EnumModule::M::b, 1, 'enum element in module has the right value';
package EnumPackage { enum P <a b c> }
is +EnumPackage::P::c, 2, 'enum element in package has the right value';
role EnumRole { enum R <a b c> }
#?rakudo skip 'RT 63826'
is +EnumRole::R::a, 0, 'enum element in role has the right value';
grammar EnumGrammar { enum G <a b c> }
is +EnumGrammar::G::b, 1, 'enum element in grammar has the right value';
}
# RT 66648
{
enum RT66648 <a b c>;
dies_ok { RT66648.c }, 'die attempting to access enum item as method';
}
# RT #70894
{
enum SomeEnum <a b c>;
lives_ok {SomeEnum::.keys}, 'keys on enum stash works';
}
# L<S12/Miscellaneous Rules>
# see also: RT #63650
{
enum Maybe <OK FAIL>;
sub OK { 'sub OK' };
is OK, 'OK', 'enum key wins in case of conflict';
is +OK, 0, 'enum key wins in case of conflict (numeric)';
#?niecza skip 'No value for parameter $key in CORE CommonEnum.postcircumfix:<( )>'
is OK(), 'sub OK', 'but () is still a function call';
is FAIL, 'FAIL', 'non-conflicting enum key';
is +FAIL, 1, 'non-conflicting enum key (numeric)';
# RT #112202
#?niecza todo
lives_ok { OK.^methods }, 'can call .^methods on an enum';
}
done;
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.