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

#!/usr/bin/perl -w

use strict;
use Test::More;

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

package Foo;

use base qw(Class::DBI);

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