7 Test::More::plan(skip_all => "no array keys on this Perl");
11 use Test::More tests => 8;
18 is_deeply [ scalar keys @t ], [ 0 ];
19 is_deeply [ keys @t ], [];
22 is_deeply [ scalar keys @t ], [ 6 ];
23 is_deeply [ keys @t ], [ 3, 4, 5, 6, 7, 8 ];
26 skip "no lexical \$_", 4 unless eval q{my $_; 1};
31 is_deeply [ scalar keys @t ], [ 0 ];
32 is_deeply [ keys @t ], [];
35 is_deeply [ scalar keys @t ], [ 6 ];
36 is_deeply [ keys @t ], [ 3, 4, 5, 6, 7, 8 ];