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/003-comments.t | |
parent | 4879437a0f628b3d685a3972695aed5011622ca4 (diff) | |
download | locale-pofilemanager-f7e612ae487ce2cf72af1aecf5eb8b1bb45eaeaf.tar.gz locale-pofilemanager-f7e612ae487ce2cf72af1aecf5eb8b1bb45eaeaf.zip |
remove test numbers0.04
Diffstat (limited to 't/003-comments.t')
-rw-r--r-- | t/003-comments.t | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/t/003-comments.t b/t/003-comments.t deleted file mode 100644 index 529791e..0000000 --- a/t/003-comments.t +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -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/003'); - 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 => 'en', - ); - $manager->add_stubs; - - is($tmpdir->file('en.po')->slurp, $from_dir->file('en.po')->slurp, - "canonical file untouched"); - - my $expected = $from_dir->file("de.po")->slurp; - my $got = $tmpdir->file("de.po")->slurp; - my $fixed = substr $got, 0, length($expected), ''; - is($fixed, $expected, "original part of the file wasn't touched"); - is(substr($got, 0, 1, ''), "\n", "spacing newline added properly"); - is_deeply([sort split /\n\n/, $got], - [qq{msgid "quuux"}, qq{msgid "quux"}], - "added the correct stubs"); -} - -done_testing; |