viewvc.cgi/Lingua-Spelling-Alternative/test.pl

#!perl -w

use strict;

# init some vars
my $affix_file='/usr/lib/ispell/english.aff';
my @test_words=( 'cars', 'dogs' );

my $loaded = 0;

BEGIN { $| = 1; print "1..4\n"; }
END {print "not ok 1\n" unless $loaded;}

use Lingua::Spelling::Alternative;
$loaded = 1;
print "ok 1\n";

### test constructor

my $a = new Lingua::Spelling::Alternative() ;

defined($a) || print 'not '; print "ok 2\n";

### test load affix


if ( -e $affix_file ) {
        my $ok = $a->load_affix($affix_file);
        print 'not ' if (! $ok);
        print "ok 3\n";

        my @words = $a->alternatives(@test_words);
        print 'not ' if (! @words);
        print "ok 4 # - ",join(", ",@test_words)," -> ",join(", ",@words),"\n";
} else {
        print "ok 3 # - Skip, affix file '$affix_file' not found\n";
        print "ok 4 # - Skip\n";
}

1	dpavlin	1.1	#!perl -w
2
3			use strict;
4
5			# init some vars
6			my $affix_file='/usr/lib/ispell/english.aff';
7			my @test_words=( 'cars', 'dogs' );
8
9			my $loaded = 0;
10
11			BEGIN { $\| = 1; print "1..4\n"; }
12			END {print "not ok 1\n" unless $loaded;}
13
14			use Lingua::Spelling::Alternative;
15			$loaded = 1;
16			print "ok 1\n";
17
18			### test constructor
19
20			my $a = new Lingua::Spelling::Alternative() ;
21
22			defined($a) \|\| print 'not '; print "ok 2\n";
23
24			### test load affix
25
26
27			if ( -e $affix_file ) {
28			my $ok = $a->load_affix($affix_file);
29			print 'not ' if (! $ok);
30			print "ok 3\n";
31
32			my @words = $a->alternatives(@test_words);
33			print 'not ' if (! @words);
34			print "ok 4 # - ",join(", ",@test_words)," -> ",join(", ",@words),"\n";
35			} else {
36			print "ok 3 # - Skip, affix file '$affix_file' not found\n";
37			print "ok 4 # - Skip\n";
38			}
39