t/cdbi/early_column_heisenbug.t

   1 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 {
   9     package Thing;
  10     use base qw(DBIx::Class::CDBICompat);
  11 }
  12
  13 {
  14     package Stuff;
  15     use base qw(DBIx::Class::CDBICompat);
  16 }
  17
  18 # There was a bug where looking at a column group before any were
  19 # set would cause them to be shared across classes.
  20 is_deeply [Stuff->columns("Essential")], [];
  21 Thing->columns(Essential => qw(foo bar baz));
  22 is_deeply [Stuff->columns("Essential")], [];
  23
  24 done_testing;