t/cdbi/22-deflate_order.t

   1 $| = 1;
   2 use strict;
   3
   4 use Test::More;
   5
   6 eval "use DBIx::Class::CDBICompat; use Time::Piece::MySQL;";
   7 if ($@) {
   8     plan (skip_all => "Time::Piece::MySQL, Class::Trigger and DBIx::ContextualFetch required: $@");
   9 }
  10
  11 plan skip_all => 'Set $ENV{DBICTEST_MYSQL_DSN}, _USER and _PASS to run this test'
  12   unless ($ENV{DBICTEST_MYSQL_DSN} && $ENV{DBICTEST_MYSQL_USER});
  13
  14 plan tests => 3;
  15
  16 use lib 't/cdbi/testlib';
  17 use_ok ('Log');
  18
  19 package main;
  20
  21 my $log = Log->insert( { message => 'initial message' } );
  22 ok eval { $log->datetime_stamp }, "Have datetime";
  23 diag $@ if $@;
  24
  25 $log->message( 'a revised message' );
  26 $log->update;
  27 ok eval { $log->datetime_stamp }, "Have datetime after update";
  28 diag $@ if $@;
  29