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

#!/usr/bin/perl -w

use strict;
use Test::More;

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;
}

use Test::NoWarnings;

{
    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;
4c9f72c1	5
	6	BEGIN {
	7	eval "use DBIx::Class::CDBICompat;";
	8	plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@"
	9	if $@;
	10	plan skip_all => "DateTime required" unless eval { require DateTime };
	11	plan tests => 1;
	12	}
	13
14e38771	14	use Test::NoWarnings;
14e38771	15
4c9f72c1	16	{
	17	package Thing;
	18
	19	use base 'DBIx::Class::Test::SQLite';
	20
	21	Thing->columns(All => qw[thing_id this that date]);
	22	}
	23
	24	my $thing = Thing->construct({ thing_id => 23, this => 42 });
	25	$thing->set( this => undef );
	26	$thing->discard_changes;