Make srand() return "0 but true" for 0, for backwards compatible behaviour.

1 files changed, 19 insertions, 1 deletions

diff --git a/t/op/srand.t b/t/op/srand.t
index 34fa9af935..3d49126268 100644
--- a/t/op/srand.t
+++ b/t/op/srand.t
@@ -10,7 +10,7 @@ BEGIN {
 use strict;
 
 require "test.pl";
-plan(tests => 5);
+plan(tests => 9);
 
 # Generate a load of random numbers.
 # int() avoids possible floating point error.
@@ -61,3 +61,21 @@ ok( !eq_array(\@first_run, \@second_run), 'srand() called automatically');
 # check srand's return value
 my $seed = srand(1764);
 is( $seed, 1764, "return value" );
+
+$seed = srand(0);
+ok( $seed, "true return value for srand(0)");
+cmp_ok( $seed, '==', 0, "numeric 0 return value for srand(0)");
+
+{
+    my @warnings;
+    my $b;
+    {
+	local $SIG{__WARN__} = sub {
+	    push @warnings, "@_";
+	    warn @_;
+	};
+	$b = $seed + 0;
+    }
+    is( $b, 0, "Quacks like a zero");
+    is( "@warnings", "", "Does not warn");
+}