fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-06-29 19:49 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbtinymt/tests/test32.prg
  * contrib/hbtinymt/tests/test64.prg
    % simplified
    ! minor fixes
This commit is contained in:
Viktor Szakats
2012-06-29 17:50:16 +00:00
parent aae0c41955
commit 830b15811b
3 changed files with 49 additions and 141 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -16,6 +16,12 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-06-29 19:49 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbtinymt/tests/test32.prg
* contrib/hbtinymt/tests/test64.prg
% simplified
! minor fixes
2012-06-29 19:37 UTC+0200 Viktor Szakats (harbour syenar.net)
+ contrib/hbtinymt/tests/test64.prg
! another missing file.

95
harbour/contrib/hbtinymt/tests/test32.prg
View File

@@ -11,88 +11,35 @@
PROCEDURE Main()
LOCAL i, j
SET DECIMAL TO 0
IF hb_tinymt32_init( 0x123, 0x234, 0x345 )
OutStd( "32-bit unsigned integers r, where 0 <= r < 2^32" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( HB_TINYMT32_GENERATE_UINT32(), 11 ) )
NEXT
OutStd( hb_eol() )
NEXT
TestMatrix( "32-bit unsigned integers r, where 0 <= r < 2^32", {|| PadL( hb_tinymt32_generate_uint32(), 11 ) } )
ENDIF
OutStd( hb_eol() )
SET DECIMAL TO 12
IF hb_tinymt32_init_by_array( { 0x123, 0x234, 0x345 } )
OutStd( "Float numbers r, where 0.0 <= r < 1.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt32_generate_float(), 15 ) )
NEXT
OutStd( hb_eol() )
NEXT
OutStd( hb_eol() )
OutStd( hb_eol() )
OutStd( "Float numbers r, where 0.0 <= r < 1.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt32_generate_float01(), 15 ) )
NEXT
OutStd( hb_eol() )
NEXT
OutStd( hb_eol() )
OutStd( hb_eol() )
OutStd( "Float numbers r, where 1.0 <= r < 2.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt32_generate_float12(), 15 ) )
NEXT
OutStd( hb_eol() )
NEXT
OutStd( hb_eol() )
OutStd( hb_eol() )
OutStd( "Float numbers r, where 0.0 < r <= 1.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt32_generate_floatoc(), 15 ) )
NEXT
OutStd( hb_eol() )
NEXT
OutStd( hb_eol() )
OutStd( hb_eol() )
OutStd( "Float numbers r, where 0.0 < r < 1.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt32_generate_floatoo(), 15 ) )
NEXT
OutStd( hb_eol() )
NEXT
OutStd( hb_eol() )
OutStd( hb_eol() )
OutStd( "32-bit precision double numbers r, where 0.0 <= r < 1.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt32_generate_32double(), 15 ) )
NEXT
OutStd( hb_eol() )
NEXT
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

89
harbour/contrib/hbtinymt/tests/test64.prg
View File

@@ -6,79 +6,34 @@
PROCEDURE Main()
LOCAL i, j
SET DECIMAL TO 20
SET DECIMAL TO 0
IF hb_tinymt64_init( 0x123, 0x234, 0x345 )
OutStd( "64-bit unsigned integers r, where 0 <= r < 2^64" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( HB_TINYMT64_GENERATE_UINT64(), 22 ) )
NEXT
OutStd( hb_eol() )
NEXT
TestMatrix( "64-bit unsigned integers r, where 0 <= r < 2^64", {|| PadL( hb_tinymt64_generate_uint64(), 22 ) } )
ENDIF
OutStd( hb_eol() )
SET DECIMAL TO 12
SET DECIMAL TO 22
IF hb_tinymt64_init_by_array( { 0x123, 0x234, 0x345 } )
OutStd( "Double numbers r, where 0.0 <= r < 1.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt64_generate_double(), 30 ) )
NEXT
OutStd( hb_eol() )
NEXT
OutStd( hb_eol() )
OutStd( hb_eol() )
OutStd( "Double numbers r, where 0.0 < r <= 1.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt64_generate_double01(), 30 ) )
NEXT
OutStd( hb_eol() )
NEXT
OutStd( hb_eol() )
OutStd( hb_eol() )
OutStd( "Double numbers r, where 1.0 <= r < 2.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt64_generate_double12(), 30 ) )
NEXT
OutStd( hb_eol() )
NEXT
OutStd( hb_eol() )
OutStd( hb_eol() )
OutStd( "Double numbers r, where 0.0 < r <= 1.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt64_generate_doubleoc(), 30 ) )
NEXT
OutStd( hb_eol() )
NEXT
OutStd( hb_eol() )
OutStd( hb_eol() )
OutStd( "Double numbers r, where 0.0 < r < 1.0" )
OutStd( hb_eol() )
FOR i := 1 TO 10
FOR j := 1 TO 5
OutStd( PadL( hb_tinymt64_generate_doubleoo(), 30 ) )
NEXT
OutStd( hb_eol() )
NEXT
OutStd( hb_eol() )
OutStd( hb_eol() )
TestMatrix( "Double numbers r, where 0.0 <= r < 1.0", {|| PadL( hb_tinymt64_generate_double(), 30 ) } )
TestMatrix( "Double numbers r, where 0.0 < r <= 1.0", {|| PadL( hb_tinymt64_generate_double01(), 30 ) } )
TestMatrix( "Double numbers r, where 1.0 <= r < 2.0", {|| PadL( hb_tinymt64_generate_double12(), 30 ) } )
TestMatrix( "Double numbers r, where 0.0 < r <= 1.0", {|| PadL( hb_tinymt64_generate_doubleoc(), 30 ) } )
TestMatrix( "Double numbers r, where 0.0 < r < 1.0" , {|| PadL( hb_tinymt64_generate_doubleoo(), 30 ) } )
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