t/inflate/core.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Exception;
   6 use lib qw(t/lib);
   7 use DBICTest;
   8
   9 my $schema = DBICTest->init_schema();
  10
  11 eval { require DateTime };
  12 plan skip_all => "Need DateTime for inflation tests" if $@;
  13
  14 $schema->class('CD') ->inflate_column( 'year',
  15     { inflate => sub { DateTime->new( year => shift ) },
  16       deflate => sub { shift->year } }
  17 );
  18
  19 # inflation test
  20 my $cd = $schema->resultset("CD")->find(3);
  21
  22 is( ref($cd->year), 'DateTime', 'year is a DateTime, ok' );
  23
  24 is( $cd->year->year, 1997, 'inflated year ok' );
  25
  26 is( $cd->year->month, 1, 'inflated month ok' );
  27
  28 eval { $cd->year(\'year +1'); };
  29 ok(!$@, 'updated year using a scalarref');
  30 $cd->update();
  31 $cd->discard_changes();
  32
  33 is( ref($cd->year), 'DateTime', 'year is still a DateTime, ok' );
  34
  35 is( $cd->year->year, 1998, 'updated year, bypassing inflation' );
  36
  37 is( $cd->year->month, 1, 'month is still 1' );
  38
  39 # get_inflated_column test
  40
  41 is( ref($cd->get_inflated_column('year')), 'DateTime', 'get_inflated_column produces a DateTime');
  42
  43 # deflate test
  44 my $now = DateTime->now;
  45 $cd->year( $now );
  46 $cd->update;
  47
  48 $cd = $schema->resultset("CD")->find(3);
  49 is( $cd->year->year, $now->year, 'deflate ok' );
  50
  51 # set_inflated_column test
  52 eval { $cd->set_inflated_column('year', $now) };
  53 ok(!$@, 'set_inflated_column with DateTime object');
  54 $cd->update;
  55
  56 $cd = $schema->resultset("CD")->find(3);
  57 is( $cd->year->year, $now->year, 'deflate ok' );
  58
  59 $cd = $schema->resultset("CD")->find(3);
  60 my $before_year = $cd->year->year;
  61 eval { $cd->set_inflated_column('year', \'year + 1') };
  62 ok(!$@, 'set_inflated_column to "year + 1"');
  63 $cd->update;
  64
  65 TODO: {
  66   local $TODO = 'this was left in without a TODO - should it work?';
  67
  68   lives_ok (sub {
  69     $cd->store_inflated_column('year', \'year + 1');
  70     is_deeply( $cd->year, \'year + 1', 'deflate ok' );
  71   }, 'store_inflated_column to "year + 1"');
  72 }
  73
  74 $cd = $schema->resultset("CD")->find(3);
  75 is( $cd->year->year, $before_year+1, 'deflate ok' );
  76
  77 # store_inflated_column test
  78 $cd = $schema->resultset("CD")->find(3);
  79 eval { $cd->store_inflated_column('year', $now) };
  80 ok(!$@, 'store_inflated_column with DateTime object');
  81 $cd->update;
  82
  83 is( $cd->year->year, $now->year, 'deflate ok' );
  84
  85 # update tests
  86 $cd = $schema->resultset("CD")->find(3);
  87 eval { $cd->update({'year' => $now}) };
  88 ok(!$@, 'update using DateTime object ok');
  89 is($cd->year->year, $now->year, 'deflate ok');
  90
  91 $cd = $schema->resultset("CD")->find(3);
  92 $before_year = $cd->year->year;
  93 eval { $cd->update({'year' => \'year + 1'}) };
  94 ok(!$@, 'update using scalarref ok');
  95
  96 $cd = $schema->resultset("CD")->find(3);
  97 is($cd->year->year, $before_year + 1, 'deflate ok');
  98
  99 # discard_changes test
 100 $cd = $schema->resultset("CD")->find(3);
 101 # inflate the year
 102 $before_year = $cd->year->year;
 103 $cd->update({ year => \'year + 1'});
 104 $cd->discard_changes;
 105
 106 is($cd->year->year, $before_year + 1, 'discard_changes clears the inflated value');
 107
 108 my $copy = $cd->copy({ year => $now, title => "zemoose" });
 109
 110 isnt( $copy->year->year, $before_year, "copy" );
 111
 112 done_testing;