[dbsrgits/DBIx-Class.git] / t / cdbi / hasa_without_loading.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 Foo;

use base qw(DBIx::Class::CDBICompat);

eval {
    Foo->table("foo");
    Foo->columns(Essential => qw(foo bar));
    #Foo->has_a( bar => "This::Does::Not::Exist::Yet" );
};
#::is $@, '';
::is(Foo->table, "foo");
::is_deeply [sort map lc, Foo->columns], [sort map lc, qw(foo bar)];

::done_testing;
Commit	Line	Data
e60dc79f	1	use strict;
4a233f30	2	use warnings;
e60dc79f	3	use Test::More;
e60dc79f	4
d9bd5195	5	use lib 't/cdbi/testlib';
d9bd5195	6	use DBIC::Test::SQLite (); # this will issue the necessary SKIPs on missing reqs
e60dc79f	7
	8	package Foo;
	9
c0b5f828	10	use base qw(DBIx::Class::CDBICompat);
e60dc79f	11
	12	eval {
	13	Foo->table("foo");
	14	Foo->columns(Essential => qw(foo bar));
c0b5f828	15	#Foo->has_a( bar => "This::Does::Not::Exist::Yet" );
e60dc79f	16	};
c0b5f828	17	#::is $@, '';
e60dc79f	18	::is(Foo->table, "foo");
e60dc79f	19	::is_deeply [sort map lc, Foo->columns], [sort map lc, qw(foo bar)];
d9bd5195	20
d9bd5195	21	::done_testing;