//===========================================================================//
// File:	random.tst                                                          //
// Project: MUNGA           Brick: Math Library                              //
// Contents: test function for the random number generator                   //
//---------------------------------------------------------------------------//
//   Date    Who  Modification                                               //
// --------  ---  ---------------------------------------------------------- //
// 11/20/93  JMA  Initial coding.                                            //
//---------------------------------------------------------------------------//
// Copyright (C) 1993-1995, Virtual World Entertainment, Inc.                //
// All Rights reserved worldwide                                             //
// This unpublished sourcecode is PROPRIETARY and CONFIDENTIAL               //
//===========================================================================//

Logical
	RandomGenerator::TestClass()
{
	DEBUG_STREAM << "Starting Random test...\n";

#define RANDOM_TEST_COUNT 10000

	int i;
	for (i=0; i<RANDOM_TEST_COUNT; ++i)
	{
		Scalar r = Random;
		Test_And_Dump(r >= 0.0f && r < 1.0f,r);
	}

	int array[10];
	for (i = 0; i<ELEMENTS(array); ++i)
	{
		array[i] = 0;
	}

	for (i = 0; i<RANDOM_TEST_COUNT; ++i)
	{
		int r = Random(ELEMENTS(array));
		Test(r >= 0 && r < ELEMENTS(array));
		++array[r];
	}

	return True;
}