///////////////////////////////////////////////////////////////////////////////
// testing base utilities
/////////////////////////////////////////////////////////////////////////////////

void test_read_table(const char* InputFile) {

  int         ncolumns, nlines;
  TObjArray   a(100);
  TStnArrayF* column;


  TStnUtils::ReadTable(InputFile,&a);
					// done with reading, print the results
  ncolumns = a.GetEntries();
  column   = (TStnArrayF*) a[0];
  nlines   = column->NDataWords();

  printf(" ncolumns = %i\n",ncolumns);
  
  for (int i=0; i<nlines; i++) {
    for (int j=0; j<ncolumns; j++) {
      column = (TStnArrayF*) a[j];
      printf(" %12.5g",(*column)[i]);
    }
    printf("\n");
  }
}


void test_read_arrayi(const char* InputFile) {

  int         n, loc, ncolumns = 10;
  TStnArrayI  a;

  TStnUtils::ReadArrayI(InputFile,&a);
//-----------------------------------------------------------------------------
// done with reading, print the results
//-----------------------------------------------------------------------------
  a.Print();
}

//-----------------------------------------------------------------------------
// assuming we are on top of the test release
//-----------------------------------------------------------------------------
test() {
  test_read_table ("Stntuple/base/test/table.input");
  test_read_arrayi("Stntuple/base/test/arrayi.input"); 
}