Commit | Line | Data |
d2cee1fa |
1 | $| = 1; |
2 | use strict; |
3 | |
4 | use Test::More; |
5 | |
68de9438 |
6 | eval "use DBIx::Class::CDBICompat; use Time::Piece::MySQL;"; |
95cbe02e |
7 | if ($@) { |
68de9438 |
8 | plan (skip_all => "Time::Piece::MySQL, Class::Trigger and DBIx::ContextualFetch required: $@"); |
95cbe02e |
9 | } |
10 | |
d755000b |
11 | plan skip_all => 'Set $ENV{DBICTEST_MYSQL_DSN}, _USER and _PASS to run this test' |
12 | unless ($ENV{DBICTEST_MYSQL_DSN} && $ENV{DBICTEST_MYSQL_USER}); |
13 | |
d755000b |
14 | plan tests => 3; |
d2cee1fa |
15 | |
d755000b |
16 | use lib 't/cdbi/testlib'; |
17 | use_ok ('Log'); |
d2cee1fa |
18 | |
19 | package main; |
20 | |
21 | my $log = Log->insert( { message => 'initial message' } ); |
22 | ok eval { $log->datetime_stamp }, "Have datetime"; |
23 | diag $@ if $@; |
24 | |
25 | $log->message( 'a revised message' ); |
26 | $log->update; |
27 | ok eval { $log->datetime_stamp }, "Have datetime after update"; |
28 | diag $@ if $@; |
29 | |