10 my $schema = DBICTest->init_schema();
11 my $rs = $schema->resultset('Artist');
15 my ($crap, $girl, $damn, $xxxaaa) = $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 },
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 }
28 { artistid=>6, name => 'Like I Give a Damn' },
30 { artistid => 7, name => 'bbbb', cds => [
31 { title => 'xxxaaa' ,year => 2005 },
37 isa_ok( $crap, 'DBICTest::Artist', "Got 'Artist'");
38 isa_ok( $damn, 'DBICTest::Artist', "Got 'Artist'");
39 isa_ok( $girl, 'DBICTest::Artist', "Got 'Artist'");
40 isa_ok( $xxxaaa, 'DBICTest::Artist', "Got 'Artist'");
42 ok( $crap->name eq 'Manufactured Crap', "Got Correct name for result object");
43 ok( $girl->name eq 'Angsty-Whiny Girl', "Got Correct name for result object");
44 ok( $xxxaaa->name eq 'bbbb', "Got Correct name for result object");
46 use Data::Dump qw/dump/;
48 ok( $crap->cds->count == 2, "got Expected Number of Cds");
49 ok( $girl->cds->count == 3, "got Expected Number of Cds");
55 { artistid => 8, name => 'Manufactured CrapB', cds => [
56 { title => 'My First CDB', year => 2006 },
57 { title => 'Yet More Tweeny-Pop crapB', year => 2007 },
60 { artistid => 9, name => 'Angsty-Whiny GirlB', cds => [
61 { title => 'My parents sold me to a record companyB' ,year => 2005 },
62 { title => 'Why Am I So Ugly?B', year => 2006 },
63 { title => 'I Got Surgery and am now PopularB', year => 2007 }
67 { artistid =>10, name => 'XXXX' },
68 { artistid =>11, name => 'wart', cds =>{ title => 'xxxaaa' ,year => 2005 }, },
71 my $artist = $rs->find(8);
73 ok($artist, 'Found artist');
74 is($artist->name, 'Manufactured CrapB', "Got Correct Name");
75 is($artist->cds->count, 2, 'Has CDs');
77 my @cds = $artist->cds;
79 is($cds[0]->title, 'My First CDB', 'A CD');
80 is($cds[0]->year, 2006, 'Published in 2006');
82 is($cds[1]->title, 'Yet More Tweeny-Pop crapB', 'Another crap CD');
83 is($cds[1]->year, 2007, 'Published in 2007');
85 $artist = $rs->find(9);
86 ok($artist, 'Found artist');
87 is($artist->name, 'Angsty-Whiny GirlB', "Another correct name");
88 is($artist->cds->count, 3, 'Has CDs');
93 is($cds[0]->title, 'My parents sold me to a record companyB', 'A CD');
94 is($cds[0]->year, 2005, 'Published in 2005');
96 is($cds[1]->title, 'Why Am I So Ugly?B', 'A Coaster');
97 is($cds[1]->year, 2006, 'Published in 2006');
99 is($cds[2]->title, 'I Got Surgery and am now PopularB', 'Selling un-attainable dreams');
100 is($cds[2]->year, 2007, 'Published in 2007');
102 $artist = $rs->search({name => 'XXXX'})->single;
103 ok($artist, "Got Expected Artist Result");
105 is($artist->cds->count, 0, 'No CDs');
107 $artist = $rs->find(10);
108 is($artist->name, 'XXXX', "Got Correct Name");
109 is($artist->cds->count, 0, 'Has NO CDs');
111 $artist = $rs->find(11);
112 is($artist->name, 'wart', "Got Correct Name");
113 is($artist->cds->count, 1, 'Has One CD');