/[Lingua-Spelling-Alternative]/test.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /test.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (show annotations)
Tue Feb 12 14:31:15 2002 UTC (20 years, 9 months ago) by dpavlin
Branch: MAIN
CVS Tags: HEAD
Changes since 1.4: +4 -3 lines
File MIME type: text/plain
last changes before release

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 $a=shift @_;
46 my $nr=shift @_;
47
48 my @words = $a->alternatives(@test_words);
49 print 'not ' if (! @words);
50 print "ok ",$nr++," # - ",join(", ",@test_words)," -> alternatives: ",join(", ",@words),"\n";
51 my @min_words = $a->minimal(@test_words);
52 print 'not ' if (! @min_words);
53 print "ok ",$nr++," # - ",join(", ",@test_words)," -> minimal: ",join(", ",@min_words),"\n";
54 }
55
56 # skip sub
57
58 sub skip {
59 foreach (@_) {
60 print "ok $_ # - Skip\n";
61 }
62 }
63
64 if ( -e $affix_file ) {
65 my $ok = $a->load_affix($affix_file);
66 print 'not ' if (! $ok);
67 print "ok 3\n";
68 test($a,4);
69
70 } else {
71 print "ok 3 # - Skip, affix file '$affix_file' not found\n";
72 skip(4..5);
73 }
74
75 undef $a;
76
77 ### test load findaffix
78
79 if ( -e $findaffix_file ) {
80 my $a = new Lingua::Spelling::Alternative( DEBUG => $debug ) ;
81
82 my $ok = $a->load_findaffix($findaffix_file);
83 print 'not ' if (! $ok);
84 print "ok 6\n";
85
86 test($a,7);
87 } else {
88 print "ok 6 # - Skip, findaffix file '$findaffix_file' not found\n";
89 skip(7..8);
90 }
91

  ViewVC Help
Powered by ViewVC 1.1.26