Commit | Line | Data |
1ab872da |
1 | #!./perl |
2 | |
3 | print "1..7\n"; |
4 | |
5 | BEGIN { |
6 | chdir 't' if -d 't'; |
7 | @INC = '../lib'; |
8 | } |
9 | |
10 | use Text::Abbrev; |
11 | |
12 | print "ok 1\n"; |
13 | |
14 | # old style as reference |
15 | local(%x); |
16 | my @z = qw(list edit send abort gripe listen); |
17 | abbrev(*x, @z); |
18 | my $r = join ':', sort keys %x; |
19 | print "not " if exists $x{'l'} || |
20 | exists $x{'li'} || |
21 | exists $x{'lis'}; |
22 | print "ok 2\n"; |
23 | |
24 | print "not " unless $x{'list'} eq 'list' && |
25 | $x{'liste'} eq 'listen' && |
26 | $x{'listen'} eq 'listen'; |
27 | print "ok 3\n"; |
28 | |
29 | print "not " unless $x{'a'} eq 'abort' && |
30 | $x{'ab'} eq 'abort' && |
31 | $x{'abo'} eq 'abort' && |
32 | $x{'abor'} eq 'abort' && |
33 | $x{'abort'} eq 'abort'; |
34 | print "ok 4\n"; |
35 | |
36 | my $test = 5; |
37 | |
38 | # wantarray |
39 | my %y = abbrev @z; |
40 | my $s = join ':', sort keys %y; |
41 | print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++; |
42 | |
43 | my $y = abbrev @z; |
44 | $s = join ':', sort keys %$y; |
45 | print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++; |
46 | |
47 | %y = (); |
48 | abbrev \%y, @z; |
49 | |
50 | $s = join ':', sort keys %y; |
51 | print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++; |