Commit | Line | Data |
1a3850a5 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | } |
7 | |
8 | print "1..3\n"; |
9 | |
10 | $DICT = <<EOT; |
11 | Aarhus |
12 | Aaron |
13 | Ababa |
14 | aback |
15 | abaft |
16 | abandon |
17 | abandoned |
18 | abandoning |
19 | abandonment |
20 | abandons |
21 | abase |
22 | abased |
23 | abasement |
24 | abasements |
25 | abases |
26 | abash |
27 | abashed |
28 | abashes |
29 | abashing |
30 | abasing |
31 | abate |
32 | abated |
33 | abatement |
34 | abatements |
35 | abater |
36 | abates |
37 | abating |
38 | Abba |
39 | EOT |
40 | |
41 | use Search::Dict; |
42 | |
43 | open(DICT, "+>dict-$$") or die "Can't create dict-$$: $!"; |
55497cff |
44 | binmode DICT; # To make length expected one. |
1a3850a5 |
45 | print DICT $DICT; |
46 | |
47 | my $pos = look *DICT, "abash"; |
48 | chomp($word = <DICT>); |
49 | print "not " if $pos < 0 || $word ne "abash"; |
50 | print "ok 1\n"; |
51 | |
52 | $pos = look *DICT, "foo"; |
53 | chomp($word = <DICT>); |
54 | |
55 | print "not " if $pos != length($DICT); # will search to end of file |
56 | print "ok 2\n"; |
57 | |
58 | $pos = look *DICT, "aarhus", 1, 1; |
59 | chomp($word = <DICT>); |
60 | |
61 | print "not " if $pos < 0 || $word ne "Aarhus"; |
62 | print "ok 3\n"; |
55497cff |
63 | |
64 | close DICT or die "cannot close"; |
65 | unlink "dict-$$"; |