diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-01-09 03:12:41 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-01-09 03:12:41 -0600 |
commit | 58c4013ea1804cc380dc9afdd5bbdd8be8f88c68 (patch) | |
tree | 924e8f4c37792b8fbd2a4cf6d7d18b9efa509e0b | |
parent | 973bc9dc65c73cff087f7904266bf1116fba1c08 (diff) | |
download | locale-pofilemanager-58c4013ea1804cc380dc9afdd5bbdd8be8f88c68.tar.gz locale-pofilemanager-58c4013ea1804cc380dc9afdd5bbdd8be8f88c68.zip |
fix for hash randomization change in blead
-rw-r--r-- | t/basic.t | 74 |
1 files changed, 59 insertions, 15 deletions
@@ -24,7 +24,9 @@ sub header_is { canonical_language => 'en', ); - is_deeply({$manager->find_missing}, + my %missing = $manager->find_missing; + %missing = map { $_ => [ sort @{ $missing{$_} } ] } keys %missing; + is_deeply(\%missing, {ru => [qw(bar baz)], hi => [qw(bar)], en => [], de => []}, "got the correct missing messages"); } @@ -54,26 +56,68 @@ msgstr "" HEADER my %langs = ( - en => qq{msgid "foo"\nmsgstr "foo"\n\n} - . qq{msgid "bar"\nmsgstr "bar"\n\n} - . qq{msgid "baz"\nmsgstr "baz"\n}, - ru => qq{msgid "foo"\nmsgstr "foo"\n\n} - . qq{msgid "bar"\n\n} - . qq{msgid "baz"\n\n}, - hi => qq{msgid "foo"\nmsgstr "foo"\n\n} - . qq{msgid "baz"\nmsgstr "baz"\n\n} - . qq{msgid "bar"\n\n}, - de => qq{msgid "foo"\nmsgstr "foo"\n\n} - . qq{msgid "bar"\nmsgstr "bar"\n\n} - . qq{msgid "baz"\nmsgstr "baz"\n\n}, + en => qr{ + \A + msgid\ "foo"\n + msgstr\ "foo"\n + \n + msgid\ "bar"\n + msgstr\ "bar"\n + \n + msgid\ "baz"\n + msgstr\ "baz"\n + \z + }x, + ru => qr{ + \A + msgid\ "foo"\n + msgstr\ "foo"\n + \n + (?: + msgid\ "bar"\n + \n + msgid\ "baz"\n + | + msgid\ "baz"\n + \n + msgid\ "bar"\n + ) + \n + \z + }x, + hi => qr{ + \A + msgid\ "foo"\n + msgstr\ "foo"\n + \n + msgid\ "baz"\n + msgstr\ "baz"\n + \n + msgid\ "bar"\n + \n + \z + }x, + de => qr{ + \A + msgid\ "foo"\n + msgstr\ "foo"\n + \n + msgid\ "bar"\n + msgstr\ "bar"\n + \n + msgid\ "baz"\n + msgstr\ "baz"\n + \n + \z + }x, ); for my $file ($manager->files) { my $contents = $file->file->slurp; my ($header, $data) = ($contents =~ /^(.*?\n\n)(.*)$/s); header_is($header, $expected_header); - is($data, $langs{$file->language}, - "got the right stubs"); + like($data, $langs{$file->language}, + "got the right stubs for " . $file->language); } } |