This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make srand treat "-1" as -1
[perl5.git] / t / op / chr.t
index 510492e..57b4ade 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     require "test.pl";
 }
 
-plan tests => 38;
+plan tests => 42;
 
 # Note that t/op/ord.t already tests for chr() <-> ord() rountripping.
 
@@ -30,6 +30,7 @@ is(chr(-3.0), "\x{FFFD}");
     is(chr(-2  ), "\xFE");
     is(chr(-3.0), "\xFD");
 }
+
 # Make sure -1 is treated the same way when coming from a tied variable
 sub TIESCALAR {bless[]}
 sub STORE { $_[0][0] = $_[1] }
@@ -40,6 +41,12 @@ $t = -2; is chr $t, chr -2, 'chr $tied when $tied is -2';
 $t = -1.1; is chr $t, chr -1.1, 'chr $tied when $tied is -1.1';
 $t = -2.2; is chr $t, chr -2.2, 'chr $tied when $tied is -2.2';
 
+# And that stringy scalars are treated likewise
+is chr "-1", chr -1, 'chr "-1" eq chr -1';
+is chr "-2", chr -2, 'chr "-2" eq chr -2';
+is chr "-1.1", chr -1.1, 'chr "-1.1" eq chr -1.1';
+is chr "-2.2", chr -2.2, 'chr "-2.2" eq chr -2.2';
+
 # Check UTF-8 (not UTF-EBCDIC).
 SKIP: {
     skip "no UTF-8 on EBCDIC", 21 if chr(193) eq 'A';