t/cdbi/hasa_without_loading.t

   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')
   7           : (tests=> 2);
   8 }
   9
  10 package Foo;
  11
  12 use base qw(DBIx::Class::CDBICompat);
  13
  14 eval {
  15     Foo->table("foo");
  16     Foo->columns(Essential => qw(foo bar));
  17     #Foo->has_a( bar => "This::Does::Not::Exist::Yet" );
  18 };
  19 #::is $@, '';
  20 ::is(Foo->table, "foo");
  21 ::is_deeply [sort map lc, Foo->columns], [sort map lc, qw(foo bar)];