use 5.014;
use strict;
use Test::More tests => 13;

use Var::Pairs;

my $data_ref = {};
@{$data_ref}{1..6} = ('a'..'f');
my @keys = keys $data_ref;

for my $next (pairs $data_ref) {
    ok $next->key     ~~ $data_ref               => 'key method correct';
    ok $next->value   eq $data_ref->{$next->key} => 'value method correct';
    delete $data_ref->{$next->key};
}

ok !keys $data_ref => 'Iterated all';