t/26dump_use_moose.t

   1 use DBIx::Class::Schema::Loader::Optional::Dependencies
   2     -skip_all_without => 'use_moose';
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use lib qw(t/lib);
  10 use dbixcsl_dumper_tests;
  11 my $t = 'dbixcsl_dumper_tests';
  12
  13 $t->cleanup;
  14
  15 # first dump a fresh use_moose=1 schema
  16 $t->dump_test(
  17     classname => 'DBICTest::DumpMore::1',
  18     options => {
  19         use_moose => 1,
  20         result_base_class => 'My::ResultBaseClass',
  21         schema_base_class => 'My::SchemaBaseClass',
  22         result_roles => ['TestRole', 'TestRole2'],
  23     },
  24     regexes => {
  25         schema => [
  26             qr/\nuse Moose;\nuse MooseX::MarkAsMethods autoclean => 1;\nextends 'My::SchemaBaseClass';\n\n/,
  27             qr/\n__PACKAGE__->meta->make_immutable\(inline_constructor => 0\);\n1;(?!\n1;\n)\n.*/,
  28         ],
  29         Foo => [
  30             qr/\nuse Moose;\nuse MooseX::NonMoose;\nuse MooseX::MarkAsMethods autoclean => 1;\nextends 'My::ResultBaseClass';\n\n/,
  31             qr/=head1 L<Moose> ROLES APPLIED\n\n=over 4\n\n=item \* L<TestRole>\n\n=item \* L<TestRole2>\n\n=back\n\n=cut\n\n/,
  32             qr/\nwith 'TestRole', 'TestRole2';\n\n/,
  33             qr/\n__PACKAGE__->meta->make_immutable;\n1;(?!\n1;\n)\n.*/,
  34         ],
  35         Bar => [
  36             qr/\nuse Moose;\nuse MooseX::NonMoose;\nuse MooseX::MarkAsMethods autoclean => 1;\nextends 'My::ResultBaseClass';\n\n/,
  37             qr/=head1 L<Moose> ROLES APPLIED\n\n=over 4\n\n=item \* L<TestRole>\n\n=item \* L<TestRole2>\n\n=back\n\n=cut\n\n/,
  38             qr/\nwith 'TestRole', 'TestRole2';\n\n/,
  39             qr/\n__PACKAGE__->meta->make_immutable;\n1;(?!\n1;\n)\n.*/,
  40         ],
  41     },
  42 );
  43
  44 $t->cleanup;
  45
  46 # check protect_overloads works as expected
  47 $t->dump_test(
  48     classname => 'DBICTest::DumpMore::1',
  49     options => {
  50         use_moose      => 1,
  51         only_autoclean => 1,
  52     },
  53     regexes => {
  54         schema => [
  55             qr/\nuse namespace::autoclean;\n/,
  56         ],
  57         Foo => [
  58             qr/\nuse namespace::autoclean;\n/,
  59         ],
  60     },
  61 );
  62
  63 $t->cleanup;
  64
  65 # now upgrade a fresh non-moose schema to use_moose=1
  66 $t->dump_test(
  67     classname => 'DBICTest::DumpMore::1',
  68     options => {
  69         use_moose => 0,
  70         result_base_class => 'My::ResultBaseClass',
  71         schema_base_class => 'My::SchemaBaseClass',
  72     },
  73     regexes => {
  74         schema => [
  75             qr/\nuse base 'My::SchemaBaseClass';\n/,
  76         ],
  77         Foo => [
  78             qr/\nuse base 'My::ResultBaseClass';\n/,
  79         ],
  80         Bar => [
  81             qr/\nuse base 'My::ResultBaseClass';\n/,
  82         ],
  83     },
  84 );
  85
  86 # check that changed custom content is upgraded for Moose bits
  87 $t->append_to_class('DBICTest::DumpMore::1::Foo', q{# XXX This is my custom content XXX});
  88
  89 $t->dump_test(
  90     classname => 'DBICTest::DumpMore::1',
  91     options => {
  92         use_moose => 1,
  93         result_base_class => 'My::ResultBaseClass',
  94         schema_base_class => 'My::SchemaBaseClass',
  95     },
  96     regexes => {
  97         schema => [
  98             qr/\nuse Moose;\nuse MooseX::MarkAsMethods autoclean => 1;\nextends 'My::SchemaBaseClass';\n\n/,
  99             qr/\n__PACKAGE__->meta->make_immutable\(inline_constructor => 0\);\n1;(?!\n1;\n)\n.*/,
 100         ],
 101         Foo => [
 102             qr/\nuse Moose;\nuse MooseX::NonMoose;\nuse MooseX::MarkAsMethods autoclean => 1;\nextends 'My::ResultBaseClass';\n\n/,
 103             qr/\n__PACKAGE__->meta->make_immutable;\n1;(?!\n1;\n)\n.*/,
 104             qr/# XXX This is my custom content XXX/,
 105         ],
 106         Bar => [
 107             qr/\nuse Moose;\nuse MooseX::NonMoose;\nuse MooseX::MarkAsMethods autoclean => 1;\nextends 'My::ResultBaseClass';\n\n/,
 108             qr/\n__PACKAGE__->meta->make_immutable;\n1;(?!\n1;\n)\n.*/,
 109         ],
 110     },
 111 );
 112
 113 $t->cleanup;
 114
 115 # check with a fresh non-moose schema that Moose custom content added to a use_moose=0 schema is not repeated
 116 $t->dump_test(
 117     classname => 'DBICTest::DumpMore::1',
 118     options => {
 119         result_base_class => 'My::ResultBaseClass',
 120         schema_base_class => 'My::SchemaBaseClass',
 121     },
 122     regexes => {
 123         schema => [
 124             qr/\nuse base 'My::SchemaBaseClass';\n/,
 125         ],
 126         Foo => [
 127             qr/\nuse base 'My::ResultBaseClass';\n/,
 128         ],
 129         Bar => [
 130             qr/\nuse base 'My::ResultBaseClass';\n/,
 131         ],
 132     },
 133 );
 134
 135 # add Moose custom content then check it is not repeated
 136 # after that regen again *without* the use_moose flag, make
 137 # sure moose isn't stripped away
 138 $t->append_to_class('DBICTest::DumpMore::1::Foo', qq{use Moose;\n__PACKAGE__->meta->make_immutable;\n1;\n});
 139
 140 for my $supply_use_moose (1, 0) {
 141     $t->dump_test(
 142         classname => 'DBICTest::DumpMore::1',
 143         options => {
 144             $supply_use_moose ? (use_moose => 1) : (),
 145             result_base_class => 'My::ResultBaseClass',
 146             schema_base_class => 'My::SchemaBaseClass',
 147         },
 148         regexes => {
 149             schema => [
 150                 qr/\nuse Moose;\nuse MooseX::MarkAsMethods autoclean => 1;\nextends 'My::SchemaBaseClass';\n\n/,
 151                 qr/\n__PACKAGE__->meta->make_immutable\(inline_constructor => 0\);\n1;(?!\n1;\n)\n.*/,
 152             ],
 153             Foo => [
 154                 qr/\nuse Moose;\nuse MooseX::NonMoose;\nuse MooseX::MarkAsMethods autoclean => 1;\nextends 'My::ResultBaseClass';\n\n/,
 155                 qr/\n__PACKAGE__->meta->make_immutable;\n1;(?!\n1;\n)\n.*/,
 156             ],
 157             Bar => [
 158                 qr/\nuse Moose;\nuse MooseX::NonMoose;\nuse MooseX::MarkAsMethods autoclean => 1;\nextends 'My::ResultBaseClass';\n\n/,
 159                 qr/\n__PACKAGE__->meta->make_immutable;\n1;(?!\n1;\n)\n.*/,
 160             ],
 161         },
 162         neg_regexes => {
 163             Foo => [
 164                 #        qr/\nuse Moose;\n.*\nuse Moose;/s, # TODO
 165                 qr/\n__PACKAGE__->meta->make_immutable;\n.*\n__PACKAGE__->meta->make_immutable;/s,
 166             ],
 167         },
 168     );
 169 }
 170
 171 # check that a moose schema can *not* be downgraded
 172
 173 $t->dump_test (
 174     classname => 'DBICTest::DumpMore::1',
 175     options => {
 176         use_moose => 0,
 177         result_base_class => 'My::ResultBaseClass',
 178         schema_base_class => 'My::SchemaBaseClass',
 179     },
 180     error => qr/\QIt is not possible to "downgrade" a schema that was loaded with use_moose => 1\E/,
 181 );
 182
 183 done_testing;