[dbsrgits/DBIx-Class.git] / t / cdbi / early_column_heisenbug.t

use strict;

use Test::More;

BEGIN {
  eval "use DBIx::Class::CDBICompat;";
  plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@" if $@;
}


{
    package Thing;
    use base qw(DBIx::Class::CDBICompat);
}

{
    package Stuff;
    use base qw(DBIx::Class::CDBICompat);
}

# There was a bug where looking at a column group before any were
# set would cause them to be shared across classes.
is_deeply [Stuff->columns("Essential")], [];
Thing->columns(Essential => qw(foo bar baz));
is_deeply [Stuff->columns("Essential")], [];

done_testing;
Commit	Line	Data
96eab6f8	1	use strict;
	2
	3	use Test::More;
	4
	5	BEGIN {
	6	eval "use DBIx::Class::CDBICompat;";
89bddb49	7	plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@" if $@;
96eab6f8	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
89bddb49	27	done_testing;