X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=t%2F21-list.t;h=62c9bc0764ade9c79b63b091df112d399ffdeb00;hp=4f973586ab13bba9390c0a2d48f2eaef97bdae9e;hb=08ec5acb4cc88d8cc10fec0520d8cd075c08fda1;hpb=2d8aec84852aa584b41d7cfce42088fec7ca8582

diff --git a/t/21-list.t b/t/21-list.t
index 4f97358..62c9bc0 100644
--- a/t/21-list.t
+++ b/t/21-list.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 39;
+use Test::More tests => 41;
 
 use Sub::Nary;
 
@@ -33,6 +33,8 @@ my @tests = (
  [ sub { %h },          'list' ],
  [ sub { $h{a} },       1 ],
  [ sub { @h{qw/a b/} }, 2 ],
+ [ sub { keys %h },     'list' ],
+ [ sub { values %h },   'list' ],
 
  [ sub { $x, $a[3], $h{c} }, 3 ],
  [ sub { $x, @a },           'list' ],