# -*- perl -*-
# t/010_predicate.t - submodule predicate test
use Test::Most tests=>4+1;
use Test::NoWarnings;
use utf8;
use lib qw(t/lib);
use Text::Phonetic;
require "t/global.pl";
throws_ok {
require Text::Phonetic::Fake;
my $t1 = Text::Phonetic::Fake->new();
is($t1->encode('hase'),'HASE');
} qr/missing/;
throws_ok {
my $t2 = Text::Phonetic->load(algorithm => 'Fake');
is($t2->encode('hase'),'HASE');
} qr/missing/;
my $t3 = Text::Phonetic->load(algorithm => 'Real');
is($t3->encode('hase'),'HASE','Enocde fake ok');
require Text::Phonetic::Real;
my $t4 = Text::Phonetic::Real->new();
is($t4->encode('hase'),'HASE','Enocde real ok');