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); |
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"; |
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); |