diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-23 19:58:07 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-23 19:58:07 +0000 |
| commit | f9d05ba35dc7d01260b38a6dc93f199c3b1d2c39 (patch) | |
| tree | f357401c49ca2fc654007f03333d3f758fc23e2b /ext/Encode/t/Encode.t | |
| parent | 3b2f3eeb7db34430d0f2a4bbc1b52e70a34987d0 (diff) | |
| download | perl-f9d05ba35dc7d01260b38a6dc93f199c3b1d2c39.tar.gz | |
Upgrade to Encode 2.07
p4raw-id: //depot/perl@23417
Diffstat (limited to 'ext/Encode/t/Encode.t')
| -rw-r--r-- | ext/Encode/t/Encode.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/Encode/t/Encode.t b/ext/Encode/t/Encode.t index 784ea74117..63e913a587 100644 --- a/ext/Encode/t/Encode.t +++ b/ext/Encode/t/Encode.t @@ -25,7 +25,7 @@ my @character_set = ('0'..'9', 'A'..'Z', 'a'..'z'); my @source = qw(ascii iso8859-1 cp1250); my @destiny = qw(cp1047 cp37 posix-bc); my @ebcdic_sets = qw(cp1047 cp37 posix-bc); -plan test => 38+$n*@encodings + 2*@source*@destiny*@character_set + 2*@ebcdic_sets*256 + 6; +plan test => 38+$n*@encodings + 2*@source*@destiny*@character_set + 2*@ebcdic_sets*256 + 6 + 2; my $str = join('',map(chr($_),0x20..0x7E)); my $cpy = $str; ok(length($str),from_to($cpy,'iso8859-1','Unicode'),"Length Wrong"); @@ -142,3 +142,7 @@ $a = "\x{100}"; chop $a; ok( is_utf8($a)); # weird but true: an empty UTF-8 string +# non-string arguments +ok(decode(latin1 => bless {}, "x"), undef); +ok(encode(utf8 => bless {}, "x"), undef); + |