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

use lib 't/cdbi/testlib';

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
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
83eef562	2	use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
83eef562	3
e60dc79f	4	use strict;
4a233f30	5	use warnings;
83eef562	6
e60dc79f	7	use Test::More;
e60dc79f	8
d9bd5195	9	use lib 't/cdbi/testlib';
e60dc79f	10
	11	package Foo;
	12
c0b5f828	13	use base qw(DBIx::Class::CDBICompat);
e60dc79f	14
	15	eval {
	16	Foo->table("foo");
	17	Foo->columns(Essential => qw(foo bar));
c0b5f828	18	#Foo->has_a( bar => "This::Does::Not::Exist::Yet" );
e60dc79f	19	};
c0b5f828	20	#::is $@, '';
e60dc79f	21	::is(Foo->table, "foo");
e60dc79f	22	::is_deeply [sort map lc, Foo->columns], [sort map lc, qw(foo bar)];
d9bd5195	23
d9bd5195	24	::done_testing;