t/cdbi/early_column_heisenbug.t

   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: $@" if $@;
   8 }
   9
  10
  11 {
  12     package Thing;
  13     use base qw(DBIx::Class::CDBICompat);
  14 }
  15
  16 {
  17     package Stuff;
  18     use base qw(DBIx::Class::CDBICompat);
  19 }
  20
  21 # There was a bug where looking at a column group before any were
  22 # set would cause them to be shared across classes.
  23 is_deeply [Stuff->columns("Essential")], [];
  24 Thing->columns(Essential => qw(foo bar baz));
  25 is_deeply [Stuff->columns("Essential")], [];
  26
  27 done_testing;