830b15811b
* contrib/hbtinymt/tests/test32.prg
* contrib/hbtinymt/tests/test64.prg
% simplified
! minor fixes
46 lines
1.3 KiB
Plaintext
46 lines
1.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Test program for HBTINYMT library
|
|
* Andi Jahja
|
|
*/
|
|
|
|
#require "hbtinymt"
|
|
|
|
PROCEDURE Main()
|
|
|
|
SET DECIMAL TO 0
|
|
|
|
IF hb_tinymt32_init( 0x123, 0x234, 0x345 )
|
|
TestMatrix( "32-bit unsigned integers r, where 0 <= r < 2^32", {|| PadL( hb_tinymt32_generate_uint32(), 11 ) } )
|
|
ENDIF
|
|
|
|
SET DECIMAL TO 12
|
|
|
|
IF hb_tinymt32_init_by_array( { 0x123, 0x234, 0x345 } )
|
|
TestMatrix( "Float numbers r, where 0.0 <= r < 1.0", {|| PadL( hb_tinymt32_generate_float(), 15 ) } )
|
|
TestMatrix( "Float numbers r, where 0.0 <= r < 1.0", {|| PadL( hb_tinymt32_generate_float01(), 15 ) } )
|
|
TestMatrix( "Float numbers r, where 1.0 <= r < 2.0", {|| PadL( hb_tinymt32_generate_float12(), 15 ) } )
|
|
TestMatrix( "Float numbers r, where 0.0 < r <= 1.0", {|| PadL( hb_tinymt32_generate_floatoc(), 15 ) } )
|
|
TestMatrix( "Float numbers r, where 0.0 < r < 1.0" , {|| PadL( hb_tinymt32_generate_floatoo(), 15 ) } )
|
|
TestMatrix( "32-bit precision double numbers r, where 0.0 <= r < 1.0", {|| PadL( hb_tinymt32_generate_32double(), 15 ) } )
|
|
ENDIF
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE TestMatrix( cDescription, bBlock )
|
|
LOCAL i, j
|
|
|
|
OutStd( cDescription + hb_eol() )
|
|
FOR i := 1 TO 10
|
|
FOR j := 1 TO 5
|
|
OutStd( Eval( bBlock ) )
|
|
NEXT
|
|
OutStd( hb_eol() )
|
|
NEXT
|
|
OutStd( hb_eol() )
|
|
|
|
RETURN
|