t/cdbi/22-deflate_order.t

   1 $| = 1;
   2 use strict;
   3
   4 use Test::More;
   5
   6 eval "use DBIx::Class::CDBICompat;";
   7 if ($@) {
   8     plan (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@");
   9     next;
  10 }
  11
  12 eval { require Time::Piece::MySQL };
  13 plan skip_all => "Need Time::Piece::MySQL for this test" if $@;
  14
  15 use lib 't/cdbi/testlib';
  16 eval { require 't/cdbi/testlib/Log.pm' };
  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