diff --git a/.mailmap b/.mailmap index 22615b331..ee01f0a68 100644 --- a/.mailmap +++ b/.mailmap @@ -29,6 +29,7 @@ Gerda Shank Gianni Ceccarelli Gordon Irving Hakim Cassimally +Henry Van Styn Jason M. Mills Jonathan Chu Jose Luis Martinez diff --git a/AUTHORS b/AUTHORS index 180d48543..61664fa01 100644 --- a/AUTHORS +++ b/AUTHORS @@ -199,6 +199,7 @@ triode: Pete Gamache typester: Daisuke Murase uree: Oriol Soriano uwe: Uwe Voelker +vanstyn: Henry Van Styn victori: Victor Igumnov wdh: Will Hawes wesm: Wes Malone diff --git a/t/91merge_joinpref_attr.t b/t/91merge_joinpref_attr.t index 0e9f601ca..a7f9b971f 100644 --- a/t/91merge_joinpref_attr.t +++ b/t/91merge_joinpref_attr.t @@ -6,7 +6,7 @@ use lib qw(t/lib); use DBICTest; use Test::More; -plan tests => 15; +plan tests => 17; my $schema = DBICTest->init_schema(); my $rs = $schema->resultset( 'CD' ); @@ -131,5 +131,20 @@ my $rs = $schema->resultset( 'CD' ); is_deeply( $result, $expected ); } +{ + my $a = [ { 'artist' => { 'manager' => {} } }, 'cd' ]; + my $b = [ 'artist', { 'artist' => { 'manager' => {} } } ]; + my $expected = [ { 'artist' => { 'manager' => {} } }, 'cd', { 'artist' => { 'manager' => {} } } ]; + my $result = $rs->_merge_joinpref_attr($a, $b); + is_deeply( $result, $expected ); +} + +{ + my $a = [ { 'artist' => { 'manager' => undef } }, 'cd' ]; + my $b = [ 'artist', { 'artist' => { 'manager' => undef } } ]; + my $expected = [ { 'artist' => { 'manager' => undef } }, 'cd', { 'artist' => { 'manager' => undef } } ]; + my $result = $rs->_merge_joinpref_attr($a, $b); + is_deeply( $result, $expected ); +} 1;