/[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.4 by dpavlin, Tue Feb 12 12:41:31 2002 UTC revision 1.5 by dpavlin, Tue Feb 12 14:31:15 2002 UTC
# Line 42  foreach (@affs) { Line 42  foreach (@affs) {
42  # test sub  # test sub
43    
44  sub test {  sub test {
45          my $nr=$_[0];          my $a=shift @_;
46            my $nr=shift @_;
47    
48          my @words = $a->alternatives(@test_words);          my @words = $a->alternatives(@test_words);
49          print 'not ' if (! @words);          print 'not ' if (! @words);
# Line 64  if ( -e $affix_file ) { Line 65  if ( -e $affix_file ) {
65          my $ok = $a->load_affix($affix_file);          my $ok = $a->load_affix($affix_file);
66          print 'not ' if (! $ok);          print 'not ' if (! $ok);
67          print "ok 3\n";          print "ok 3\n";
68          test(4);          test($a,4);
69    
70  } else {  } else {
71          print "ok 3 # - Skip, affix file '$affix_file' not found\n";          print "ok 3 # - Skip, affix file '$affix_file' not found\n";
# Line 82  if ( -e $findaffix_file ) { Line 83  if ( -e $findaffix_file ) {
83          print 'not ' if (! $ok);          print 'not ' if (! $ok);
84          print "ok 6\n";          print "ok 6\n";
85    
86          test(7);          test($a,7);
87  } else {  } else {
88          print "ok 6 # - Skip, findaffix file '$findaffix_file' not found\n";          print "ok 6 # - Skip, findaffix file '$findaffix_file' not found\n";
89          skip(7..8);          skip(7..8);

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

  ViewVC Help
Powered by ViewVC 1.1.26