1$| = 1;
2use strict;
3
4use Test::More;
5
6eval { require Time::Piece::MySQL };
7plan skip_all => "Need Time::Piece::MySQL for this test" if $@;
8
9eval { require 't/testlib/Log.pm' };
10plan skip_all => "Need MySQL for this test" if $@;
11
12plan tests => 2;
13
14package main;
15
16my $log = Log->insert( { message => 'initial message' } );
17ok eval { $log->datetime_stamp }, "Have datetime";
18diag $@ if $@;
19
20$log->message( 'a revised message' );
21$log->update;
22ok eval { $log->datetime_stamp }, "Have datetime after update";
23diag $@ if $@;
24
25