Commit | Line | Data |
d2cee1fa |
1 | $| = 1; |
2 | use strict; |
3 | |
4 | use Test::More; |
5 | |
95cbe02e |
6 | eval "use DBIx::Class::CDBICompat;"; |
7 | if ($@) { |
8 | plan (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"); |
9 | next; |
10 | } |
11 | |
d2cee1fa |
12 | eval { require Time::Piece::MySQL }; |
13 | plan skip_all => "Need Time::Piece::MySQL for this test" if $@; |
14 | |
9381840d |
15 | use lib 't/cdbi/testlib'; |
50891152 |
16 | eval { require 't/cdbi/testlib/Log.pm' }; |
d2cee1fa |
17 | plan skip_all => "Need MySQL for this test" if $@; |
18 | |
19 | plan tests => 2; |
20 | |
21 | package main; |
22 | |
23 | my $log = Log->insert( { message => 'initial message' } ); |
24 | ok eval { $log->datetime_stamp }, "Have datetime"; |
25 | diag $@ if $@; |
26 | |
27 | $log->message( 'a revised message' ); |
28 | $log->update; |
29 | ok eval { $log->datetime_stamp }, "Have datetime after update"; |
30 | diag $@ if $@; |
31 | |