Lines Matching refs:srand
8 # Test srand.
21 srand(1138);
24 srand(1138);
27 ok( eq_array(\@first_run, \@second_run), 'srand(), same arg, same rands' );
31 srand(31337);
34 srand(1138);
38 'srand(), different arg, different rands' );
41 # Check that srand() isn't affected by $_
44 srand();
47 srand(42);
51 'srand(), no arg, not affected by $_');
54 # This test checks whether Perl called srand for you.
56 sleep(1); # in case our srand() is too time-dependent
59 ok( !eq_array(\@first_run, \@second_run), 'srand() called automatically');