Branch: Tag:

2003-03-28

2003-03-28 14:32:30 by Marcus Comstedt <marcus@mc.pp.se>

Test pseudo random sequence.

Rev: src/testsuite.in:1.625

1: - test_true([["$Id: testsuite.in,v 1.624 2003/03/27 02:23:19 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.625 2003/03/28 14:32:30 marcus Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
8234:   test_eq([[random_seed(17),random(20000)]],[[random_seed(17),random(20000)]])   test_eq([[random_seed(18),random(20000)]],[[random_seed(18),random(20000)]])   test_eq([[random_seed(19),random(20000)]],[[random_seed(19),random(20000)]]) + test_equal([[random_seed(4711),map(allocate(10,1000), random)]], +  [[({598,11,331,991,383,553,997,53,272,381})]])      // - random_string   // - readlink