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

use strict;
use Test::More;

BEGIN {
  eval "use DBIx::Class::CDBICompat;";
  plan $@ ? (skip_all => 'Class::Trigger and DBIx::ContextualFetch required')
          : (tests=> 2);
}

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)];
Commit	Line	Data
e60dc79f	1	use strict;
	2	use Test::More;
	3
	4	BEGIN {
	5	eval "use DBIx::Class::CDBICompat;";
	6	plan $@ ? (skip_all => 'Class::Trigger and DBIx::ContextualFetch required')
c0b5f828	7	: (tests=> 2);
e60dc79f	8	}
	9
	10	package Foo;
	11
c0b5f828	12	use base qw(DBIx::Class::CDBICompat);
e60dc79f	13
	14	eval {
	15	Foo->table("foo");
	16	Foo->columns(Essential => qw(foo bar));
c0b5f828	17	#Foo->has_a( bar => "This::Does::Not::Exist::Yet" );
e60dc79f	18	};
c0b5f828	19	#::is $@, '';
e60dc79f	20	::is(Foo->table, "foo");
e60dc79f	21	::is_deeply [sort map lc, Foo->columns], [sort map lc, qw(foo bar)];