/*TITLE test program for FlexArray and QuantumFile classes*/

/****keyword-flag*** "%v %f %n" */
/* "2 10-May-98,10:37:08 FLEXTEST.CPP" */

/****keyword-flag*** "%v %f %n" */
char FlexTestVersionInfo[] = "2 10-May-98,10:37:08 FLEXTEST.CPP";

extern "C" {
#include <time.h>
}

#include <strstrea.h>
#include "common.h"

int main(int argc, char *argv[])
{
	ArrayIndex i;
	String Buf;
	ArrayIndex Size;

//	remove("flextest.qnt");

	FlexArray TestArray;
	FlexArray TestDir;
        String Name;

	QuantumFile QF;
	QF.Open("flextest.qnt");

	TestArray.Open(&QF,"TestArray");
	TestDir.Open(&QF,"Directory");

	Size = TestDir.GetSize();


	for (i = 0; i < Size; i ++)
		{
                Name = TestDir[i];
                if (Name != "")
                  cout << i << ": " << TestDir[i] << endl;
		}

	for (i = 0; i < 100; i ++)
		{
		strstream Temp;
		Temp << i;
		Temp >> Buf;
		TestArray[i] = Buf;
		}

#if 0
	for (i = 0; i < 100; i ++)
		{
		cout << TestArray[i] << ' ';
		}
#endif

	 return 0;
}