[dbsrgits/DBIx-Class.git] / t / cdbi-t / set_to_undef.t

#!/usr/bin/perl -w

use strict;
use Test::More;
use Test::NoWarnings;

BEGIN {
  eval "use DBIx::Class::CDBICompat;";
  plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
    if $@;
  plan skip_all => "DateTime required" unless eval { require DateTime };
  plan tests => 1;
}

{
    package Thing;

    use base 'DBIx::Class::Test::SQLite';

    Thing->columns(All  => qw[thing_id this that date]);
}

my $thing = Thing->construct({ thing_id => 23, this => 42 });
$thing->set( this => undef );
$thing->discard_changes;
Commit	Line	Data
4c9f72c1	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use Test::More;
	5	use Test::NoWarnings;
	6
	7	BEGIN {
	8	eval "use DBIx::Class::CDBICompat;";
	9	plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
	10	if $@;
	11	plan skip_all => "DateTime required" unless eval { require DateTime };
	12	plan tests => 1;
	13	}
	14
	15	{
	16	package Thing;
	17
	18	use base 'DBIx::Class::Test::SQLite';
	19
	20	Thing->columns(All => qw[thing_id this that date]);
	21	}
	22
	23	my $thing = Thing->construct({ thing_id => 23, this => 42 });
	24	$thing->set( this => undef );
	25	$thing->discard_changes;