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;
17 has 'foo' => ( is => 'rw', default => q{'} );
18 has 'bar' => ( is => 'rw', default => q{\\} );
19 has 'baz' => ( is => 'rw', default => q{"} );
20 has 'buz' => ( is => 'rw', default => q{"'\\} );
21 has 'faz' => ( is => 'rw', default => qq{\0} );
23 ::lives_ok { __PACKAGE__->meta->make_immutable }
24 'no errors making a package immutable when it has default values that could break quoting';
29 'default value for foo attr' );
31 'default value for bar attr' );
33 'default value for baz attr' );
34 is( $foo->buz, q{"'\\},
35 'default value for buz attr' );
36 is( $foo->faz, qq{\0},
37 'default value for faz attr' );
40 # Lazy attrs were never broken, but it doesn't hurt to test that they
41 # won't be broken by any future changes.
47 has 'foo' => ( is => 'rw', default => q{'}, lazy => 1 );
48 has 'bar' => ( is => 'rw', default => q{\\}, lazy => 1 );
49 has 'baz' => ( is => 'rw', default => q{"}, lazy => 1 );
50 has 'buz' => ( is => 'rw', default => q{"'\\}, lazy => 1 );
51 has 'faz' => ( is => 'rw', default => qq{\0}, lazy => 1 );
53 ::lives_ok { __PACKAGE__->meta->make_immutable }
54 'no errors making a package immutable when it has lazy default values that could break quoting';
59 'default value for foo attr' );
61 'default value for bar attr' );
63 'default value for baz attr' );
64 is( $bar->buz, q{"'\\},
65 'default value for buz attr' );
66 is( $bar->faz, qq{\0},
67 'default value for faz attr' );