use strict;
-use Test::More tests => 25;
+use Test::More;
+
+BEGIN {
+ eval "use DBIx::Class::CDBICompat;";
+ plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@") : (tests=> 24);
+}
+
#-----------------------------------------------------------------------
# Make sure that we can set up columns properly
#-----------------------------------------------------------------------
package State;
-use base 'DBIx::Class';
+use base 'DBIx::Class::Test::SQLite';
State->table('State');
State->columns(Essential => qw/Abbreviation Name/);
package City;
-use base 'DBIx::Class';
+use base 'DBIx::Class::Test::SQLite';
City->table('City');
City->columns(All => qw/Name State Population/);
-City->has_a(State => 'State');
+{
+ # Disable the `no such table' warning
+ local $SIG{__WARN__} = sub {
+ my $warning = shift;
+ warn $warning unless ($warning =~ /\Qno such table: City(1)\E/);
+ };
+
+ City->has_a(State => 'State');
+}
#-------------------------------------------------------------------------
package CD;
-use base 'DBIx::Class';
+use base 'DBIx::Class::Test::SQLite';
CD->table('CD');
CD->columns('All' => qw/artist title length/);
my @grps = sort State->__grouper->groups_for(State->_find_columns(qw/rain capital/));
is @grps, 2, "Rain and Capital = 2 groups";
- @grps = sort @grps; # Because DBIx::Class is hash-based
+ @grps = sort @grps; # Because the underlying API is hash-based
is $grps[0], 'Other', " - Other";
is $grps[1], 'Weather', " - Weather";
}
-SKIP: {
- local $SIG{__WARN__} = sub { };
- eval { DBIx::Class->retrieve(1) };
- like $@, qr/Can't retrieve unless primary columns are defined/, "Need primary key for retrieve";
-}
+#{
+#
+# package DieTest;
+# @DieTest::ISA = qw(DBIx::Class);
+# DieTest->load_components(qw/CDBICompat::Retrieve Core/);
+# package main;
+# local $SIG{__WARN__} = sub { };
+# eval { DieTest->retrieve(1) };
+# like $@, qr/unless primary columns are defined/, "Need primary key for retrieve";
+#}
#-----------------------------------------------------------------------
# Make sure that columns inherit properly
package A;
@A::ISA = qw(DBIx::Class);
+__PACKAGE__->load_components(qw/CDBICompat Core/);
+__PACKAGE__->table('dummy');
__PACKAGE__->columns(Primary => 'id');
package A::B;
@A::B::ISA = 'A';
+__PACKAGE__->table('dummy2');
__PACKAGE__->columns(All => qw(id b1));
package A::C;
@A::C::ISA = 'A';
+__PACKAGE__->table('dummy3');
__PACKAGE__->columns(All => qw(id c1 c2 c3));
package main;