t/96multi_create_torture.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Exception;
   6 use lib qw(t/lib);
   7 use DBICTest;
   8
   9 plan tests => 23;
  10
  11 # an insane multicreate
  12 # (should work, despite the fact that no one will probably use it this way)
  13
  14 my $schema = DBICTest->init_schema();
  15
  16 # first count how many rows do we initially have
  17 my $counts;
  18 $counts->{$_} = $schema->resultset($_)->count for qw/Artist CD Genre Producer Tag/;
  19
  20 # do the crazy create
  21 eval {
  22   $schema->resultset('CD')->create ({
  23     artist => {
  24       name => 'james',
  25     },
  26     title => 'Greatest hits 1',
  27     year => '2012',
  28     genre => {
  29       name => '"Greatest" collections',
  30       demographic => {
  31         name => '"Greatest" collections demographic',
  32       },
  33     },
  34     tags => [
  35       { tag => 'A' },
  36       { tag => 'B' },
  37     ],
  38     cd_to_producer => [
  39       {
  40         producer => {
  41           name => 'bob',
  42           producer_to_cd => [
  43             {
  44               cd => {
  45                 artist => {
  46                   name => 'lars',
  47                   cds => [
  48                     {
  49                       title => 'Greatest hits 2',
  50                       year => 2012,
  51                       genre => {
  52                         name => '"Greatest" collections',
  53                         demographic => {
  54                           name => '"Greatest" collections demographic',
  55                         },
  56                       },
  57                       tags => [
  58                         { tag => 'A' },
  59                         { tag => 'B' },
  60                       ],
  61                       # This cd is created via artist so it doesn't know about producers
  62                       cd_to_producer => [
  63                         { producer => { name => 'bob' } },
  64                         { producer => { name => 'paul' } },
  65                         { producer => {
  66                           name => 'flemming',
  67                           producer_to_cd => [
  68                             { cd => {
  69                               artist => {
  70                                 name => 'kirk',
  71                                 cds => [
  72                                   {
  73                                     title => 'Greatest hits 3',
  74                                     year => 2012,
  75                                     genre => {
  76                                       name => '"Greatest" collections',
  77                                       demographic => {
  78                                         name => '"Greatest" collections demographic',
  79                                       },
  80                                     },
  81                                     tags => [
  82                                       { tag => 'A' },
  83                                       { tag => 'B' },
  84                                     ],
  85                                   },
  86                                   {
  87                                     title => 'Greatest hits 4',
  88                                     year => 2012,
  89                                     genre => {
  90                                       name => '"Greatest" collections2',
  91                                       demographic => {
  92                                         name => '"Greatest" collections demographic',
  93                                       },
  94                                     },
  95                                     tags => [
  96                                       { tag => 'A' },
  97                                       { tag => 'B' },
  98                                     ],
  99                                   },
 100                                 ],
 101                               },
 102                               title => 'Greatest hits 5',
 103                               year => 2013,
 104                               genre => {
 105                                 name => '"Greatest" collections2',
 106                                 demographic => {
 107                                   name => '"Greatest" collections demographic',
 108                                 },
 109                               },
 110                             }},
 111                           ],
 112                         }},
 113                       ],
 114                     },
 115                   ],
 116                 },
 117                 title => 'Greatest hits 6',
 118                 year => 2012,
 119                 genre => {
 120                   name => '"Greatest" collections',
 121                   demographic => {
 122                     name => '"Greatest" collections demographic',
 123                   },
 124                 },
 125                 tags => [
 126                   { tag => 'A' },
 127                   { tag => 'B' },
 128                 ],
 129               },
 130             },
 131             {
 132               cd => {
 133                 artist => {
 134                   name => 'lars',    # should already exist
 135                   # even though the artist 'name' is not uniquely constrained
 136                   # find_or_create will arguably DWIM
 137                 },
 138                 title => 'Greatest hits 7',
 139                 year => 2013,
 140               },
 141             },
 142           ],
 143         },
 144       },
 145     ],
 146   });
 147
 148   is ($schema->resultset ('Artist')->count, $counts->{Artist} + 3, '3 new artists created');
 149   is ($schema->resultset ('Genre')->count, $counts->{Genre} + 2, '2 additional genres created');
 150   is ($schema->resultset ('Producer')->count, $counts->{Producer} + 3, '3 new producer');
 151   is ($schema->resultset ('CD')->count, $counts->{CD} + 7, '7 new CDs');
 152   is ($schema->resultset ('Tag')->count, $counts->{Tag} + 10, '10 new Tags');
 153
 154   my $cd_rs = $schema->resultset ('CD')
 155     ->search ({ title => { -like => 'Greatest hits %' }}, { order_by => 'title'} );
 156   is ($cd_rs->count, 7, '7 greatest hits created');
 157
 158   my $cds_2012 = $cd_rs->search ({ year => 2012});
 159   is ($cds_2012->count, 5, '5 CDs created in 2012');
 160
 161   is (
 162     $cds_2012->search(
 163       { 'tags.tag' => { -in => [qw/A B/] } },
 164       { join => 'tags', group_by => 'me.cdid' }
 165     ),
 166     5,
 167     'All 10 tags were pairwise distributed between 5 year-2012 CDs'
 168   );
 169
 170   my $paul_prod = $cd_rs->search (
 171     { 'producer.name' => 'paul'},
 172     { join => { cd_to_producer => 'producer' } }
 173   );
 174   is ($paul_prod->count, 1, 'Paul had 1 production');
 175   my $pauls_cd = $paul_prod->single;
 176   is ($pauls_cd->cd_to_producer->count, 3, 'Paul had two co-producers');
 177   is (
 178     $pauls_cd->search_related ('cd_to_producer',
 179       { 'producer.name' => 'flemming'},
 180       { join => 'producer' }
 181     )->count,
 182     1,
 183     'The second producer is flemming',
 184   );
 185
 186   my $kirk_cds = $cd_rs->search ({ 'artist.name' => 'kirk' }, { join => 'artist' });
 187   is ($kirk_cds, 3, 'Kirk had 3 CDs');
 188   is (
 189     $kirk_cds->search (
 190       { 'cd_to_producer.cd' => { '!=', undef } },
 191       { join => 'cd_to_producer' },
 192     ),
 193     1,
 194     'Kirk had a producer only on one cd',
 195   );
 196
 197   my $lars_cds = $cd_rs->search ({ 'artist.name' => 'lars' }, { join => 'artist' });
 198   is ($lars_cds->count, 3, 'Lars had 3 CDs');
 199   is (
 200     $lars_cds->search (
 201       { 'cd_to_producer.cd' => undef },
 202       { join => 'cd_to_producer' },
 203     ),
 204     0,
 205     'Lars always had a producer',
 206   );
 207   is (
 208     $lars_cds->search_related ('cd_to_producer',
 209       { 'producer.name' => 'flemming'},
 210       { join => 'producer' }
 211     )->count,
 212     1,
 213     'Lars produced 1 CD with flemming',
 214   );
 215   is (
 216     $lars_cds->search_related ('cd_to_producer',
 217       { 'producer.name' => 'bob'},
 218       { join => 'producer' }
 219     )->count,
 220     3,
 221     'Lars produced 3 CDs with bob',
 222   );
 223
 224   my $bob_prod = $cd_rs->search (
 225     { 'producer.name' => 'bob'},
 226     { join => { cd_to_producer => 'producer' } }
 227   );
 228   is ($bob_prod->count, 4, 'Bob produced a total of 4 CDs');
 229   ok ($bob_prod->find ({ title => 'Greatest hits 1'}), '1st Bob production name correct');
 230   ok ($bob_prod->find ({ title => 'Greatest hits 6'}), '2nd Bob production name correct');
 231   ok ($bob_prod->find ({ title => 'Greatest hits 2'}), '3rd Bob production name correct');
 232   ok ($bob_prod->find ({ title => 'Greatest hits 7'}), '4th Bob production name correct');
 233
 234   is (
 235     $bob_prod->search ({ 'artist.name' => 'james' }, { join => 'artist' })->count,
 236     1,
 237     "Bob produced james' only CD",
 238   );
 239 };
 240 diag $@ if $@;
 241
 242 1;