t/cdbi/hasa_without_loading.t

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