explicitly test that shift returns undef and does not die on an empty array

diff --git a/t/070_native_traits/010_trait_array.t b/t/070_native_traits/010_trait_array.t
index 8774ffa..decf151 100644 (file)
--- a/t/070_native_traits/010_trait_array.t
+++ b/t/070_native_traits/010_trait_array.t
@@ -269,6 +269,11 @@ sub run_tests {
 
         ok( $obj->is_empty, 'values is empty after call to clear' );
 
+        is( exception {
+            is( $obj->shift, undef,
+                'shift returns undef on an empty array' );
+        }, undef, 'shifted from an empty array and lived' );
+
         $obj->set( 0 => 42 );
 
         like( exception { $obj->clear(50) }, qr/Cannot call clear with any arguments/, 'throws an error when clear is called with an argument' );