diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-10-09 10:42:32 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-10-09 10:44:27 -0500 |
commit | f7e612ae487ce2cf72af1aecf5eb8b1bb45eaeaf (patch) | |
tree | 5d80694fc79aebb0283d17554cb2a65618fbbede /t/utf8.t | |
parent | 4879437a0f628b3d685a3972695aed5011622ca4 (diff) | |
download | locale-pofilemanager-f7e612ae487ce2cf72af1aecf5eb8b1bb45eaeaf.tar.gz locale-pofilemanager-f7e612ae487ce2cf72af1aecf5eb8b1bb45eaeaf.zip |
remove test numbers0.04
Diffstat (limited to 't/utf8.t')
-rw-r--r-- | t/utf8.t | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/t/utf8.t b/t/utf8.t new file mode 100644 index 0000000..1e7a520 --- /dev/null +++ b/t/utf8.t @@ -0,0 +1,52 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use utf8; +use Test::More; +use File::Temp; +use File::Copy; +use Path::Class; + +use Locale::POFileManager; + +{ + my $dir = File::Temp->newdir; + my $from_dir = dir('t/data/utf8'); + my $tmpdir = dir($dir->dirname); + for my $file ($from_dir->children) { + copy($file->stringify, $dir->dirname); + } + + { + my $manager = Locale::POFileManager->new( + base_dir => $dir->dirname, + canonical_language => 'hi', + ); + + is($manager->language_file('hi')->msgstr('नमस्ते'), + 'नमस्ते', + "got the right hindi translation"); + is($manager->language_file('en')->msgstr('नमस्ते'), + 'Hello', + "got the right english translation"); + ok(!$manager->language_file('en')->has_msgid('मेरा नाम'), + "no translation for this one"); + + $manager->add_stubs; + + ok($manager->language_file('en')->has_msgid('मेरा नाम'), + "correct stub added"); + } + + { + my $manager = Locale::POFileManager->new( + base_dir => $dir->dirname, + canonical_language => 'hi', + ); + + ok($manager->language_file('en')->has_msgid('मेरा नाम'), + "correct stub loaded"); + } +} + +done_testing; |