[dbsrgits/DBIx-Class-Historic.git] / t / 101populate_rs.t

use strict;
use warnings;

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

plan tests => 18;

my $schema = DBICTest->init_schema();
my $rs = $schema->resultset('Artist');

RETURN_RESULTSETS: {

	my ($crap, $girl) = $rs->populate( [
	  { artistid => 4, name => 'Manufactured Crap', cds => [ 
		  { title => 'My First CD', year => 2006 },
		  { title => 'Yet More Tweeny-Pop crap', year => 2007 },
		] 
	  },
	  { artistid => 5, name => 'Angsty-Whiny Girl', cds => [
		  { title => 'My parents sold me to a record company' ,year => 2005 },
		  { title => 'Why Am I So Ugly?', year => 2006 },
		  { title => 'I Got Surgery and am now Popular', year => 2007 }

		]
	  },
	  { name => 'Like I Give a Damn' }

	] );
	
	isa_ok( $crap, 'DBICTest::Artist', "Got 'Artist'");
	isa_ok( $girl, 'DBICTest::Artist', "Got 'Artist'");
	
	ok( $crap->name eq 'Manufactured Crap', "Got Correct name for result object");
	ok( $girl->name eq 'Angsty-Whiny Girl', "Got Correct name for result object");
	
	use Data::Dump qw/dump/;
	
	ok( $crap->cds->count == 2, "got Expected Number of Cds");
	ok( $girl->cds->count == 3, "got Expected Number of Cds");
}

RETURN_VOID: {

	$rs->populate( [
	  { artistid => 4, name => 'Manufactured Crap', cds => [ 
		  { title => 'My First CD', year => 2006 },
		  { title => 'Yet More Tweeny-Pop crap', year => 2007 },
		] 
	  },
	  { artistid => 5, name => 'Angsty-Whiny Girl', cds => [
		  { title => 'My parents sold me to a record company' ,year => 2005 },
		  { title => 'Why Am I So Ugly?', year => 2006 },
		  { title => 'I Got Surgery and am now Popular', year => 2007 }

		]
	  },
	  { name => 'Like I Give a Damn' }

	] );

	my $artist = $rs->find(4);

	ok($artist, 'Found artist');
	is($artist->name, 'Manufactured Crap');
	is($artist->cds->count, 2, 'Has CDs');

	my @cds = $artist->cds;

	is($cds[0]->title, 'My First CD', 'A CD');
	is($cds[0]->year,  2006, 'Published in 2006');

	is($cds[1]->title, 'Yet More Tweeny-Pop crap', 'Another crap CD');
	is($cds[1]->year,  2007, 'Published in 2007');

	$artist = $rs->find(5);
	ok($artist, 'Found artist');
	is($artist->name, 'Angsty-Whiny Girl');
	is($artist->cds->count, 3, 'Has CDs');

	@cds = $artist->cds;


	is($cds[0]->title, 'My parents sold me to a record company', 'A CD');
	is($cds[0]->year,  2005, 'Published in 2005');

	is($cds[1]->title, 'Why Am I So Ugly?', 'A Coaster');
	is($cds[1]->year,  2006, 'Published in 2006');

	is($cds[2]->title, 'I Got Surgery and am now Popular', 'Selling un-attainable dreams');
	is($cds[2]->year,  2007, 'Published in 2007');

	$artist = $rs->search({name => 'Like I Give A Damn'})->single;
	ok($artist);

	is($artist->cds->count, 0, 'No CDs');
}
Commit	Line	Data
81ab7888	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
	7
	8	plan tests => 18;
	9
	10	my $schema = DBICTest->init_schema();
	11	my $rs = $schema->resultset('Artist');
	12
71d496fe	13	RETURN_RESULTSETS: {
	14
	15	my ($crap, $girl) = $rs->populate( [
	16	{ artistid => 4, name => 'Manufactured Crap', cds => [
	17	{ title => 'My First CD', year => 2006 },
	18	{ title => 'Yet More Tweeny-Pop crap', year => 2007 },
	19	]
	20	},
	21	{ artistid => 5, name => 'Angsty-Whiny Girl', cds => [
	22	{ title => 'My parents sold me to a record company' ,year => 2005 },
	23	{ title => 'Why Am I So Ugly?', year => 2006 },
	24	{ title => 'I Got Surgery and am now Popular', year => 2007 }
	25
	26	]
	27	},
	28	{ name => 'Like I Give a Damn' }
	29
	30	] );
	31
	32	isa_ok( $crap, 'DBICTest::Artist', "Got 'Artist'");
	33	isa_ok( $girl, 'DBICTest::Artist', "Got 'Artist'");
	34
	35	ok( $crap->name eq 'Manufactured Crap', "Got Correct name for result object");
	36	ok( $girl->name eq 'Angsty-Whiny Girl', "Got Correct name for result object");
	37
	38	use Data::Dump qw/dump/;
	39
	40	ok( $crap->cds->count == 2, "got Expected Number of Cds");
	41	ok( $girl->cds->count == 3, "got Expected Number of Cds");
	42	}
	43
	44	RETURN_VOID: {
	45
	46	$rs->populate( [
	47	{ artistid => 4, name => 'Manufactured Crap', cds => [
	48	{ title => 'My First CD', year => 2006 },
	49	{ title => 'Yet More Tweeny-Pop crap', year => 2007 },
	50	]
	51	},
	52	{ artistid => 5, name => 'Angsty-Whiny Girl', cds => [
	53	{ title => 'My parents sold me to a record company' ,year => 2005 },
	54	{ title => 'Why Am I So Ugly?', year => 2006 },
	55	{ title => 'I Got Surgery and am now Popular', year => 2007 }
	56
	57	]
	58	},
	59	{ name => 'Like I Give a Damn' }
	60
	61	] );
	62
	63	my $artist = $rs->find(4);
	64
	65	ok($artist, 'Found artist');
	66	is($artist->name, 'Manufactured Crap');
	67	is($artist->cds->count, 2, 'Has CDs');
	68
	69	my @cds = $artist->cds;
	70
	71	is($cds[0]->title, 'My First CD', 'A CD');
	72	is($cds[0]->year, 2006, 'Published in 2006');
	73
	74	is($cds[1]->title, 'Yet More Tweeny-Pop crap', 'Another crap CD');
	75	is($cds[1]->year, 2007, 'Published in 2007');
	76
77	$artist = $rs->find(5);
78	ok($artist, 'Found artist');
79	is($artist->name, 'Angsty-Whiny Girl');
80	is($artist->cds->count, 3, 'Has CDs');
81
82	@cds = $artist->cds;
83
84
85	is($cds[0]->title, 'My parents sold me to a record company', 'A CD');
86	is($cds[0]->year, 2005, 'Published in 2005');
87
88	is($cds[1]->title, 'Why Am I So Ugly?', 'A Coaster');
89	is($cds[1]->year, 2006, 'Published in 2006');
90
91	is($cds[2]->title, 'I Got Surgery and am now Popular', 'Selling un-attainable dreams');
92	is($cds[2]->year, 2007, 'Published in 2007');
93
94	$artist = $rs->search({name => 'Like I Give A Damn'})->single;
95	ok($artist);
96
97	is($artist->cds->count, 0, 'No CDs');
98	}
81ab7888	99