t/cdbi/24-meta_info.t

   1 use strict;
   2 use Test::More;
   3 use Test::Warn;
   4
   5 use lib 't/cdbi/testlib';
   6 use DBIC::Test::SQLite (); # this will issue the necessary SKIPs on missing reqs
   7
   8 package Temp::DBI;
   9 use base qw(DBIx::Class::CDBICompat);
  10 Temp::DBI->columns(All => qw(id date));
  11
  12 my $strptime_inflate = sub {
  13     Time::Piece->strptime(shift, "%Y-%m-%d")
  14 };
  15 Temp::DBI->has_a(
  16     date => 'Time::Piece',
  17     inflate => $strptime_inflate
  18 );
  19
  20
  21 package Temp::Person;
  22 use base 'Temp::DBI';
  23 Temp::Person->table('people');
  24 Temp::Person->columns(Info => qw(name pet));
  25 Temp::Person->has_a( pet => 'Temp::Pet' );
  26
  27 package Temp::Pet;
  28 use base 'Temp::DBI';
  29 Temp::Pet->table('pets');
  30 Temp::Pet->columns(Info => qw(name));
  31 Temp::Pet->has_many(owners => 'Temp::Person');
  32
  33 package main;
  34
  35 {
  36     my $pn_meta = Temp::Person->meta_info('has_a');
  37     is_deeply [sort keys %$pn_meta], [qw/date pet/], "Person has Date and Pet";
  38 }
  39
  40 {
  41     my $pt_meta = Temp::Pet->meta_info;
  42     is_deeply [keys %{$pt_meta->{has_a}}], [qw/date/], "Pet has Date";
  43     is_deeply [keys %{$pt_meta->{has_many}}], [qw/owners/], "And owners";
  44 }
  45
  46 {
  47     my $pet = Temp::Person->meta_info( has_a => 'pet' );
  48     is $pet->class,         'Temp::Person';
  49     is $pet->foreign_class, 'Temp::Pet';
  50     is $pet->accessor,      'pet';
  51     is $pet->name,          'has_a';
  52 }
  53
  54 {
  55     my $owners = Temp::Pet->meta_info( has_many => 'owners' );
  56
  57     is_deeply $owners->args, {
  58         foreign_key     => 'pet',
  59         mapping         => [],
  60     };
  61 }
  62
  63 {
  64     my $date = Temp::Pet->meta_info( has_a => 'date' );
  65     is $date->class,            'Temp::DBI';
  66     is $date->foreign_class,    'Time::Piece';
  67     is $date->accessor,         'date';
  68     is $date->args->{inflate},  $strptime_inflate;
  69 }
  70
  71 done_testing;