Add tests for keys & values delegations

diff --git a/t/070_native_traits/050_trait_hash.t b/t/070_native_traits/050_trait_hash.t
index b64137b..84fd2d3 100644 (file)
--- a/t/070_native_traits/050_trait_hash.t
+++ b/t/070_native_traits/050_trait_hash.t
@@ -25,6 +25,7 @@ use Test::Moose;
         get_option       => 'get',
         has_no_options   => 'is_empty',
         keys             => 'keys',
+        values           => 'values',
         key_value        => 'kv',
         set_option       => 'set',
     );
@@ -188,6 +189,18 @@ sub run_tests {
             'set returns newly set values in order of keys provided'
         );
 
+        is_deeply(
+            [ sort $obj->keys ],
+            [ 'oink', 'quantity', 'xxy' ],
+            'keys returns expected keys'
+        );
+
+        is_deeply(
+            [ sort $obj->values ],
+            [ 4, 'blah', 'flop' ],
+            'values returns expected values'
+        );
+
         my @key_value = sort { $a->[0] cmp $b->[0] } $obj->key_value;
         is_deeply(
             \@key_value,