Commit | Line | Data |
54a9a088 |
1 | use DBIx::Class::Optional::Dependencies -skip_all_without => qw( cdbicompat rdbms_sqlite ic_dt ); |
cb551b07 |
2 | |
2040ad73 |
3 | use strict; |
4 | use warnings; |
5 | |
6 | # Class::DBI in its infinate wisdom allows implicit inflation |
7 | # and deflation of foriegn clas looups in has_a relationships. |
8 | # for inflate it would call ->new on the foreign_class and for |
9 | # deflate it would "" the column value and allow for overloading |
10 | # of the "" operator. |
11 | |
12 | use Test::More; |
2040ad73 |
13 | |
14 | use lib 't/cdbi/testlib'; |
15 | use ImplicitInflate; |
16 | |
17 | ok(ImplicitInflate->can('db_Main'), 'set_db()'); |
18 | is(ImplicitInflate->__driver, "SQLite", 'Driver set correctly'); |
19 | |
20 | my $now = DateTime->now; |
21 | |
22 | ImplicitInflate->create({ |
23 | update_datetime => $now, |
24 | text => "Test Data", |
25 | }); |
26 | |
27 | my $implicit_inflate = ImplicitInflate->retrieve(text => 'Test Data'); |
28 | |
29 | ok($implicit_inflate->update_datetime->isa('DateTime'), 'Date column inflated correctly'); |
30 | is($implicit_inflate->update_datetime => $now, 'Date has correct year'); |
31 | |
32 | done_testing; |