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

use strict;

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