t/prefetch/diamond.t

   1 # Test if prefetch and join in diamond relationship fetching the correct rows
   2 use strict;
   3 use warnings;
   4
   5 use Test::More;
   6 use lib qw(t/lib);
   7 use DBICTest;
   8
   9 my $schema = DBICTest->init_schema();
  10
  11 $schema->populate('Artwork', [
  12     [ qw/cd_id/ ],
  13     [ 1 ],
  14 ]);
  15
  16 $schema->populate('Artwork_to_Artist', [
  17     [ qw/artwork_cd_id artist_id/ ],
  18     [ 1, 2 ],
  19 ]);
  20
  21 my $ars = $schema->resultset ('Artwork');
  22
  23 # The relationship diagram here is:
  24 #
  25 #  $ars --> artwork_to_artist
  26 #   |              |
  27 #   |              |
  28 #   V              V
  29 #   cd  ------>  artist
  30 #
  31 # The current artwork belongs to a cd by artist1
  32 # but the artwork itself is painted by artist2
  33 #
  34 # What we try is all possible permutations of join/prefetch
  35 # combinations in both directions, while always expecting to
  36 # arrive at the specific artist at the end of each path.
  37
  38
  39 my $cd_paths = {
  40   'no cd' => [],
  41   'no cd empty' => [ '' ],
  42   'no cd undef' => [ undef ],
  43   'no cd href' => [ {} ],
  44   'no cd aoh' => [ [{}] ],
  45   'no cd complex' => [ [ [ undef ] ] ],
  46   'cd' => ['cd'],
  47   'cd->artist1' => [{'cd' => 'artist'}]
  48 };
  49 my $a2a_paths = {
  50   'no a2a' => [],
  51   'no a2a empty ' => [ '' ],
  52   'no a2a undef' => [ undef ],
  53   'no a2a href' => [ {} ],
  54   'no a2a aoh' => [ [{}] ],
  55   'no a2a complex' => [ [ '' ] ],
  56   'a2a' => ['artwork_to_artist'],
  57   'a2a->artist2' => [{'artwork_to_artist' => 'artist'}]
  58 };
  59
  60 my %tests;
  61
  62 foreach my $cd_path (keys %$cd_paths) {
  63
  64   foreach my $a2a_path (keys %$a2a_paths) {
  65
  66
  67     $tests{sprintf "join %s, %s", $cd_path, $a2a_path} = $ars->search({}, {
  68       'join' => [
  69         @{ $cd_paths->{$cd_path} },
  70         @{ $a2a_paths->{$a2a_path} },
  71       ],
  72       'prefetch' => [
  73       ],
  74     });
  75
  76
  77     $tests{sprintf "prefetch %s, %s", $cd_path, $a2a_path} = $ars->search({}, {
  78       'join' => [
  79       ],
  80       'prefetch' => [
  81         @{ $cd_paths->{$cd_path} },
  82         @{ $a2a_paths->{$a2a_path} },
  83       ],
  84     });
  85
  86
  87     $tests{sprintf "join %s, prefetch %s", $cd_path, $a2a_path} = $ars->search({}, {
  88       'join' => [
  89         @{ $cd_paths->{$cd_path} },
  90       ],
  91       'prefetch' => [
  92         @{ $a2a_paths->{$a2a_path} },
  93       ],
  94     });
  95
  96
  97     $tests{sprintf "join %s, prefetch %s", $a2a_path, $cd_path} = $ars->search({}, {
  98       'join' => [
  99         @{ $a2a_paths->{$a2a_path} },
 100       ],
 101       'prefetch' => [
 102         @{ $cd_paths->{$cd_path} },
 103       ],
 104     });
 105
 106   }
 107 }
 108
 109 foreach my $name (keys %tests) {
 110   foreach my $artwork ($tests{$name}->all()) {
 111     is($artwork->id, 1, $name . ', correct artwork');
 112     is($artwork->cd->artist->artistid, 1, $name . ', correct artist_id over cd');
 113     is($artwork->artwork_to_artist->first->artist->artistid, 2, $name . ', correct artist_id over A2A');
 114   }
 115 }
 116
 117 done_testing;