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

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
83eef562	1	use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
83eef562	2
96eab6f8	3	use strict;
4a233f30	4	use warnings;
96eab6f8	5
	6	use Test::More;
	7
96eab6f8	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
89bddb49	24	done_testing;