fixed _merge_attr bug

[dbsrgits/DBIx-Class.git] / t / 91merge_attr.t

diff --git a/t/91merge_attr.t b/t/91merge_attr.t
index 28101a9..6699150 100644 (file)
--- 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' } ];