eval {
local $SIG{__WARN__} = sub { $warnings .= shift };
package DBICTest::Schema;
- use base qw/DBIx::Class::Schema/;
+ use base qw/DBICTest::BaseSchema/;
__PACKAGE__->load_classes;
};
ok(!$@, 'Loaded all loadable classes') or diag $@;
eval {
local $SIG{__WARN__} = sub { $warnings .= shift };
package DBICNSTest;
- use base qw/DBIx::Class::Schema/;
+ use base qw/DBICTest::BaseSchema/;
__PACKAGE__->load_namespaces;
};
ok(!$@, 'load_namespaces doesnt die') or diag $@;
eval {
local $SIG{__WARN__} = sub { $warnings .= shift };
package DBICNSTest;
- use base qw/DBIx::Class::Schema/;
+ use base qw/DBICTest::BaseSchema/;
__PACKAGE__->load_namespaces(
result_namespace => 'Rslt',
resultset_namespace => 'RSet',
lives_ok (sub {
warnings_exist ( sub {
package DBICNSTestOther;
- use base qw/DBIx::Class::Schema/;
+ use base qw/DBICTest::BaseSchema/;
__PACKAGE__->load_namespaces(
result_namespace => [ '+DBICNSTest::Rslt', '+DBICNSTest::OtherRslt' ],
resultset_namespace => '+DBICNSTest::RSet',
eval {
local $SIG{__WARN__} = sub { $warnings .= shift };
package DBICNSTest;
- use base qw/DBIx::Class::Schema/;
+ use base qw/DBICTest::BaseSchema/;
__PACKAGE__->load_namespaces( default_resultset_class => 'RSBase' );
};
ok(!$@) or diag $@;
eval {
package DBICNSTest;
- use base qw/DBIx::Class::Schema/;
+ use base qw/DBICTest::BaseSchema/;
__PACKAGE__->load_namespaces(
result_namespace => 'Bogus',
resultset_namespace => 'RSet',
eval {
local $SIG{__WARN__} = sub { $warnings .= shift };
package DBICNSTest::RtBug41083;
- use base 'DBIx::Class::Schema';
+ use base 'DBICTest::BaseSchema';
__PACKAGE__->load_namespaces(
result_namespace => 'Result_A',
resultset_namespace => 'ResultSet_A',
eval {
local $SIG{__WARN__} = sub { $warnings .= shift };
package DBICNSTest::RtBug41083;
- use base 'DBIx::Class::Schema';
+ use base 'DBICTest::BaseSchema';
__PACKAGE__->load_namespaces(
default_resultset_class => 'ResultSet'
);
{
package DBICTest::NS::Stress::Schema;
- use base qw/DBIx::Class::Schema/;
+ use base qw/DBICTest::BaseSchema/;
sub _findallmod {
return $_[1] eq ( __PACKAGE__ . '::Result' )
package My::Schema;
-use base qw/DBIx::Class::Schema/;
+use base qw/DBICTest::BaseSchema/;
My::Schema->register_class( Admin => 'My::Schema::Result::User::Admin' );
My::Schema->register_class( User => 'My::Schema::Result::User' );