8 DBICTest::Schema::CD->add_column('year');
9 my $schema = DBICTest->init_schema();
11 eval { require DateTime };
12 plan skip_all => "Need DateTime for inflation tests" if $@;
16 DBICTest::Schema::CD->inflate_column( 'year',
17 { inflate => sub { DateTime->new( year => shift ) },
18 deflate => sub { shift->year } }
20 Class::C3->reinitialize;
23 my $cd = $schema->resultset("CD")->find(3);
25 is( ref($cd->year), 'DateTime', 'year is a DateTime, ok' );
27 is( $cd->year->year, 1997, 'inflated year ok' );
29 is( $cd->year->month, 1, 'inflated month ok' );
31 eval { $cd->year(\'year +1'); };
32 ok(!$@, 'updated year using a scalarref');
34 $cd->discard_changes();
36 is( ref($cd->year), 'DateTime', 'year is still a DateTime, ok' );
38 is( $cd->year->year, 1998, 'updated year, bypassing inflation' );
40 is( $cd->year->month, 1, 'month is still 1' );
42 # get_inflated_column test
44 is( ref($cd->get_inflated_column('year')), 'DateTime', 'get_inflated_column produces a DateTime');
47 my $now = DateTime->now;
51 $cd = $schema->resultset("CD")->find(3);
52 is( $cd->year->year, $now->year, 'deflate ok' );
54 # set_inflated_column test
55 eval { $cd->set_inflated_column('year', $now) };
56 ok(!$@, 'set_inflated_column with DateTime object');
59 $cd = $schema->resultset("CD")->find(3);
60 is( $cd->year->year, $now->year, 'deflate ok' );
62 $cd = $schema->resultset("CD")->find(3);
63 my $before_year = $cd->year->year;
64 eval { $cd->set_inflated_column('year', \'year + 1') };
65 ok(!$@, 'set_inflated_column to "year + 1"');
68 $cd = $schema->resultset("CD")->find(3);
69 is( $cd->year->year, $before_year+1, 'deflate ok' );
71 # store_inflated_column test
72 $cd = $schema->resultset("CD")->find(3);
73 eval { $cd->store_inflated_column('year', $now) };
74 ok(!$@, 'store_inflated_column with DateTime object');
77 is( $cd->year->year, $now->year, 'deflate ok' );
80 $cd = $schema->resultset("CD")->find(3);
81 eval { $cd->update({'year' => $now}) };
82 ok(!$@, 'update using DateTime object ok');
83 is($cd->year->year, $now->year, 'deflate ok');
85 $cd = $schema->resultset("CD")->find(3);
86 $before_year = $cd->year->year;
87 eval { $cd->update({'year' => \'year + 1'}) };
88 ok(!$@, 'update using scalarref ok');
90 $cd = $schema->resultset("CD")->find(3);
91 is($cd->year->year, $before_year + 1, 'deflate ok');
93 # discard_changes test
94 $cd = $schema->resultset("CD")->find(3);
96 $before_year = $cd->year->year;
97 $cd->update({ year => \'year + 1'});
100 is($cd->year->year, $before_year + 1, 'discard_changes clears the inflated value');
102 # eval { $cd->store_inflated_column('year', \'year + 1') };
103 # print STDERR "ERROR: $@" if($@);
104 # ok(!$@, 'store_inflated_column to "year + 1"');
106 # is_deeply( $cd->year, \'year + 1', 'deflate ok' );