t/cdbi/hasa_without_loading.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use lib 't/cdbi/testlib';
   6 use DBIC::Test::SQLite (); # this will issue the necessary SKIPs on missing reqs
   7
   8 package Foo;
   9
  10 use base qw(DBIx::Class::CDBICompat);
  11
  12 eval {
  13     Foo->table("foo");
  14     Foo->columns(Essential => qw(foo bar));
  15     #Foo->has_a( bar => "This::Does::Not::Exist::Yet" );
  16 };
  17 #::is $@, '';
  18 ::is(Foo->table, "foo");
  19 ::is_deeply [sort map lc, Foo->columns], [sort map lc, qw(foo bar)];
  20
  21 ::done_testing;