keys/values return a 'list', each return zero or two scalars

[perl/modules/Sub-Nary.git] / t / 21-list.t

diff --git a/t/21-list.t b/t/21-list.t
index 4f973586ab13bba9390c0a2d48f2eaef97bdae9e..62c9bc0764ade9c79b63b091df112d399ffdeb00 100644 (file)
--- 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' ],