[dbsrgits/DBIx-Class.git] / t / cdbi-t / 22-deflate_order.t

$| = 1;
use strict;

use Test::More;

eval "use DBIx::Class::CDBICompat;";
if ($@) {
    plan (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@");
    next;
}

eval { require Time::Piece::MySQL };
plan skip_all => "Need Time::Piece::MySQL for this test" if $@;

eval { require 't/testlib/Log.pm' };
plan skip_all => "Need MySQL for this test" if $@;

plan tests => 2;

package main;

my $log = Log->insert( { message => 'initial message' } );
ok eval { $log->datetime_stamp }, "Have datetime";
diag $@ if $@;

$log->message( 'a revised message' );
$log->update;
ok eval { $log->datetime_stamp }, "Have datetime after update";
diag $@ if $@;
Commit	Line	Data
d2cee1fa	1	$\| = 1;
	2	use strict;
	3
	4	use Test::More;
	5
95cbe02e	6	eval "use DBIx::Class::CDBICompat;";
	7	if ($@) {
	8	plan (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@");
	9	next;
	10	}
	11
d2cee1fa	12	eval { require Time::Piece::MySQL };
	13	plan skip_all => "Need Time::Piece::MySQL for this test" if $@;
	14
	15	eval { require 't/testlib/Log.pm' };
	16	plan skip_all => "Need MySQL for this test" if $@;
	17
	18	plan tests => 2;
	19
	20	package main;
	21
	22	my $log = Log->insert( { message => 'initial message' } );
	23	ok eval { $log->datetime_stamp }, "Have datetime";
	24	diag $@ if $@;
	25
	26	$log->message( 'a revised message' );
	27	$log->update;
	28	ok eval { $log->datetime_stamp }, "Have datetime after update";
	29	diag $@ if $@;
	30