Commit | Line | Data |
d2cee1fa |
1 | $| = 1; |
4a233f30 |
2 | use warnings; |
d2cee1fa |
3 | use strict; |
4 | |
5 | use Test::More; |
6 | |
d755000b |
7 | use lib 't/cdbi/testlib'; |
d9bd5195 |
8 | use DBIC::Test::SQLite (); # this will issue the necessary SKIPs on missing reqs |
9 | |
10 | eval { require Time::Piece::MySQL } |
11 | or plan skip_all => 'Time::Piece::MySQL required for this test'; |
12 | |
d755000b |
13 | use_ok ('Log'); |
d2cee1fa |
14 | |
15 | package main; |
16 | |
17 | my $log = Log->insert( { message => 'initial message' } ); |
18 | ok eval { $log->datetime_stamp }, "Have datetime"; |
19 | diag $@ if $@; |
20 | |
21 | $log->message( 'a revised message' ); |
22 | $log->update; |
23 | ok eval { $log->datetime_stamp }, "Have datetime after update"; |
24 | diag $@ if $@; |
25 | |
49b3a264 |
26 | done_testing; |