t/cdbi/22-deflate_order.t

   1 $| = 1;
   2 use strict;
   3
   4 use Test::More;
   5
   6 use lib 't/cdbi/testlib';
   7 use DBIC::Test::SQLite (); # this will issue the necessary SKIPs on missing reqs
   8
   9 eval { require Time::Piece::MySQL }
  10   or plan skip_all => 'Time::Piece::MySQL required for this test';
  11
  12 use_ok ('Log');
  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
  25 done_testing;