Test appending to array with non-numeric subscript

rwstauner · Oct 16, 2011 · 56e3c2b · 56e3c2b
1 parent a8d226e
commit 56e3c2b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/t/merge-hash.t b/t/merge-hash.t
@@ -49,6 +49,11 @@ is_deeply
   { -shot => 'gun', season => [qw(looney duck wabbit fudd)] },
   'convert previous string to array ref as specified';
 
+is_deeply
+  $slicer->merge([Hunting2 => 'X::Hunting' => { -shot => 'gun', season => ['looney'] }])->[2],
+  { -shot => 'gun', season => [qw(looney wabbit bunny bird duck zombie)] },
+  'merge arrayref in order';
+
 is_deeply
   $slicer->merge([Plug => 'X::Plug' => { attr => [qw(ibute)] }])->[2],
   { attr => [qw(ibute pa)] },

diff --git a/t/slice.t b/t/slice.t
@@ -19,6 +19,7 @@ my $slicer = new_ok($mod, [{
     'Hunting2.season[1.10]' => 'bird',
     'Hunting2.season[1.08]' => 'wabbit',
     'Hunting2.season[1.11]' => 'duck',
+    'Hunting2.season[z]' => 'zombie',
   },
 }]);
 
@@ -47,7 +48,7 @@ is_deeply
 
 is_deeply
   $slicer->slice([Hunting2 => 'X::Hunting' => {}]),
-  { season => [qw(wabbit bunny bird duck)] },
+  { season => [qw(wabbit bunny bird duck zombie)] },
   'received array ref containing all items';
 
 done_testing;