Acme-AjiFry

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "author"
      ]
   },
   "prereqs" : {
      "build" : {
         "requires" : {
            "File::Compare" : "1.1005",
            "File::Copy" : "2.13",
            "File::Spec::Functions" : "0",
            "FindBin" : "0",
            "Test::More" : "0.98"
         }
      },
      "configure" : {
         "requires" : {
            "CPAN::Meta" : "0",
            "CPAN::Meta::Prereqs" : "0",
            "Module::Build" : "0.4003"
         }
      },
      "develop" : {
         "requires" : {
            "Test::CPAN::Meta" : "0",
            "Test::MinimumVersion" : "0.10108",
            "Test::Pod" : "1.41",
            "Test::Spellunker" : "v0.2.7"
         }
      },
      "runtime" : {
         "requires" : {
            "Encode" : "2.39",
            "Filter::Simple" : "0.84",
            "List::Util" : "1.22",
            "perl" : "5.008009"
         }
      }

META.yml  view on Meta::CPAN

---
abstract: 'AjiFry Language (アジフライ語) Translator'
author:
  - 'moznion  C<< <moznion[at]gmail.com> >>'
build_requires:
  File::Compare: 1.1005
  File::Copy: 2.13
  File::Spec::Functions: 0
  FindBin: 0
  Test::More: 0.98
configure_requires:
  CPAN::Meta: 0
  CPAN::Meta::Prereqs: 0
  Module::Build: 0.4003
dynamic_config: 0
generated_by: 'Minilla/v0.4.4, CPAN::Meta::Converter version 2.130880'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4

cpanfile  view on Meta::CPAN

requires 'perl',           '5.008009';
requires 'Encode',         '2.39';
requires 'List::Util',     '1.22';
requires 'Filter::Simple', '0.84';

on 'build' => sub {
    requires 'FindBin',               0;
    requires 'Test::More',            '0.98';
    requires 'File::Copy',            '2.13';
    requires 'File::Compare',         '1.1005';
    requires 'File::Spec::Functions', 0;
};

on 'configure' => sub {
    requires 'Module::Build', '0.4003';
};

t/00.load.t  view on Meta::CPAN

use Test::More tests => 1;

BEGIN {
use_ok( 'Acme::AjiFry' );
}

diag( "Testing Acme::AjiFry $Acme::AjiFry::VERSION" );

t/01.translate_from_ja.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry;

use Test::More;

my $got;
my $aji_fry = Acme::AjiFry->new();

$got = Encode::decode_utf8($aji_fry->to_AjiFry("おさしみ"));
is($got, "食えアジフライお刺身食え食えお刺身ドボドボ岡星ドボドボ", "From Ja: 1");

$got = Encode::decode_utf8($aji_fry->to_AjiFry("あきらめたらそこでしあいしゅうりょうだよ"));
is($got, "食え食え食えフライドボドボああ食え食え岡星むむ･･･アジ食え食えああ食え食えお刺身アジフライフライアジフライアジむむ･･･陶人お刺身ドボドボ食え食え食え食えドボ...

t/02.translate_to_ja.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry;

use Test::More;

my $got;
my $aji_fry = Acme::AjiFry->new();

$got = Encode::decode_utf8($aji_fry->to_Japanese("食えアジフライお刺身食え食えお刺身ドボドボ岡星ドボドボ"));
is($got, "おさしみ", "To Ja: 1");

$got = Encode::decode_utf8($aji_fry->to_Japanese("山岡食え食え社主ああドボドボーフライお刺身陶人"));
is($got, "ぱりーぐ", "To Ja: 2");

t/03.translate_reciprocally_ja.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry;

use Test::More;

my $got;
my $aji_fry = Acme::AjiFry->new();

$got = Encode::decode_utf8($aji_fry->to_Japanese($aji_fry->to_AjiFry("おさしみ")));
is($got, "おさしみ", "Translate reciprocally Ja: 1");

$got = Encode::decode_utf8($aji_fry->to_Japanese($aji_fry->to_AjiFry("ぱりーぐ")));
is($got, "ぱりーぐ", "Translate reciprocally Ja: 2");

t/04.translate_from_en.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry::EN;

use Test::More;

my $got;
my $aji_fry_en = Acme::AjiFry::EN->new();

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry("0123456789"));
is($got, "京極お刺身京極むむ･･･京極アジフライ陶人食え食え陶人ドボドボ陶人お刺身陶人むむ･･･陶人アジフライ社主食え食え社主ドボドボ", "Translate from En: 1");

$got = Encode::decode_utf8($aji_fry_en->to_AjiFry("abcdefghijklmnopqrstuvwxyz"));
is($got, "食え食え食え食えドボドボ食えお刺身食えむむ･･･食えアジフライフライ食え食えフライドボドボフライお刺身フライむむ･･･フライアジフライお刺身食え食えお刺身ドボド...

t/05.translate_to_en.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry::EN;

use Test::More;

my $got;
my $aji_fry_en = Acme::AjiFry::EN->new();

$got = $aji_fry_en->to_English("京極お刺身京極むむ･･･京極アジフライ陶人食え食え陶人ドボドボ陶人お刺身陶人むむ･･･陶人アジフライ社主食え食え社主ドボドボ");
is($got, "0123456789", "Translate to En: 1");

$got = $aji_fry_en->to_English("食え食え食え食えドボドボ食えお刺身食えむむ･･･食えアジフライフライ食え食えフライドボドボフライお刺身フライむむ･･･フライアジフライお刺身食えé£...
is($got, "abcdefghijklmnopqrstuvwxyz", "Translate to En: 2");

t/06.translate_reciprocally_en.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use Encode;

use Acme::AjiFry::EN;

use Test::More;

my $got;
my $aji_fry_en = Acme::AjiFry::EN->new();

$got = $aji_fry_en->to_English($aji_fry_en->to_AjiFry("0123456789"));
is($got, "0123456789", "Translate reciprocally En: Number");

$got = $aji_fry_en->to_English($aji_fry_en->to_AjiFry("abcdefghijklmnopqrstuvwxyz"));
is($got, "abcdefghijklmnopqrstuvwxyz", "Translate reciprocally En: Small Letter");

t/07.self_rewrite.t  view on Meta::CPAN

#!perl

use strict;
use utf8;
use File::Compare;
use File::Copy;
use File::Spec::Functions qw/catfile/;
use FindBin;

use Test::More;

my $rewrite            = catfile($FindBin::Bin, 'rewrite');
my $original_rewrite   = catfile($FindBin::Bin, 'rewrite.orig');
my $translated_rewrite = catfile($FindBin::Bin, 'rewrite.translated');
File::Copy::copy $original_rewrite, $rewrite;

my $got;
$got = `$^X $rewrite`;
is($got, 'hello', 'rewrite: stdout-1');
$got = File::Compare::compare($rewrite, $translated_rewrite);

xt/local_functions.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use utf8;

use Test::More;

eval "use Test::LocalFunctions";
plan skip_all => "Test::LocalFunctions required for testing variables" if $@;

all_local_functions_ok();

xt/perlcritic.t  view on Meta::CPAN

#!perl

use strict;
use Test::More;

eval { require Test::Perl::Critic; Test::Perl::Critic->import(-profile => "xt/perlcriticrc") };
plan skip_all => "Test::Perl::Critic is not installed." if $@;

all_critic_ok();

xt/vars.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use utf8;

use Test::More;

eval "use Test::Vars";
plan skip_all => "Test::Vars required for testing variables" if $@;

all_vars_ok();

 view all matches for this distribution
 view release on metacpan -  search on metacpan