t/39load_namespaces_rt41083.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More;
   6
   7 use lib 't/lib';
   8
   9 plan tests => 4;
  10
  11 sub _chk_warning {
  12         defined $_[0]?
  13                 $_[0] !~ qr/We found ResultSet class '([^']+)' for '([^']+)', but it seems that you had already set '([^']+)' to use '([^']+)' instead/ :
  14                 1
  15 }
  16
  17 my $warnings;
  18 eval {
  19     local $SIG{__WARN__} = sub { $warnings .= shift };
  20     package DBICNSTest::RtBug41083;
  21     use base 'DBIx::Class::Schema';
  22     __PACKAGE__->load_namespaces(
  23         result_namespace => 'Schema_A',
  24         resultset_namespace => 'ResultSet_A',
  25         default_resultset_class => 'ResultSet'
  26     );
  27 };
  28 ok(!$@) or diag $@;
  29 ok(_chk_warning($warnings), 'expected no complaint');
  30
  31 eval {
  32     local $SIG{__WARN__} = sub { $warnings .= shift };
  33     package DBICNSTest::RtBug41083;
  34     use base 'DBIx::Class::Schema';
  35     __PACKAGE__->load_namespaces(
  36         result_namespace => 'Schema',
  37         resultset_namespace => 'ResultSet',
  38         default_resultset_class => 'ResultSet'
  39     );
  40 };
  41 ok(!$@) or diag $@;
  42 ok(_chk_warning($warnings), 'expected no complaint') or diag $warnings;