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

Diff of /test.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dpavlin, Mon Feb 11 20:19:59 2002 UTC revision 1.4 by dpavlin, Tue Feb 12 12:41:31 2002 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4    
5  # init some vars  # init some vars
6  my $affix_file='/usr/lib/ispell/english.aff';  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' );  my @test_words=( 'cars', 'dogs' );
13    
14  my $findaffix_file='./findaffix.out';  my $findaffix_file='./findaffix.out';
15    
16  my $loaded = 0;  my $loaded = 0;
17    my $debug = 0;
18    
19  BEGIN { $| = 1; print "1..6\n"; }  BEGIN { $| = 1; print "1..8\n"; }
20  END {print "not ok 1\n" unless $loaded;}  END {print "not ok 1\n" unless $loaded;}
21    
22  use Lingua::Spelling::Alternative;  use Lingua::Spelling::Alternative;
# Line 19  print "ok 1\n"; Line 25  print "ok 1\n";
25    
26  ### test constructor  ### test constructor
27    
28  my $a = new Lingua::Spelling::Alternative( DEBUG => 1 ) ;  my $a = new Lingua::Spelling::Alternative( DEBUG => $debug ) ;
29    
30  defined($a) || print 'not '; print "ok 2\n";  defined($a) || print 'not '; print "ok 2\n";
31    
32  ### test load affix  ### 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 ) {  if ( -e $affix_file ) {
64          my $ok = $a->load_affix($affix_file);          my $ok = $a->load_affix($affix_file);
65          print 'not ' if (! $ok);          print 'not ' if (! $ok);
66          print "ok 3\n";          print "ok 3\n";
67            test(4);
68    
         my @words = $a->alternatives(@test_words);  
         print 'not ' if (! @words);  
         print "ok 4 # - ",join(", ",@test_words)," -> ",join(", ",@words),"\n";  
69  } else {  } else {
70          print "ok 3 # - Skip, affix file '$affix_file' not found\n";          print "ok 3 # - Skip, affix file '$affix_file' not found\n";
71          print "ok 4 # - Skip\n";          skip(4..5);
72  }  }
73    
74  undef $a;  undef $a;
# Line 43  undef $a; Line 76  undef $a;
76  ### test load findaffix  ### test load findaffix
77    
78  if ( -e $findaffix_file ) {  if ( -e $findaffix_file ) {
79          my $a = new Lingua::Spelling::Alternative( DEBUG => 1 ) ;          my $a = new Lingua::Spelling::Alternative( DEBUG => $debug ) ;
80    
81          my $ok = $a->load_findaffix($findaffix_file);          my $ok = $a->load_findaffix($findaffix_file);
82          print 'not ' if (! $ok);          print 'not ' if (! $ok);
83          print "ok 5\n";          print "ok 6\n";
84    
85          my @words = $a->alternatives(@test_words);          test(7);
         print 'not ' if (! @words);  
         print "ok 6 # - ",join(", ",@test_words)," -> ",join(", ",@words),"\n";  
86  } else {  } else {
87          print "ok 5 # - Skip, findaffix file '$findaffix_file' not found\n";          print "ok 6 # - Skip, findaffix file '$findaffix_file' not found\n";
88          print "ok 6 # - Skip\n";          skip(7..8);
89  }  }
90    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.26