#!perl

use strict;
use warnings;
use Test::More 0.88;
use Text::Levenshtein qw/ distance /;

my @TESTS = (
    ['pink', ['pink', 'pine', 'pork', ''], [0, 1, 2, 4]],
    ['',     [' ', '', '42', 'marvin'],    [1, 0, 2, 6]],
);

plan tests => int(@TESTS);

foreach my $test (@TESTS) {
    my ($word, $listref, $resultref) = @$test;
    my @results = distance($word, @$listref);
    is_deeply(\@results, $resultref);
}