Changeset 5625

Timestamp:

06/26/09 18:25:13 (3 years ago)

Author:

ryan52

Message:

test that passing fuzzy produces diffferent files

Location:

trunk/Locale-Msgfmt/t

Files:

• interface.t (modified) (3 diffs)
• samples/basic.po (modified) (1 diff)

trunk/Locale-Msgfmt/t/interface.t

@@ -1 +1 @@
 #!perl
 
-use Test::More tests => 6;
+use Test::More tests => 8;
 
 use Locale::Msgfmt;
@@ -7 +7 @@
 use File::Copy;
 use File::Spec;
+use File::Path;
 
-$dir = File::Temp::tempdir(CLEANUP => 1);
+sub slurp {
+    open F, shift;
+    binmode F;
+    my $s = "";
+    while(<F>) { $s .= $_; };
+    close F;
+    return $s;
+}
+
+$dir = File::Temp::tempdir(CLEANUP => 0);
 copy(File::Spec->catfile("t", "samples", "basic.po"), File::Spec->catfile($dir, "basic.po"));
 msgfmt(File::Spec->catfile($dir, "basic.po"));
@@ -30 +40 @@
 msgfmt({in => File::Spec->catdir($dir, "a"), out => File::Spec->catdir($dir, "b"),});
 ok(-f File::Spec->catfile($dir, "b", "basic.mo"));
+unlink(File::Spec->catfile($dir, "b", "basic.mo"));
+move(File::Spec->catfile($dir, "a", "basic.po"), File::Spec->catfile($dir, "basic.po"));
+msgfmt({in => File::Spec->catfile($dir, "basic.po"), fuzzy => 1, out => File::Spec->catfile($dir, "fuzzy")});
+msgfmt({in => File::Spec->catfile($dir, "basic.po"), out => File::Spec->catfile($dir, "not_fuzzy")});
+ok(!(slurp(File::Spec->catfile($dir, "not_fuzzy")) eq slurp(File::Spec->catfile($dir, "fuzzy"))));
+unlink(File::Spec->catfile($dir, "not_fuzzy"));
+unlink(File::Spec->catfile($dir, "fuzzy"));
+move(File::Spec->catfile($dir, "basic.po"), File::Spec->catfile($dir, "a", "basic.po"));
+msgfmt({in => File::Spec->catfile($dir, "a"), fuzzy => 1, out => File::Spec->catfile($dir, "b")});
+msgfmt({in => File::Spec->catfile($dir, "a"), out => File::Spec->catfile($dir, "c")});
+ok(!(slurp(File::Spec->catfile($dir, "b", "basic.mo")) eq slurp(File::Spec->catfile($dir, "c", "basic.mo"))));
+unlink(File::Spec->catfile($dir, "c", "basic.mo"));
+unlink(File::Spec->catfile($dir, "b", "basic.mo"));
 
-# TODO: test that passing fuzzy in all cases makes a difference
-

trunk/Locale-Msgfmt/t/samples/basic.po

@@ +1 @@
+#, fuzzy
 msgid "foo"
 msgstr "bar"