Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
83eef562 |
2 | use DBIx::Class::Optional::Dependencies -skip_all_without => qw( cdbicompat test_rdbms_mysql Time::Piece::MySQL>=0 ); |
3 | |
d2cee1fa |
4 | $| = 1; |
4a233f30 |
5 | use warnings; |
d2cee1fa |
6 | use strict; |
7 | |
8 | use Test::More; |
9 | |
d755000b |
10 | use lib 't/cdbi/testlib'; |
d9bd5195 |
11 | |
d755000b |
12 | use_ok ('Log'); |
d2cee1fa |
13 | |
14 | package main; |
15 | |
16 | my $log = Log->insert( { message => 'initial message' } ); |
17 | ok eval { $log->datetime_stamp }, "Have datetime"; |
18 | diag $@ if $@; |
19 | |
20 | $log->message( 'a revised message' ); |
21 | $log->update; |
22 | ok eval { $log->datetime_stamp }, "Have datetime after update"; |
23 | diag $@ if $@; |
24 | |
49b3a264 |
25 | done_testing; |