Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

25 lines (19 sloc) 0.604 kb
use v6;
use Test;
plan 6;
my enum A (a => 'foo', b => 'bar');
is a.Str, 'foo', 'stringy enum first value';
is b.Str, 'bar', 'stringy enum first value';
eval_dies_ok 'my enum B (a => 1, b => "bar")',
'mixed type enums are forbidden';
#?rakudo todo 'NYI'
eval_lives_ok 'my Cool enum C (a => 1, b => "bar")',
'... unles that type covers both enum value types';
eval_dies_ok 'my Str enum D (a => 1)',
'violating an explict type constraint dies';
my enum E ( a => 'x', 'b');
is E::b.Str, 'y', 'Str enum correctly uses string-increment';
Jump to Line
Something went wrong with that request. Please try again.