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

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';

use strict;
use warnings;

use Test::More;

{
    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
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
83eef562	2	use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
83eef562	3
96eab6f8	4	use strict;
4a233f30	5	use warnings;
96eab6f8	6
	7	use Test::More;
	8
96eab6f8	9	{
	10	package Thing;
	11	use base qw(DBIx::Class::CDBICompat);
	12	}
	13
	14	{
	15	package Stuff;
	16	use base qw(DBIx::Class::CDBICompat);
	17	}
	18
	19	# There was a bug where looking at a column group before any were
	20	# set would cause them to be shared across classes.
	21	is_deeply [Stuff->columns("Essential")], [];
	22	Thing->columns(Essential => qw(foo bar baz));
	23	is_deeply [Stuff->columns("Essential")], [];
	24
89bddb49	25	done_testing;