use 5.014;
use strict;
use Test::More tests => 12;
use Var::Pairs;
my @data = 'a'..'f';
my %data = kvs @data;
for my $index (0..$#data) {
is $data[$index], $data{$index} => "kv'd index $index correctly";
}
while (1) {
my ($index, $value) = each_kv @data
or last;
is $data[$index], $value => "each_kv'd index $index correctly";
}