#!/usr/bin/perl
use warnings;
use strict;

use Text::Levenshtein qw{ distance };

use Test::More tests => 3;

is distance('ABCGE', 'ABCGE'), 0;
is distance('ABCGE', 'FGCGB'), 3;
is distance('ABCGE', 'JHAGT'), 4;