X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F23dumpmore.t;h=9490b2fd2fe540e6bc06c860c8ca11aa383a05b0;hb=a6331db282870a45464ce129b76b3d5ae99e1b71;hp=a1cd0cd085887e2d3a57aecd109734f6f9d3fd59;hpb=6d358d5830e93cbb969f4fec62d499d15f9a23e8;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/t/23dumpmore.t b/t/23dumpmore.t index a1cd0cd..9490b2f 100644 --- a/t/23dumpmore.t +++ b/t/23dumpmore.t @@ -1,9 +1,9 @@ -use warnings; use strict; - -use File::Temp (); +use warnings; use Test::More; - +use DBIx::Class::Schema::Loader::Utils qw/slurp_file write_file/; +use namespace::clean; +use File::Temp (); use lib qw(t/lib); use dbixcsl_dumper_tests; my $t = 'dbixcsl_dumper_tests'; @@ -157,7 +157,7 @@ $t->dump_test( $t->cleanup; -# test out the POD +# test out the POD and "use utf8;" $t->dump_test( classname => 'DBICTest::DumpMore::1', options => { @@ -173,10 +173,12 @@ $t->dump_test( }, regexes => { schema => [ + qr/^use utf8;\n/, qr/package DBICTest::DumpMore::1;/, qr/->load_classes/, ], Foo => [ + qr/^use utf8;\n/, qr/package DBICTest::DumpMore::1::Foo;/, qr/\n=head1 NAME\n\nDBICTest::DumpMore::1::Foo\n\n=cut\n\nuse strict;\nuse warnings;\n\n/, qr/\n=head1 BASE CLASS: L\n\n=cut\n\nuse base 'My::ResultBaseClass';\n\n/, @@ -187,13 +189,14 @@ $t->dump_test( qr/\n=head1 TABLE: C\n\n=cut\n\n__PACKAGE__->table\("foo"\);\n\n/, qr/\n=head1 ACCESSORS\n\n/, qr/\n=head2 fooid\n\n data_type: 'integer'\n is_auto_increment: 1\n is_nullable: 0\n\n/, - qr/\n=head2 footext\n\n data_type: 'text'\n default_value: 'footext'\n extra: {is_footext => 1}\n is_nullable: 1\n\n/, + qr/\n=head2 footext\n\n data_type: 'text'\n default_value: 'footext'\n extra: \{is_footext => 1\}\n is_nullable: 1\n\n/, qr/\n=head1 PRIMARY KEY\n\n=over 4\n\n=item \* L<\/fooid>\n\n=back\n\n=cut\n\n__PACKAGE__->set_primary_key\("fooid"\);\n/, qr/\n=head1 RELATIONS\n\n/, qr/\n=head2 bars\n\nType: has_many\n\nRelated object: L\n\n=cut\n\n/, qr/1;\n$/, ], Bar => [ + qr/^use utf8;\n/, qr/package DBICTest::DumpMore::1::Bar;/, qr/\n=head1 NAME\n\nDBICTest::DumpMore::1::Bar\n\n=cut\n\nuse strict;\nuse warnings;\n\n/, qr/\n=head1 BASE CLASS: L\n\n=cut\n\nuse base 'My::ResultBaseClass';\n\n/, @@ -302,6 +305,29 @@ $t->dump_test( }, ); +# test qualify_objects +$t->dump_test( + classname => 'DBICTest::DumpMore::1', + options => { + db_schema => [ 'foo_schema', 'bar_schema' ], + qualify_objects => 0, + use_namespaces => 1, + }, + warnings => [ + qr/^db_schema is not supported on SQLite/, + ], + regexes => { + 'Result/Foo' => [ + # the table name should not include the db schema + qr/^\Q__PACKAGE__->table("foo");\E/m, + ], + 'Result/Bar' => [ + # the table name should not include the db schema + qr/^\Q__PACKAGE__->table("bar");\E/m, + ], + }, +); + # test moniker_parts $t->dump_test( classname => 'DBICTest::DumpMore::1', @@ -317,12 +343,110 @@ $t->dump_test( regexes => { 'Result/MySchemaFoo' => [ qr/^\Q__PACKAGE__->table("my_schema.foo");\E/m, - # the has_many relname should not have the schema in it! + # the has_many relname should not have the schema in it, but the class should + qr/^__PACKAGE__->has_many\(\n "bars",\n "DBICTest::DumpMore::1::Result::MySchemaBar"/m, + ], + }, +); + +# test moniker_part_separator +$t->dump_test( + classname => 'DBICTest::DumpMore::1', + options => { + db_schema => 'my_schema', + moniker_parts => ['_schema', 'name'], + moniker_part_separator => '::', + qualify_objects => 1, + use_namespaces => 1, + }, + warnings => [ + qr/^db_schema is not supported on SQLite/, + ], + regexes => { + 'Result/MySchema/Foo' => [ + qr/^package DBICTest::DumpMore::1::Result::MySchema::Foo;/m, + qr/^\Q__PACKAGE__->table("my_schema.foo");\E/m, + # the has_many relname should not have the schema in it, but the class should + qr/^__PACKAGE__->has_many\(\n "bars",\n "DBICTest::DumpMore::1::Result::MySchema::Bar"/m, + ], + }, +); + +# test moniker_part_separator + moniker_map + recursive constraints +$t->dump_test( + classname => 'DBICTest::DumpMore::1', + options => { + db_schema => 'my_schema', + moniker_parts => ['_schema', 'name'], + moniker_part_separator => '::', + qualify_objects => 1, + use_namespaces => 1, + moniker_map => { + my_schema => { foo => "MySchema::Floop" }, + }, + constraint => [ [ qr/my_schema/ => qr/foo|bar/ ] ], + exclude => [ [ qr/my_schema/ => qr/bar/ ] ], + }, + generated_results => [qw(MySchema::Floop)], + warnings => [ + qr/^db_schema is not supported on SQLite/, + ], + regexes => { + 'Result/MySchema/Floop' => [ + qr/^package DBICTest::DumpMore::1::Result::MySchema::Floop;/m, + qr/^\Q__PACKAGE__->table("my_schema.foo");\E/m, + ], + }, + neg_regexes => { + 'Result/MySchema/Floop' => [ + # the bar table should not be loaded, so no relationship should exist qr/^__PACKAGE__->has_many\(\n "bars"/m, ], }, ); +# test moniker_map + moniker_part_map +$t->dump_test( + classname => 'DBICTest::DumpMore::1', + options => { + db_schema => 'my_schema', + moniker_parts => ['_schema', 'name'], + moniker_part_separator => '::', + moniker_part_map => { + _schema => { + my_schema => 'OtherSchema', + }, + }, + moniker_map => { + my_schema => { + foo => 'MySchema::Floop', + }, + }, + qualify_objects => 1, + use_namespaces => 1, + }, + warnings => [ + qr/^db_schema is not supported on SQLite/, + ], + regexes => { + 'Result/MySchema/Floop' => [ + qr/^package DBICTest::DumpMore::1::Result::MySchema::Floop;/m, + qr/^\Q__PACKAGE__->table("my_schema.foo");\E/m, + # the has_many relname should not have the schema in it, but the class should + qr/^__PACKAGE__->has_many\(\n "bars",\n "DBICTest::DumpMore::1::Result::OtherSchema::Bar"/m, + ], + 'Result/OtherSchema/Bar' => [ + qr/^package DBICTest::DumpMore::1::Result::OtherSchema::Bar;/m, + qr/^\Q__PACKAGE__->table("my_schema.bar");\E/m, + # the has_many relname should not have the schema in it, but the class should + qr/^__PACKAGE__->belongs_to\(\n "fooref",\n "DBICTest::DumpMore::1::Result::MySchema::Floop"/m, + ], + + }, +); + + + $t->dump_test( classname => 'DBICTest::DumpMore::1', options => { @@ -430,5 +554,91 @@ $t->dump_test( ], ); +# test fix for RT#70507 (end comment and 1; gets lost if left with actual +# custom content) + +$t->dump_test( + classname => 'DBICTest::DumpMore::Upgrade', + options => { + use_namespaces => 0, + }, +); + +my $file = $t->class_file('DBICTest::DumpMore::Upgrade::Foo'); + +my $code = slurp_file $file; + +$code =~ s/(?=# You can replace)/sub custom_method { 'custom_method works' }\n0;\n\n/; + +write_file $file, $code; + +$t->dump_test( + classname => 'DBICTest::DumpMore::Upgrade', + options => { + use_namespaces => 1, + }, + generated_results => [qw(Foo Bar)], + regexes => { + 'Result/Foo' => [ + qr/sub custom_method \{ 'custom_method works' \}\n0;\n\n# You can replace.*\n1;\n\z/, + ], + }, +); + +# test dry-run mode +$t->dump_test( + classname => 'DBICTest::DumpMore::DryRun', + options => { + dry_run => 1, + }, + generated_results => [qw(Foo Bar)], +); + +my $schema_file = $t->class_file('DBICTest::DumpMore::DryRun'); +ok( !-e $schema_file, "dry-run doesn't create file for schema class" ); +(my $schema_dir = $schema_file) =~ s/\.pm\z//; +ok( !-e $schema_dir, "dry-run doesn't create subdirectory for schema namespace" ); + +# test omit_version (RT#92300) +$t->dump_test( + classname => 'DBICTest::DumpMore::omit_version', + options => { + omit_version => 1, + }, + regexes => { + Foo => [ + qr/^\# Created by DBIx::Class::Schema::Loader @ \d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d$/m, + ], + }, +); + +# test omit_timestamp (RT#92300) +$t->dump_test( + classname => 'DBICTest::DumpMore::omit_timestamp', + options => { + omit_timestamp => 1, + }, + regexes => { + Foo => [ + qr/^\# Created by DBIx::Class::Schema::Loader v[\d.]+$/m, + ], + }, +); + +# test omit_version and omit_timestamp simultaneously (RT#92300) +$t->dump_test( + classname => 'DBICTest::DumpMore::omit_both', + options => { + omit_version => 1, + omit_timestamp => 1, + }, + # A positive regex here would match the top comment + neg_regexes => { + Foo => [ + qr/^\# Created by DBIx::Class::Schema::Loader.+$/m, + ], + }, +); + done_testing; # vim:et sts=4 sw=4 tw=0: