abbrev.t   [plain text]

use warnings;
use strict;

use Test::More tests => 2;

require_ok "abbrev.pl";

our %x;
my @z = qw(list edit send abort gripe listen);
&abbrev(*x, @z);
is_deeply \%x, {
	a => "abort",
	ab => "abort",
	abo => "abort",
	abor => "abort",
	abort => "abort",
	e => "edit",
	ed => "edit",
	edi => "edit",
	edit => "edit",
	g => "gripe",
	gr => "gripe",
	gri => "gripe",
	grip => "gripe",
	gripe => "gripe",
	list => "list",
	liste => "listen",
	listen => "listen",
	s => "send",
	se => "send",
	sen => "send",
	send => "send",
};

1;