File: 11.editdist.t

package info (click to toggle)
perlbrew 1.02-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 752 kB
  • sloc: perl: 9,387; makefile: 7; sh: 1
file content (12 lines) | stat: -rw-r--r-- 318 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!/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;