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 | |
e287d9b0 |
8 | plan tests => 31; |
81ab7888 |
9 | |
10 | my $schema = DBICTest->init_schema(); |
11 | my $rs = $schema->resultset('Artist'); |
12 | |
71d496fe |
13 | RETURN_RESULTSETS: { |
14 | |
e287d9b0 |
15 | my ($crap, $girl, $damn, $xxxaaa) = $rs->populate( [ |
71d496fe |
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 | }, |
07bff494 |
28 | { artistid=>6, name => 'Like I Give a Damn' }, |
29 | |
30 | { artistid => 7, name => 'bbbb', cds => [ |
31 | { title => 'xxxaaa' ,year => 2005 }, |
32 | ] |
33 | }, |
71d496fe |
34 | |
35 | ] ); |
36 | |
37 | isa_ok( $crap, 'DBICTest::Artist', "Got 'Artist'"); |
7f997467 |
38 | isa_ok( $damn, 'DBICTest::Artist', "Got 'Artist'"); |
39 | isa_ok( $girl, 'DBICTest::Artist', "Got 'Artist'"); |
e287d9b0 |
40 | isa_ok( $xxxaaa, 'DBICTest::Artist', "Got 'Artist'"); |
71d496fe |
41 | |
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"); |
e287d9b0 |
44 | ok( $xxxaaa->name eq 'bbbb', "Got Correct name for result object"); |
71d496fe |
45 | |
46 | use Data::Dump qw/dump/; |
47 | |
48 | ok( $crap->cds->count == 2, "got Expected Number of Cds"); |
49 | ok( $girl->cds->count == 3, "got Expected Number of Cds"); |
50 | } |
51 | |
52 | RETURN_VOID: { |
53 | |
54 | $rs->populate( [ |
07bff494 |
55 | { artistid => 8, name => 'Manufactured CrapB', cds => [ |
7f997467 |
56 | { title => 'My First CDB', year => 2006 }, |
57 | { title => 'Yet More Tweeny-Pop crapB', year => 2007 }, |
71d496fe |
58 | ] |
59 | }, |
07bff494 |
60 | { artistid => 9, name => 'Angsty-Whiny GirlB', cds => [ |
7f997467 |
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 } |
71d496fe |
64 | |
65 | ] |
66 | }, |
e287d9b0 |
67 | { artistid =>10, name => 'XXXX' }, |
68 | { artistid =>11, name => 'wart', cds =>{ title => 'xxxaaa' ,year => 2005 }, }, |
71d496fe |
69 | ] ); |
7f997467 |
70 | |
07bff494 |
71 | my $artist = $rs->find(8); |
71d496fe |
72 | |
73 | ok($artist, 'Found artist'); |
e287d9b0 |
74 | is($artist->name, 'Manufactured CrapB', "Got Correct Name"); |
71d496fe |
75 | is($artist->cds->count, 2, 'Has CDs'); |
76 | |
77 | my @cds = $artist->cds; |
78 | |
7f997467 |
79 | is($cds[0]->title, 'My First CDB', 'A CD'); |
71d496fe |
80 | is($cds[0]->year, 2006, 'Published in 2006'); |
81 | |
7f997467 |
82 | is($cds[1]->title, 'Yet More Tweeny-Pop crapB', 'Another crap CD'); |
71d496fe |
83 | is($cds[1]->year, 2007, 'Published in 2007'); |
84 | |
07bff494 |
85 | $artist = $rs->find(9); |
71d496fe |
86 | ok($artist, 'Found artist'); |
e287d9b0 |
87 | is($artist->name, 'Angsty-Whiny GirlB', "Another correct name"); |
71d496fe |
88 | is($artist->cds->count, 3, 'Has CDs'); |
e287d9b0 |
89 | |
71d496fe |
90 | @cds = $artist->cds; |
91 | |
92 | |
7f997467 |
93 | is($cds[0]->title, 'My parents sold me to a record companyB', 'A CD'); |
71d496fe |
94 | is($cds[0]->year, 2005, 'Published in 2005'); |
95 | |
7f997467 |
96 | is($cds[1]->title, 'Why Am I So Ugly?B', 'A Coaster'); |
71d496fe |
97 | is($cds[1]->year, 2006, 'Published in 2006'); |
98 | |
7f997467 |
99 | is($cds[2]->title, 'I Got Surgery and am now PopularB', 'Selling un-attainable dreams'); |
71d496fe |
100 | is($cds[2]->year, 2007, 'Published in 2007'); |
101 | |
7f997467 |
102 | $artist = $rs->search({name => 'XXXX'})->single; |
103 | ok($artist, "Got Expected Artist Result"); |
71d496fe |
104 | |
105 | is($artist->cds->count, 0, 'No CDs'); |
e287d9b0 |
106 | |
107 | $artist = $rs->find(10); |
108 | is($artist->name, 'XXXX', "Got Correct Name"); |
109 | is($artist->cds->count, 0, 'Has NO CDs'); |
110 | |
111 | $artist = $rs->find(11); |
112 | is($artist->name, 'wart', "Got Correct Name"); |
113 | is($artist->cds->count, 1, 'Has One CD'); |
71d496fe |
114 | } |
81ab7888 |
115 | |