First stab at restructuring with tests_recursive() - no functional changes

[dbsrgits/DBIx-Class.git] / t / cdbi-t / 08-inheritcols.t

diff --git a/t/cdbi-t/08-inheritcols.t b/t/cdbi-t/08-inheritcols.t
deleted file mode 100644 (file)
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";