X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F91merge_attr.t;h=6699150b2dedd4a5d0964b19e4eb61dfc1e4ee3f;hb=d9672fb94b70dac86a6d4fed7ad46a48c5ee4527;hp=28101a95695a4ebc0722f7f30c744e22bafc4eb7;hpb=0fc64feeac7aa7f880952140e6201617ca99af80;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/91merge_attr.t b/t/91merge_attr.t
index 28101a9..6699150 100644
--- a/t/91merge_attr.t
+++ b/t/91merge_attr.t
@@ -6,7 +6,7 @@ use lib qw(t/lib);
 use DBICTest;
 use Test::More;
 
-plan tests => 14;
+plan tests => 15;
 
 my $schema = DBICTest->init_schema();
 my $rs = $schema->resultset( 'CD' );
@@ -52,6 +52,14 @@ my $rs = $schema->resultset( 'CD' );
 }
 
 {
+  my $a = [ 'twokeys' ];
+  my $b = [ 'cds', 'cds' ];
+  my $expected = [ 'twokeys', 'cds', 'cds' ];
+  my $result = $rs->_merge_attr($a, $b);
+  is_deeply( $result, $expected );
+}
+
+{
   my $a = [ 'artist', 'cd', { 'artist' => 'manager' } ];
   my $b = 'artist';
   my $expected = [ 'artist', 'cd', { 'artist' => 'manager' } ];