https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 1a3850a5 GA |
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-$$: $!"; | |
| 44 | unlink "dict-$$"; | |
| 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"; |