Changeset 5626

Timestamp:

06/26/09 18:32:14 (3 years ago)

Author:

ryan52

Message:

also compare msgfmt output with fuzzyness

Location:

trunk/Locale-Msgfmt/t

Files:

• msgfmt.t (modified) (4 diffs)
• samples/basic.po (modified) (1 diff)
• samples/build (modified) (1 diff)
• samples/fuzz.mo (added)

trunk/Locale-Msgfmt/t/msgfmt.t

@@ -1 +1 @@
 #!perl
 
-use Test::More tests => 3;
+use Test::More tests => 5;
 
 use Locale::Msgfmt;
@@ -8 +8 @@
 
 SKIP: {
-    skip "Test needs Locale::Maketext::Gettext", 3 if(!eval("use Locale::Maketext::Gettext; 1;"));
+    skip "Test needs Locale::Maketext::Gettext", 5 if(!eval("use Locale::Maketext::Gettext; 1;"));
     sub my_read_mo {
         my $str = "";
@@ -18 +18 @@
         my ($fh, $filename) = File::Temp::tempfile();
         close $fh;
-        msgfmt({in => shift, out => $filename});
+        my $in = shift;
+        my $fuzzy = 0;
+        if(shift) {
+            $fuzzy = 1;
+        }
+        msgfmt({in => $in, out => $filename, fuzzy => $fuzzy});
         return $filename;
     }
@@ -29 +34 @@
         my $test = my_read_mo($filename);
         is($test, $good);
+        if($basename eq "basic") {
+            unlink($filename);
+            $filename = my_msgfmt($po, 1);
+            $good = my_read_mo(File::Spec->catfile("t", "samples", "fuzz.mo"));
+            $test = my_read_mo($filename);
+            is($test, $good);
+        }
         unlink($filename);
     }

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

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

trunk/Locale-Msgfmt/t/samples/build

@@ -6 +6 @@
     MO=$(echo $PO | sed 's/po$/mo/')
     msgfmt -o $MO $PO
+    if [ "$PO" = "basic.po" ]; then
+        msgfmt -f -o fuzz.mo $PO
+    fi
 done