//===========================================================================//
// File:	filestrm.tcp                                                    //
// Project: MUNGA           Brick: Filestream Manager                        //
// Contents: Test stuff for MMIO class                                       //
//---------------------------------------------------------------------------//
//   Date    Who  Modification                                               //
// --------  ---  ---------------------------------------------------------- //
// 4/25/96   JTR  Initial Creation		                                  //
//---------------------------------------------------------------------------//
// Copyright (C) 1994, Virtual World Entertainment, Inc. All Rights reserved //
//                      PROPRIETARY AND CONFIDENTIAL                         //
//===========================================================================//

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ MMIOstream ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

//
//#############################################################################
//#############################################################################
//

#include <time.hpp>

Logical
FileStream::TestClass()
{
	char buffer[65535];
	int i;
	float total = 0;
	Time s; 

	FileStream Testit;

	memset(buffer,'A',65535);

	DEBUG_STREAM << "Starting FileStream test...\n";
 	for(i=0; i < 1024; i++)
	{
		s = Now();
		Testit.Open("mmiotest.tst",1);
		Testit.WriteBytes(buffer,65535);
		Testit.Close();
		Testit.Open("mmiotest.tst",0);
		Testit.ReadBytes(buffer,65535);
		Testit.Close();
		total += Now() - s;
	}
	for(i=0; i < 65535; i++) Verify(buffer[i] == 'A');
	DEBUG_STREAM << "Opening, writing, closing, opening, reading, and closing\n  64K file 1024 times, averaging out to " << total / 1024.0f << " ticks apiece...\n";
	DEBUG_STREAM << "File data checks out, as well...\n";
	DEBUG_STREAM << "Leaving FileStream test...\n";
	return True;
};