Commit | Line | Data |
96eab6f8 |
1 | use strict; |
2 | |
3 | use Test::More; |
4 | |
5 | BEGIN { |
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. |
24 | is_deeply [Stuff->columns("Essential")], []; |
25 | Thing->columns(Essential => qw(foo bar baz)); |
26 | is_deeply [Stuff->columns("Essential")], []; |
27 | |
28 | 1; |