1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
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;
|
