'UCS2' => 'UCS-2BE',
'iso-10646-1' => 'UCS-2BE',
'ucs2-le' => 'UCS-2LE',
+ 'ucs2-be' => 'UCS-2BE',
'utf16' => 'UTF-16',
'utf32' => 'UTF-32',
'utf16-be' => 'UTF-16BE',
print "# alias test; \$ON_EBCDIC == $ON_EBCDIC\n";
-foreach my $a (keys %a2c){
+foreach my $a (keys %a2c){
my $e = Encode::find_encoding($a);
- is((defined($e) and $e->name), $a2c{$a})
+ is((defined($e) and $e->name), $a2c{$a},$a)
or warn "alias was $a";;
}
print "# alias test with alias overrides\n";
-foreach my $a (keys %a2c){
+foreach my $a (keys %a2c){
my $e = Encode::find_encoding($a);
- is((defined($e) and $e->name), $a2c{$a})
+ is((defined($e) and $e->name), $a2c{$a}, "Override $a")
or warn "alias was $a";
}
print "# alias undef test\n";
Encode::Alias->undef_aliases;
-foreach my $a (keys %a2c){
+foreach my $a (keys %a2c){
my $e = Encode::find_encoding($a);
- ok(!defined($e) || $e->name =~ /-raw$/o)
+ ok(!defined($e) || $e->name =~ /-raw$/o,"Undef $a")
or warn "alias was $a";
}
Encode::Alias->init_aliases;
init_a2c();
-foreach my $a (keys %a2c){
+foreach my $a (keys %a2c){
my $e = Encode::find_encoding($a);
- is((defined($e) and $e->name), $a2c{$a})
+ is((defined($e) and $e->name), $a2c{$a}, "Reinit $a")
or warn "alias was $a";
}
__END__