2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
9 package Test::Mouse::Go::Boom;
16 default => '019600', # this caused the original failure
21 __PACKAGE__->meta->make_immutable;
25 $@ ? ::fail($@) : ::pass('quoted 019600 default works');
26 my $obj = Test::Mouse::Go::Boom->new;
27 ::is( $obj->id, '019600', 'value is still the same' );
32 package Test::Mouse::Go::Boom2;
44 __PACKAGE__->meta->make_immutable;
48 $@ ? ::fail($@) : ::pass('017600 octal default works');
49 my $obj = Test::Mouse::Go::Boom2->new;
50 ::is( $obj->id, 8064, 'value is still the same' );
55 package Test::Mouse::Go::Boom3;
67 __PACKAGE__->meta->make_immutable;
71 $@ ? ::fail($@) : ::pass('017600 octal default works');
72 my $obj = Test::Mouse::Go::Boom3->new;
73 ::is( $obj->id, 255, 'value is still the same' );
78 package Test::Mouse::Go::Boom4;
90 __PACKAGE__->meta->make_immutable;
94 $@ ? ::fail($@) : ::pass('017600 octal default works');
95 my $obj = Test::Mouse::Go::Boom4->new;
96 ::is( $obj->id, '0xFF', 'value is still the same' );
101 package Test::Mouse::Go::Boom5;
108 default => '0 but true',
113 __PACKAGE__->meta->make_immutable;
117 $@ ? ::fail($@) : ::pass('017600 octal default works');
118 my $obj = Test::Mouse::Go::Boom5->new;
119 ::is( $obj->id, '0 but true', 'value is still the same' );