"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "t/09-moar/00-misc.t" between
rakudo-2020.08.2.tar.gz and rakudo-2020.09.tar.gz

About: Rakudo is a compiler for the Perl 6 programming language.

00-misc.t  (rakudo-2020.08.2):00-misc.t  (rakudo-2020.09)
skipping to change at line 24 skipping to change at line 24
lives-ok { class C { }; await start { for ^10_0000 { C.^set_name('B') } } xx 4 } , lives-ok { class C { }; await start { for ^10_0000 { C.^set_name('B') } } xx 4 } ,
'No SEGV when many threads try to change the debug type name'; 'No SEGV when many threads try to change the debug type name';
# https://github.com/rakudo/rakudo/issues/3469 # https://github.com/rakudo/rakudo/issues/3469
{ {
use nqp; use nqp;
nqp::srand(1); nqp::srand(1);
my $first := nqp::rand_I(100,Int); my $first := nqp::rand_I(100,Int);
my $second := nqp::rand_I(100,Int); my $second := nqp::rand_I(100,Int);
nqp::srand(1); nqp::srand(1);
is nqp::rand_I(100,Int), $first, 'does srand produce same rand_I values 1'; is-deeply nqp::rand_I(100,Int), $first,
is nqp::rand_I(100,Int), $second, 'does srand produce same rand_I values 2'; 'does srand produce same rand_I values 1';
is-deeply nqp::rand_I(100,Int), $second,
'does srand produce same rand_I values 2';
nqp::srand(1); nqp::srand(1);
$first := nqp::rand_n(100e0); $first := nqp::rand_n(100e0);
$second := nqp::rand_n(100e0); $second := nqp::rand_n(100e0);
nqp::srand(1); nqp::srand(1);
is nqp::rand_n(100e0), $first, 'does srand produce same rand_n values 1'; is-deeply nqp::rand_n(100e0), $first,
is nqp::rand_n(100e0), $second, 'does srand produce same rand_n values 2'; 'does srand produce same rand_n values 1';
is-deeply nqp::rand_n(100e0), $second,
'does srand produce same rand_n values 2';
} }
# vim: expandtab shiftwidth=4 # vim: expandtab shiftwidth=4
 End of changes. 2 change blocks. 
4 lines changed or deleted 8 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)