X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcdbi-t%2F08-inheritcols.t;fp=t%2Fcdbi-t%2F08-inheritcols.t;h=0000000000000000000000000000000000000000;hb=50891152d0b24649bfd67bdba97feec86b11c064;hp=af294248517e36de48ed83263359d6bec48fe2c3;hpb=23209c4474d71e419b3fcf9699ae05565c2997f5;p=dbsrgits%2FDBIx-Class.git diff --git a/t/cdbi-t/08-inheritcols.t b/t/cdbi-t/08-inheritcols.t deleted file mode 100644 index af29424..0000000 --- a/t/cdbi-t/08-inheritcols.t +++ /dev/null @@ -1,27 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use Test::More; - -BEGIN { - eval "use DBIx::Class::CDBICompat;"; - plan $@ ? (skip_all => 'Class::Trigger and DBIx::ContextualFetch required') - : (tests=> 3); -} - -package A; -@A::ISA = qw(DBIx::Class::CDBICompat); -__PACKAGE__->columns(Primary => 'id'); - -package A::B; -@A::B::ISA = 'A'; -__PACKAGE__->columns(All => qw(id b1)); - -package A::C; -@A::C::ISA = 'A'; -__PACKAGE__->columns(All => qw(id c1 c2 c3)); - -package main; -is join (' ', sort A->columns), 'id', "A columns"; -is join (' ', sort A::B->columns), 'b1 id', "A::B columns"; -is join (' ', sort A::C->columns), 'c1 c2 c3 id', "A::C columns";