limitf.hsp

// limit, limitf のテスト

#include "hspmath.as"
#include "hspda.as"
	
	randomize
	rndf_ini
	
	assert limit(0x7FFFFFFF, 0, ) == 0x7FFFFFFF
	assert limit(0x80000000, , 0) == 0x80000000
	repeat 100000
		r = rnd(0x7FFF) - rnd(0x7FFF)
		assert (limit(r, 0) == r) == (r >= 0)
	loop
	
	assert limitf( DBL_MAX, , ) ==  DBL_MAX
	assert limitf(-DBL_MAX, , ) == -DBL_MAX
	repeat 100000
		rndf_get r
		r -= 0.5
		assert (limitf(r, 0) == r) == (r >= 0)
	loop
	
	logmes "complete"

memsize.hsp

// memsize 関数のテスト

	sdim s
	assert memsize(s) == 64
	
	str100 = "012345789012345789012345789012345789012345789012345789012345789012345789012345789012345789"
	mes memsize(str100) >= 101
	
	dim is, 12
	assert memsize(is) == 12 * 4  // if 32bit ver
	
	dim is2, 2, 3, 5
	assert memsize(is) = 2 * 3 * 5 * 4