14 has 'foo' => ( is => 'rw', default => q{'} );
15 has 'bar' => ( is => 'rw', default => q{\\} );
16 has 'baz' => ( is => 'rw', default => q{"} );
17 has 'buz' => ( is => 'rw', default => q{"'\\} );
18 has 'faz' => ( is => 'rw', default => qq{\0} );
20 ::is( ::exception { __PACKAGE__->meta->make_immutable }, undef, 'no errors making a package immutable when it has default values that could break quoting' );
25 'default value for foo attr' );
27 'default value for bar attr' );
29 'default value for baz attr' );
30 is( $foo->buz, q{"'\\},
31 'default value for buz attr' );
32 is( $foo->faz, qq{\0},
33 'default value for faz attr' );
36 # Lazy attrs were never broken, but it doesn't hurt to test that they
37 # won't be broken by any future changes.
38 # Also make sure that attributes stay lazy even after being immutable
45 has 'foo' => ( is => 'rw', default => q{'}, lazy => 1 );
46 has 'bar' => ( is => 'rw', default => q{\\}, lazy => 1 );
47 has 'baz' => ( is => 'rw', default => q{"}, lazy => 1 );
48 has 'buz' => ( is => 'rw', default => q{"'\\}, lazy => 1 );
49 has 'faz' => ( is => 'rw', default => qq{\0}, lazy => 1 );
53 ::ok(!$bar->meta->get_attribute($_)->has_value($bar),
54 "Attribute $_ has no value")
55 for qw(foo bar baz buz faz);
58 ::is( ::exception { __PACKAGE__->meta->make_immutable }, undef, 'no errors making a package immutable when it has lazy default values that could break quoting' );
62 ::ok(!$bar->meta->get_attribute($_)->has_value($bar),
63 "Attribute $_ has no value (immutable)")
64 for(qw(foo bar baz buz faz));
71 'default value for foo attr' );
73 'default value for bar attr' );
75 'default value for baz attr' );
76 is( $bar->buz, q{"'\\},
77 'default value for buz attr' );
78 is( $bar->faz, qq{\0},
79 'default value for faz attr' );