1use strict;
2
3use Test::More;
4
5BEGIN {
6  eval "use DBIx::Class::CDBICompat;";
7  plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
8          : ('no_plan');
9}
10
11
12{
13    package Thing;
14    use base qw(DBIx::Class::CDBICompat);
15}
16
17{
18    package Stuff;
19    use base qw(DBIx::Class::CDBICompat);
20}
21
22# There was a bug where looking at a column group before any were
23# set would cause them to be shared across classes.
24is_deeply [Stuff->columns("Essential")], [];
25Thing->columns(Essential => qw(foo bar baz));
26is_deeply [Stuff->columns("Essential")], [];
27
281;
29