t/cdbi/set_vs_DateTime.t

   1 use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt cdbicompat );
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Exception;
   8
   9 use lib 't/cdbi/testlib';
  10
  11 {
  12     package Thing;
  13
  14     use base 'DBIC::Test::SQLite';
  15
  16     Thing->columns(All  => qw[thing_id this that date]);
  17 }
  18
  19 my $thing = Thing->construct({ thing_id => 23, date => "01-02-1994" });
  20 my $date = DateTime->now;
  21 lives_ok {
  22   $thing->set( date => $date );
  23   $thing->set( date => $date );
  24 };
  25
  26 $thing->discard_changes;
  27
  28 done_testing;