/[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

Annotation of /test.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (hide annotations)
Tue Feb 12 14:31:15 2002 UTC (20 years, 11 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 dpavlin 1.1 #!perl -w
2    
3     use strict;
4    
5     # init some vars
6 dpavlin 1.4 my @affs= qw (
7     /usr/lib/ispell/english.aff
8     /usr/lib/ispell/american.aff
9     /usr/lib/ispell/british.aff
10     );
11    
12 dpavlin 1.1 my @test_words=( 'cars', 'dogs' );
13    
14 dpavlin 1.3 my $findaffix_file='./findaffix.out';
15    
16 dpavlin 1.1 my $loaded = 0;
17 dpavlin 1.4 my $debug = 0;
18 dpavlin 1.1
19 dpavlin 1.4 BEGIN { $| = 1; print "1..8\n"; }
20 dpavlin 1.1 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 dpavlin 1.4 my $a = new Lingua::Spelling::Alternative( DEBUG => $debug ) ;
29 dpavlin 1.1
30     defined($a) || print 'not '; print "ok 2\n";
31    
32     ### test load affix
33    
34 dpavlin 1.4 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 dpavlin 1.5 my $a=shift @_;
46     my $nr=shift @_;
47 dpavlin 1.4
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 dpavlin 1.1 if ( -e $affix_file ) {
65     my $ok = $a->load_affix($affix_file);
66     print 'not ' if (! $ok);
67     print "ok 3\n";
68 dpavlin 1.5 test($a,4);
69 dpavlin 1.1
70     } else {
71     print "ok 3 # - Skip, affix file '$affix_file' not found\n";
72 dpavlin 1.4 skip(4..5);
73 dpavlin 1.3 }
74    
75     undef $a;
76    
77     ### test load findaffix
78    
79     if ( -e $findaffix_file ) {
80 dpavlin 1.4 my $a = new Lingua::Spelling::Alternative( DEBUG => $debug ) ;
81 dpavlin 1.3
82     my $ok = $a->load_findaffix($findaffix_file);
83     print 'not ' if (! $ok);
84 dpavlin 1.4 print "ok 6\n";
85 dpavlin 1.3
86 dpavlin 1.5 test($a,7);
87 dpavlin 1.3 } else {
88 dpavlin 1.4 print "ok 6 # - Skip, findaffix file '$findaffix_file' not found\n";
89     skip(7..8);
90 dpavlin 1.1 }
91    

  ViewVC Help
Powered by ViewVC 1.1.26