X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F60dbicdump_config.t;h=48168a61ac9d7b984132889be33f4a8e8b4a0be3;hb=112415f1a0c30d7fb77412b91da7890e54b43393;hp=12c51532e1d24ecc462e87419e4bd3988549d754;hpb=ffe289c93235834aac8e8c59afbbd585ed3015d5;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/t/60dbicdump_config.t b/t/60dbicdump_config.t index 12c5153..48168a6 100644 --- a/t/60dbicdump_config.t +++ b/t/60dbicdump_config.t @@ -5,8 +5,10 @@ use warnings; use Test::More; use File::Path qw/make_path rmtree/; -use DBIx::Class::Schema::Loader::Optional::Dependencies (); use DBIx::Class::Schema::Loader::Utils 'slurp_file'; +use Try::Tiny; +use namespace::clean; +use DBIx::Class::Schema::Loader::Optional::Dependencies (); use lib 't/lib'; use make_dbictest_db (); use dbixcsl_test_dir '$tdir'; @@ -31,14 +33,17 @@ open my $fh, '>', $config_file print $fh <<"EOF"; schema_class DBICTest::Schema +lib t/lib + dsn $make_dbictest_db::dsn - dump_directory $dump_path - components InflateColumn::DateTime - quiet 1 + dump_directory $dump_path + components InflateColumn::DateTime + schema_base_class TestSchemaBaseClass + quiet 1 EOF @@ -49,7 +54,7 @@ system $^X, 'script/dbicdump', $config_file; is $? >> 8, 0, 'dbicdump executed successfully'; -my $foo = slurp_file "$dump_path/DBICTest/Schema/Result/Foo.pm"; +my $foo = try { slurp_file "$dump_path/DBICTest/Schema/Result/Foo.pm" } || ''; like $foo, qr/InflateColumn::DateTime/, 'loader options read correctly from config_file';