show more ways to include literal bind values

[dbsrgits/DBIx-Class.git] / t / relationship / custom_with_null_in_cond.t

use strict;
use warnings;

use Test::More;

use lib 't/lib';
use DBICTest;

my $schema = DBICTest->init_schema();

my $artist_rs = $schema->resultset('Artist');

for my $rel_rs(
  $artist_rs->search_related_rs(
    cds_without_genre => { artist => 1 }, { order_by => 'cdid' }
  ),
  $artist_rs->find(1)->search_related_rs(
    cds_without_genre => {}, { order_by => 'cdid' }
  ),
) {

  is_deeply(
    $rel_rs->all_hri,
    [
      {
        artist => 1,
        cdid => 2,
        genreid => undef,
        single_track => undef,
        title => "Forkful of bees",
        year => 2001
      },
      {
        artist => 1,
        cdid => 3,
        genreid => undef,
        single_track => undef,
        title => "Caterwaulin' Blues",
        year => 1997
      },
    ]
  );
}

done_testing;