[dbsrgits/DBIx-Class-Historic.git] / t / bindtype_columns.t

use strict;
use warnings;  

use Test::More;
use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema();

plan tests => 2;

#Bindtest
{
	my $new = $schema->resultset("Artist")->new({
	
		artistid=>25,
		name=>'JohnNapiorkowski',
	});
	
	$new->update_or_insert;
	
	my $resultset = $schema->resultset("Artist")->find({artistid=>25});
	
	is($resultset->id, 25, 'Testing New ID');
	is($resultset->name, 'JohnNapiorkowski', 'Testing New Name');
}
Commit	Line	Data
6e399b4f	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
	7
	8	my $schema = DBICTest->init_schema();
	9
	10	plan tests => 2;
	11
6e399b4f	12	#Bindtest
	13	{
	14	my $new = $schema->resultset("Artist")->new({
	15
	16	artistid=>25,
	17	name=>'JohnNapiorkowski',
	18	});
	19
	20	$new->update_or_insert;
	21
	22	my $resultset = $schema->resultset("Artist")->find({artistid=>25});
	23
	24	is($resultset->id, 25, 'Testing New ID');
	25	is($resultset->name, 'JohnNapiorkowski', 'Testing New Name');
	26	}
	27