2 use Test::More qw(no_plan);
5 package Test::Moose::Go::Boom;
12 default => '019600', # Moose doesn't quote this when inlining, an perl treats it as an octal ... and 9 isn't a valid octal
17 __PACKAGE__->meta->make_immutable;
21 $@ ? ::fail($@) : ::pass('quoted 019600 default works');
22 my $obj = Test::Moose::Go::Boom->new;
23 ::is($obj->id, '019600', 'value is still the same');
26 package Test::Moose::Go::Boom2;
33 default => 017600, # Moose doesn't quote this when inlining, an perl treats it as an octal ... and 9 isn't a valid octal
38 __PACKAGE__->meta->make_immutable;
43 $@ ? ::fail($@) : ::pass('017600 octal default works');
44 my $obj = Test::Moose::Go::Boom2->new;
45 ::is($obj->id, 8064, 'value is still the same');