add Perl_current_re_engine() function

[perl5.git] / t / op / srand.t

diff --git a/t/op/srand.t b/t/op/srand.t
index 34fa9af..3d49126 100644 (file)
--- 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");
+}