summaryrefslogtreecommitdiffstats
path: root/t/004-utf8.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-10-09 10:42:32 -0500
committerJesse Luehrs <doy@tozt.net>2011-10-09 10:44:27 -0500
commitf7e612ae487ce2cf72af1aecf5eb8b1bb45eaeaf (patch)
tree5d80694fc79aebb0283d17554cb2a65618fbbede /t/004-utf8.t
parent4879437a0f628b3d685a3972695aed5011622ca4 (diff)
downloadlocale-pofilemanager-f7e612ae487ce2cf72af1aecf5eb8b1bb45eaeaf.tar.gz
locale-pofilemanager-f7e612ae487ce2cf72af1aecf5eb8b1bb45eaeaf.zip
remove test numbers0.04
Diffstat (limited to 't/004-utf8.t')
-rw-r--r--t/004-utf8.t52
1 files changed, 0 insertions, 52 deletions
diff --git a/t/004-utf8.t b/t/004-utf8.t
deleted file mode 100644
index 9b716a8..0000000
--- a/t/004-utf8.t
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/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/004');
- 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;