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