use strict;
-use Test::More tests => 25;
+use Test::More tests => 24;
#-----------------------------------------------------------------------
# Make sure that we can set up columns properly
is $grps[1], 'Weather', " - Weather";
}
-{
- package DieTest;
- @DieTest::ISA = qw(DBIx::Class);
- DieTest->load_components(qw/Core/);
- package main;
- local $SIG{__WARN__} = sub { };
- eval { DieTest->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;