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: $@")
   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;