Commit | Line | Data |
---|---|---|
c0329273 | 1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
54a9a088 | 2 | use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt cdbicompat ); |
83eef562 | 3 | |
e60dc79f | 4 | use strict; |
4a233f30 | 5 | use warnings; |
83eef562 | 6 | |
e60dc79f | 7 | use Test::More; |
4c9f72c1 | 8 | use Test::Exception; |
d9bd5195 | 9 | |
97d61088 | 10 | use lib 't/cdbi/testlib'; |
e60dc79f | 11 | |
12 | { | |
13 | package Thing; | |
14 | ||
97d61088 | 15 | use base 'DBIC::Test::SQLite'; |
e60dc79f | 16 | |
17 | Thing->columns(All => qw[thing_id this that date]); | |
18 | } | |
19 | ||
20 | my $thing = Thing->construct({ thing_id => 23, date => "01-02-1994" }); | |
4c9f72c1 | 21 | my $date = DateTime->now; |
22 | lives_ok { | |
23 | $thing->set( date => $date ); | |
24 | $thing->set( date => $date ); | |
e60dc79f | 25 | }; |
4c9f72c1 | 26 | |
e60dc79f | 27 | $thing->discard_changes; |
d9bd5195 | 28 | |
29 | done_testing; |