The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
BPOSTLE / Petal-2.19 / t / 081_Petal_I18NProcessor.t 
#!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal::I18N;
use Petal;

eval "use Lingua::31337";
if ($@) {
   warn "Lingua::31337 not found - skipping";
   ok (1);
}
else
{
    eval "use Petal::TranslationService::h4x0r";
    die $@ if ($@);

    $Petal::TranslationService = Petal::TranslationService::h4x0r->new();
    my $xml = <<EOF;
  <html><body>

    <!-- this is a mad example of romanized japanese, which we
         are going to turn into h4x0rz r0m4n|z3d J4paN33z -->

    <div i18n:translate="">
      Konichiwa, <span i18n:name="name">Buruno</span>-san,
      Kyoo wa o-genki desu ka?
    </div>

  </body></html>
EOF

    $xml =~ s/\s*$//;
    
    my $res = Petal::I18N->process ($xml);
    ok ($res =~ /Buruno/);
    ok ($res !~ /Konichiwa/);
}


1;


__END__