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

use strict;
use warnings;

use Test::More;

use lib 't/cdbi/testlib';
use DBIC::Test::SQLite (); # this will issue the necessary SKIPs on missing reqs

{
    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;
4a233f30	2	use warnings;
96eab6f8	3
	4	use Test::More;
	5
d9bd5195	6	use lib 't/cdbi/testlib';
d9bd5195	7	use DBIC::Test::SQLite (); # this will issue the necessary SKIPs on missing reqs
96eab6f8	8
	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;