1 |
#!perl -w |
2 |
|
3 |
use strict; |
4 |
|
5 |
# init some vars |
6 |
my @affs= qw ( |
7 |
/usr/lib/ispell/english.aff |
8 |
/usr/lib/ispell/american.aff |
9 |
/usr/lib/ispell/british.aff |
10 |
); |
11 |
|
12 |
my @test_words=( 'cars', 'dogs' ); |
13 |
|
14 |
my $findaffix_file='./findaffix.out'; |
15 |
|
16 |
my $loaded = 0; |
17 |
my $debug = 0; |
18 |
|
19 |
BEGIN { $| = 1; print "1..8\n"; } |
20 |
END {print "not ok 1\n" unless $loaded;} |
21 |
|
22 |
use Lingua::Spelling::Alternative; |
23 |
$loaded = 1; |
24 |
print "ok 1\n"; |
25 |
|
26 |
### test constructor |
27 |
|
28 |
my $a = new Lingua::Spelling::Alternative( DEBUG => $debug ) ; |
29 |
|
30 |
defined($a) || print 'not '; print "ok 2\n"; |
31 |
|
32 |
### test load affix |
33 |
|
34 |
my $affix_file; |
35 |
foreach (@affs) { |
36 |
if (-e $_) { |
37 |
$affix_file = $_; |
38 |
last; |
39 |
} |
40 |
} |
41 |
|
42 |
# test sub |
43 |
|
44 |
sub test { |
45 |
my $nr=$_[0]; |
46 |
|
47 |
my @words = $a->alternatives(@test_words); |
48 |
print 'not ' if (! @words); |
49 |
print "ok ",$nr++," # - ",join(", ",@test_words)," -> alternatives: ",join(", ",@words),"\n"; |
50 |
my @min_words = $a->minimal(@test_words); |
51 |
print 'not ' if (! @min_words); |
52 |
print "ok ",$nr++," # - ",join(", ",@test_words)," -> minimal: ",join(", ",@min_words),"\n"; |
53 |
} |
54 |
|
55 |
# skip sub |
56 |
|
57 |
sub skip { |
58 |
foreach (@_) { |
59 |
print "ok $_ # - Skip\n"; |
60 |
} |
61 |
} |
62 |
|
63 |
if ( -e $affix_file ) { |
64 |
my $ok = $a->load_affix($affix_file); |
65 |
print 'not ' if (! $ok); |
66 |
print "ok 3\n"; |
67 |
test(4); |
68 |
|
69 |
} else { |
70 |
print "ok 3 # - Skip, affix file '$affix_file' not found\n"; |
71 |
skip(4..5); |
72 |
} |
73 |
|
74 |
undef $a; |
75 |
|
76 |
### test load findaffix |
77 |
|
78 |
if ( -e $findaffix_file ) { |
79 |
my $a = new Lingua::Spelling::Alternative( DEBUG => $debug ) ; |
80 |
|
81 |
my $ok = $a->load_findaffix($findaffix_file); |
82 |
print 'not ' if (! $ok); |
83 |
print "ok 6\n"; |
84 |
|
85 |
test(7); |
86 |
} else { |
87 |
print "ok 6 # - Skip, findaffix file '$findaffix_file' not found\n"; |
88 |
skip(7..8); |
89 |
} |
90 |
|