require './test.pl';
}
-plan tests => 97;
+plan tests => 99;
my $Is_EBCDIC = (ord('i') == 0x89 & ord('J') == 0xd1);
tr/I-J/i-j/;
- is($_, "i\xcaj", 'lc with unicode');
+ is($_, "i\xcaj", 'EBCDIC discontinuity');
}
#
# 20000705 MJD
eval "tr/m-d/ /";
-like($@, qr/^Invalid \[\] range "m-d" in transliteration operator/,
+like($@, qr/^Invalid range "m-d" in transliteration operator/,
'reversed range check');
eval '$1 =~ tr/x/y/';
eval '$foo{bar} =~ tr/N/N/';
is( $@, '', 'implicit count outside hash bounds' );
is( scalar keys %foo, 0, " doesn't extend the hash");
+
+$x = \"foo";
+is( $x =~ tr/A/A/, 2, 'non-modifying tr/// on a scalar ref' );
+is( ref $x, 'SCALAR', " doesn't stringify its argument" );