view release on metacpan or  search on metacpan

t/11.editdist.t  view on Meta::CPAN

#!/usr/bin/env perl
use Test2::V0;
use App::Perlbrew::Util qw< editdist >;

is editdist(qw/Joe Jim/), 2;
is editdist(qw/Jack Jill/), 3;
is editdist(qw/Jim Jimmy/), 2;
is editdist(qw/superman supergirl/), 4;
is editdist(qw/supercalifragilisticexpyalligocious superman/), 29;
is editdist(qw/foo bar/), 3;

done_testing;