Changeset 1456 for lang/perl/Encode-JP-Mobile/trunk

Timestamp:

11/14/07 13:05:41 (6 years ago)

Author:

miyagawa

Message:

looks like x-sjis-softbank-auto.ucm has 3 missing entries that are in dat/softbank-table.yaml. So this test now fails

Files:

• lang/perl/Encode-JP-Mobile/trunk/t/softbank-bruteforce.t (modified) (2 diffs)

lang/perl/Encode-JP-Mobile/trunk/t/softbank-bruteforce.t

@@ -11 +11 @@
 my $dat = YAML::LoadFile("dat/softbank-table.yaml");
 
-plan tests => 2 * @$dat;
+plan tests => 3 * @$dat;
 
 for my $r (@$dat) {
@@ -18 +18 @@
     is decode("x-sjis-softbank", $sjis), $unicode, $r->{unicode};
     is encode("x-sjis-softbank", $unicode), $sjis, $r->{unicode};
+
+    # not testing the actual bytes, but just check if it can be
+    # encoded and different from cp932
+    my $sjis_auto = encode("x-sjis-softbank-auto", $unicode);
+    isnt $sjis_auto, encode("cp932", $unicode);
 }