use 5.014;
no if $] >= 5.018, warnings => "experimental::smartmatch";
use strict;
use Test::More tests => 13;

use Var::Pairs;

my %data;
@data{1..6} = ('a'..'f');

while (my $next = each_pair %data) {
    my ($key, $value) = $next->kv;
    ok $key     ~~ %data        => 'key method correct';
    ok $value   eq $data{$key}  => 'value method correct';
    delete $data{$key};
}

ok !keys %data => 'Iterated all';