PerValidate.cc

Go to the documentation of this file.

//
// PerValidate
//
// Package: (Per) Persistency
//
// S. Kasahara 07/2002
//
// Purpose: Class for use in validating the Persistency package.
//

#include <iostream>
using std::cout;
using std::endl;

#include "MessageService/MsgStream.h"
#include "MessageService/MsgService.h"
#include "MinosObjectMap/MomNavigator.h"
#include "RawData/RawRecord.h"

#include "Persistency/test/PerValidate.h"
#include "Persistency/PerInputStream.h"
#include "Persistency/PerRecordTags.h"

// Definition of static data members
// *********************************

// Definition of methods (alphabetical order)
// ***************************************************

PerValidate::PerValidate() : fFileName("pervld.root") {
  //
  //  Purpose:  Default constructor.
  //
  //  Arguments: none.
  //
  //  Return:    n/a.
  //
  //  Contact:   S. Kasahara
  // 

}

PerValidate::~PerValidate() {
  //
  //  Purpose:  Destructor.
  //
  //  Contact:   S. Kasahara
  // 

}

bool PerValidate::StreamTagsSeq() {
  //
  //  Purpose:  Test sequencing and grouping of record tags on individual
  //            streams.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 
  //  Notes: Requires input data from test file "pervld.root"
  //

  bool pass = true;

  Int_t snlInd[5][2] = { {0,0},{1,1},{2,2},{3,3},{4,4} };
  Int_t monInd[5][2] = { {0,0},{1,3},{4,5},{6,7},{8,9} };

  PerInputStream* instream = dynamic_cast<PerInputStream*>
    (fInputStreamManager.GetOpenedStream("DaqSnarl"));
  PerRecordTags tags = instream -> NextTags();
  Int_t set = -1;
  while ( !tags.IsEnd() ) {
    set++;
    //cout << "NextTags set " << set << ")" << tags << endl;
    if ( tags.GetIndexLo() != snlInd[set][0] 
      || tags.GetIndexHi() != snlInd[set][1]) {
      return false;
    }   
    tags = instream -> NextTags();
  }

  tags = instream -> PrevTags();
  while ( !tags.IsBegin() ) {
    //cout << "PrevTags set " << set << ")" << tags << endl;
    if ( tags.GetIndexLo() != snlInd[set][0] 
      || tags.GetIndexHi() != snlInd[set][1]) {
      return false;
    }   
    tags = instream -> PrevTags();   
    set--;
  }

  tags = instream -> NextTags();
  set = -1;
  while ( !tags.IsEnd() ) {
    set++;
    //cout << "NextTags set " << set << ")" << tags << endl;
    if ( tags.GetIndexLo() != snlInd[set][0] 
      || tags.GetIndexHi() != snlInd[set][1]) {
      return false;
    }   
    tags = instream -> NextTags();
  }

  tags = instream -> PrevTags();
  while ( !tags.IsBegin() ) {
    //cout << "PrevTags set " << set << ")" << tags << endl;
    if ( tags.GetIndexLo() != snlInd[set][0] 
      || tags.GetIndexHi() != snlInd[set][1]) {
      return false;
    }   
    tags = instream -> PrevTags();   
    set--;
  }

  instream = dynamic_cast<PerInputStream*>
    (fInputStreamManager.GetOpenedStream("DaqMonitor"));
  tags = instream -> NextTags();
  while ( !tags.IsEnd() ) {
    //cout << tags << endl;
    set++;
    if ( tags.GetIndexLo() != monInd[set][0] 
      || tags.GetIndexHi() != monInd[set][1]) {
      return false;
    }   
    tags = instream -> NextTags();   
  }

  tags = instream -> PrevTags();
  while ( !tags.IsBegin() ) {
    //cout << tags << endl;
    if ( tags.GetIndexLo() != monInd[set][0] 
      || tags.GetIndexHi() != monInd[set][1]) {
      return false;
    }   
    tags = instream -> PrevTags();   
    set--;
  }

  tags = instream -> NextTags();
  while ( !tags.IsEnd() ) {
    //cout << tags << endl;
    set++;
    if ( tags.GetIndexLo() != monInd[set][0] 
      || tags.GetIndexHi() != monInd[set][1]) {
      return false;
    }   
    tags = instream -> NextTags();   
  }

  tags = instream -> PrevTags();
  while ( !tags.IsBegin() ) {
    //cout << tags << endl;
    if ( tags.GetIndexLo() != monInd[set][0] 
      || tags.GetIndexHi() != monInd[set][1]) {
      return false;
    }   
    tags = instream -> PrevTags();   
    set--;
  }

  return pass;

}

bool PerValidate::StreamMgrTagsSeq() {
  //
  //  Purpose:  Test sequencing and grouping of record tags on individual
  //            streams.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 
  //  Notes: Requires input data from test file "pervld.root"
  //

  bool pass = true;

  Int_t fwdInd[10][2] = { {0,0},{1,3},{4,5},{0,0},{1,1},{6,7},{2,2},{3,3},
                                                              {4,4},{8,9} };
  Int_t rewInd[10][2] = { {8,9},{6,7},{4,4},{3,3},{2,2},{1,1},{0,0},{4,5},
                          {1,3},{0,0} };

  MomNavigator* mom = new MomNavigator();
  Int_t nadv = fInputStreamManager.Next(mom);
  Int_t set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    //mom -> GetFragmentArray() -> Print();
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //   cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom);
  }

  Int_t nprev = fInputStreamManager.Previous(mom);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //    cout << "Previous rewound " << nprev << " record sets " << endl;
    //mom -> GetFragmentArray() -> Print();
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //   cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //         << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom);
  }

  nadv = fInputStreamManager.Next(mom);
  set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    //mom -> GetFragmentArray() -> Print();
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //  cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom);
  }

  nprev = fInputStreamManager.Previous(mom);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //    cout << "Previous rewound " << nprev << " record sets " << endl;
    //mom -> GetFragmentArray() -> Print();
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom);
  }
  if ( mom ) delete mom; mom = 0;

  return pass;

}

bool PerValidate::StreamMgrParallelFileSeq() {
  //
  //  Purpose:  Test sequencing and grouping of record tags on individual
  //            streams when those streams are read from separate files in
  //            parallel.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 
  //  Notes: Requires input data from test file "pervld.root" and from
  //         "pervld2.root"
  //

  bool pass = true;

  Int_t fwdInd[20][2] = { {0,0},{1,3},{4,5},{0,0},{1,1},{6,7},{2,2},{3,3},
                                                              {4,4},{8,9},
                          {0,0},{0,1},{1,1},{2,2},{3,3},{2,3},{4,5},{6,7},
                                                              {4,4},{5,5} };
  Int_t rewInd[20][2] = { {5,5},{4,4},{6,7},{4,5},{2,3},{3,3},{2,2},{1,1},
                          {0,1},{0,0},
                          {8,9},{6,7},{4,4},{3,3},{2,2},{1,1},{0,0},{4,5},
                          {1,3},{0,0} };

  fInputStreamManager.CloseFile();
  fInputStreamManager.AddFile("pervld.root",-1,"DaqSnarl");
  fInputStreamManager.AddFile("pervld2.root",-1,"DaqSnarl");
  fInputStreamManager.AddFile("pervld.root",-1,"DaqMonitor");
  fInputStreamManager.AddFile("pervld2.root",-1,"DaqMonitor");

  MomNavigator* mom = new MomNavigator();
  Int_t nadv = fInputStreamManager.Next(mom);
  Int_t set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //cout << "Received rawrecord from stream "
      //      << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
      //  cout << *(rawrecord->GetVldContext()) << endl;
        if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom);
  }

  Int_t nprev = fInputStreamManager.Previous(mom);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //cout << "Previous rewound " << nprev << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //   cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
      //  cout << *(rawrecord->GetVldContext()) << endl;
          if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom);
  }

  nadv = fInputStreamManager.Next(mom);
  set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //  cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //        << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom);
  }

  nprev = fInputStreamManager.Previous(mom);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //    cout << "Previous rewound " << nprev << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //        cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom);
  }
  if ( mom ) delete mom; mom = 0;

  cout << "Resetting file list " << endl;
  fInputStreamManager.RecordsAt(0,Per::GetVldEnd());
  fInputStreamManager.RemoveFile();

  fInputStreamManager.CloseFile();
  fInputStreamManager.SetFile("*",fFileName,Per::kRead);

  return pass;

}

bool PerValidate::StreamMgrFileChangeSeq() {
  //
  //  Purpose:  Test sequencing and grouping of record tags on individual
  //            streams.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 
  //  Notes: Requires input data from test file "pervld.root"
  //

  bool pass = true;

  Int_t fwdInd[10][2] = { {0,0},{1,3},{4,5},{0,0},{1,1},{6,7},{2,2},{3,3},
                                                              {4,4},{8,9} };
  Int_t rewInd[10][2] = { {8,9},{6,7},{4,4},{3,3},{2,2},{1,1},{0,0},{4,5},
                          {1,3},{0,0} };

  MomNavigator* mom = new MomNavigator();
  Int_t nadv = fInputStreamManager.Next(mom);
  Int_t set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    //mom -> GetFragmentArray() -> Print();
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom);
  }

  Int_t nprev = fInputStreamManager.Previous(mom);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //    cout << "Previous rewound " << nprev << " record sets " << endl;
    //mom -> GetFragmentArray() -> Print();
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //      << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom);
  }

  fInputStreamManager.CloseFile();
  fInputStreamManager.SetFile("*",fFileName,Per::kRead);

  nadv = fInputStreamManager.Next(mom);
  set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //           cout << "Received rawrecord from stream "
      //    << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom);
  }

  nprev = fInputStreamManager.Previous(mom);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //cout << "Previous rewound " << nprev << " record sets " << endl;
    //mom -> GetFragmentArray() -> Print();
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //         << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //    << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom);
  }
  if ( mom ) delete mom; mom = 0;

  return pass;

}

bool PerValidate::StreamMgrTagsSeqZigZag() {
  //
  //  Purpose:  Test sequencing and grouping of record tags on individual
  //            streams. Reverse and move forward again part-way through set.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 
  //  Notes: Requires input data from test file "pervld.root"
  //

  bool pass = true;

  Int_t fwdInd[4][2] = { {0,0},{1,3},{4,5},{0,0} };
  Int_t rewInd[4][2] = { {4,5},{1,3} };
  Int_t fwdInd2[8][2] = { {4,5},{0,0},{1,1},{6,7},{2,2},{3,3},{4,4},{8,9} };
  Int_t rewInd2[10][2] = { {8,9},{6,7},{4,4},{3,3},{2,2},{1,1},{0,0},{4,5},
                          {1,3},{0,0} };

  MomNavigator* mom = new MomNavigator();
  Int_t nadv = fInputStreamManager.Next(mom);
  Int_t set = -1;
  while ( nadv > 0 && set < 3 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //         << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    if ( set < 3 ) nadv = fInputStreamManager.Next(mom);
  }

  Int_t nprev = fInputStreamManager.Previous(mom);
  set = -1;
  while ( nprev > 0 && set < 1 ) {
    set++;
    //cout << "Previous rewound " << nprev << " record sets " << endl;
    //mom -> GetFragmentArray() -> Print();
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    if ( set < 1 ) nprev = fInputStreamManager.Previous(mom);
  }

  nadv = fInputStreamManager.Next(mom);
  set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //    cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd2[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd2[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom);
  }

  nprev = fInputStreamManager.Previous(mom);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //cout << "Previous rewound " << nprev << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //        << rawrecord -> GetTempTags().GetCharString("stream")
      //      << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //     << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //      << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd2[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd2[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom);
  }
  if ( mom ) delete mom; mom = 0;

  return pass;

}

bool PerValidate::StreamMgrSelectionSeq() {
  //
  //  Purpose:  Test sequencing and grouping of record tags on individual
  //            streams with selection cut applied.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 
  //  Notes: Requires input data from test file "pervld.root"
  //

  bool pass = true;

  Int_t fwdInd[3][2] = { {4,5},{3,3} };
  Int_t rewInd[3][2] = { {4,4},{4,5} };

  fInputStreamManager.SetSelection("DaqSnarl",
                 "((RawDaqSnarlHeader*)fHeader)->GetSnarl()>1");
  MomNavigator* mom = new MomNavigator();
  Int_t nadv = fInputStreamManager.Next(mom,3);
  
  Int_t set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //    cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom,3);
  }

  Int_t nprev = fInputStreamManager.Previous(mom,3);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //    cout << "Previous rewound " << nprev << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //         << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom,3);
  }

  nadv = fInputStreamManager.Next(mom,3);
  set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //   cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom,3);
  }

  nprev = fInputStreamManager.Previous(mom,3);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //cout << "Previous rewound " << nprev << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //      << rawrecord -> GetTempTags().GetCharString("stream")
      //      << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //     << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom,3);
  }
  if ( mom ) delete mom; mom = 0;

  fInputStreamManager.SetSelection("DaqSnarl","");

  return pass;

}

bool PerValidate::StreamMgrSkipByTwoSeq() {
  //
  //  Purpose:  Test sequencing of records while advancing by two
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 
  //  Notes: Requires input data from test file "pervld.root"
  //

  bool pass = true;

  Int_t fwdInd[5][2] = { {1,3},{0,0},{6,7},{3,3},{8,9} };
  Int_t rewInd[5][2] = { {6,7},{3,3},{1,1},{4,5},{0,0} };

  MomNavigator* mom = new MomNavigator();
  Int_t nadv = fInputStreamManager.Next(mom,2);
  Int_t set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //         << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //      << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom,2);
  }

  Int_t nprev = fInputStreamManager.Previous(mom,2);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //cout << "Previous rewound " << nprev << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //      cout << "Received rawrecord from stream "
      //         << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom,2);
  }

  nadv = fInputStreamManager.Next(mom,2);
  set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom,2);
  }

  nprev = fInputStreamManager.Previous(mom,2);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //cout << "Previous rewound " << nprev << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom,2);
  }
  if ( mom ) delete mom; mom = 0;

  return pass;

}

bool PerValidate::StreamMgrSkipByThreeSeq() {
  //
  //  Purpose:  Test sequencing and grouping of record tags on individual
  //            streams with selection cut applied.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 
  //  Notes: Requires input data from test file "pervld.root"
  //

  bool pass = true;

  Int_t fwdInd[3][2] = { {4,5},{6,7},{4,4} };
  Int_t rewInd[3][2] = { {4,4},{1,1},{1,3} };

  MomNavigator* mom = new MomNavigator();
  Int_t nadv = fInputStreamManager.Next(mom,3);
  
  Int_t set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom,3);
  }

  Int_t nprev = fInputStreamManager.Previous(mom,3);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //cout << "Previous rewound " << nprev << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //         << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom,3);
  }

  nadv = fInputStreamManager.Next(mom,3);
  set = -1;
  while ( nadv > 0 ) {
    set++;
    //cout << "Next advanced " << nadv << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < fwdInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > fwdInd[set][1] )
             return false;
    }
    mom -> Clear();
    nadv = fInputStreamManager.Next(mom,3);
  }

  nprev = fInputStreamManager.Previous(mom,3);
  set = -1;
  while ( nprev > 0 ) {
    set++;
    //cout << "Previous rewound " << nprev << " record sets " << endl;
    TIter fiter = mom ->FragmentIter();
    RawRecord* rawrecord;
    while ((rawrecord = dynamic_cast<RawRecord*>(fiter.Next())) ) {
      //     cout << "Received rawrecord from stream "
      //       << rawrecord -> GetTempTags().GetCharString("stream")
      //       << " tree " << rawrecord -> GetTempTags().GetCharString("tree")
      //       << " index " << rawrecord -> GetTempTags().GetInt("index")
      //       << " file " << rawrecord -> GetTempTags().GetCharString("file")
      //       << endl;
           if ( rawrecord->GetTempTags().GetInt("index") < rewInd[set][0]
              ||rawrecord->GetTempTags().GetInt("index") > rewInd[set][1] )
             return false;
    }
    mom -> Clear();
    nprev = fInputStreamManager.Previous(mom,3);
  }
  if ( mom ) delete mom; mom = 0;

  return pass;

}

bool PerValidate::StreamFileAdd() {
  //
  //  Purpose:  Test addition of files to stream file list.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 

   cout << "Before: " << endl;
  fInputStreamManager.ListFile(cout); 
  fInputStreamManager.AddFile("pervld.root");
  fInputStreamManager.AddFile("pervld2.root");
  fInputStreamManager.AddFile("pervld3.root",0);
  fInputStreamManager.AddFile("pervld4.root",1);
  cout << "After adding pervld at end, 2 at end, 3 at 0, 4 at 1: " << endl;
  fInputStreamManager.ListFile(cout);

  return true;

}

bool PerValidate::StreamFileRemove() {
  //
  //  Purpose:  Test removal of files to stream file list.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 

  cout << "Before: " << endl;
  fInputStreamManager.ListFile(cout); 
  fInputStreamManager.RemoveFile("pervld.root");
  cout << "After removal of pervld.root: " << endl;
  fInputStreamManager.ListFile(cout);
  fInputStreamManager.RemoveFile("pervld2.root");
  cout << "After attempt to remove pervld2.root:" << endl;
  fInputStreamManager.ListFile(cout);

  return true;

}

bool PerValidate::StreamFilePrev() {
  //
  //  Purpose:  Test rewind of files to stream file list.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 

   cout << "Before: " << endl;
  fInputStreamManager.ListFile(cout); 
  fInputStreamManager.PrevFile();
  cout << "After rewind of 1 file: " << endl;
  fInputStreamManager.ListFile(cout);
  fInputStreamManager.PrevFile(2);
  cout << "After rewind of 2 files:" << endl;
  fInputStreamManager.ListFile(cout);

  return true;

}

bool PerValidate::StreamFileNext() {
  //
  //  Purpose:  Test rewind of files to stream file list.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 

   cout << "Before: " << endl;
  fInputStreamManager.ListFile(cout); 
  fInputStreamManager.NextFile(2);
  cout << "After advance of 2 files: " << endl;
  fInputStreamManager.ListFile(cout);
  fInputStreamManager.NextFile(4);
  cout << "After advance of 4 files:" << endl;
  fInputStreamManager.ListFile(cout);
  fInputStreamManager.PrevFile(1);
  cout << "After rewind of 1 file:" << endl;
  fInputStreamManager.ListFile(cout);

  return true;

}

bool PerValidate::StreamFileGoToByIndex() {
  //
  //  Purpose:  Test rewind of files to stream file list.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 

   cout << "Before: " << endl;
  fInputStreamManager.ListFile(cout); 
  fInputStreamManager.GoToFile(0);
  cout << "After GoToFile index 0: " << endl;
  fInputStreamManager.ListFile(cout);
  fInputStreamManager.GoToFile(1);
  cout << "After GoToFile index 1:" << endl;
  fInputStreamManager.ListFile(cout);
  fInputStreamManager.GoToFile(-1);
  cout << "After GoToFile index -1:" << endl;
  fInputStreamManager.ListFile(cout);
  fInputStreamManager.GoToFile(3);
  cout << "After GoToFile index 3:" << endl;
  fInputStreamManager.ListFile(cout);

  return true;

}

bool PerValidate::StreamFileGoToByName() {
  //
  //  Purpose:  Test rewind of files to stream file list.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 

  cout << "Before: " << endl;
  fInputStreamManager.ListFile(cout); 
  fInputStreamManager.GoToFile("pervld.root");
  cout << "After GoToFile pervld.root: " << endl;
  fInputStreamManager.ListFile(cout);
  fInputStreamManager.GoToFile("");
  cout << "After GoToFile null:" << endl;
  fInputStreamManager.ListFile(cout);
  fInputStreamManager.GoToFile("pervld4.root");
 cout << "After GoToFile pervld4.root:" << endl;
  fInputStreamManager.ListFile(cout);

  return true;

}

bool PerValidate::StreamMgrFileList() {
  //
  //  Purpose:  Test file listing.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 

  fInputStreamManager.ListFile(cout);
  fInputStreamManager.ListFile(cout,"DaqSnarl");
  fInputStreamManager.ListFile(cout,"DaqMonitor");
  fInputStreamManager.ListFile(cout,"LightInjection");

  return true;

}

bool PerValidate::OutputStreamMgr() {
  //
  //  Purpose:  Test output stream manager.
  //
  //  Arguments: none.
  //
  //  Return:    pass or fail
  //
  //  Contact:   S. Kasahara
  // 

  MsgStream* msper = MsgService::Instance() -> GetStream("Per");
  msper -> SetLogLevel(Msg::kVerbose);

  fOutputStreamManager.OpenStream("DaqSnarl","mytree","RecMinos","","",
                            Per::kRecSplit);
  fOutputStreamManager.SetFile("DaqSnarl","testdaq.root",Per::kRecreate);

  MomNavigator* mom = new MomNavigator();
  RecMinos* record = new RecMinos();
  mom -> AdoptFragment(record);
  record->GetTempTags().Print();
  cout << "Persisting record" << endl;
  fOutputStreamManager.Put(mom);
  cout << "Persisting same record again" << endl;
  fOutputStreamManager.Put(mom);

  record -> HasBeenModified();
  cout << "Persisting modified record" << endl;
  fOutputStreamManager.Put(mom);
  record->GetTempTags().Print();

  fOutputStreamManager.Write();
  fOutputStreamManager.CloseFile();
  fOutputStreamManager.CloseStream();

  delete mom; mom = 0;

  return true;

}

bool PerValidate::RunAllTests() {
  //
  //  Purpose:  Run sequence of Persistency package validity tests.
  //
  //  Arguments: none.
  //
  //  Return:    pass (if all tests successful) or fail
  //
  //  Contact:   S. Kasahara
  // 
  //  Notes: Requires input data from test file "pervld.root"
  //

  bool allPassed = true;

  fInputStreamManager.OpenStream("DaqSnarl","DaqSnarl");
  fInputStreamManager.OpenStream("DaqMonitor","DaqMonitor");

  if ( !fInputStreamManager.SetFile("*",fFileName,Per::kRead) ) {
    cout << " Must run 'loon -bq Persistency/test/pervld.C' to generate file pervld.root first"
         << "\n Validity test aborted. " << endl;
    return false;
  }

  int iloop = 0;
  while ( iloop < 2 ) {
    cout << "*** Test input stream record tags sequencing *** " << endl;
    if ( this -> StreamTagsSeq() ) cout << "*** Passed ***" << endl;
    else {
      cout << "*** Failed ***" << endl;
      allPassed = false;
    }

    cout << "*** Test input stream manager record tags sequencing *** " << endl;
    if ( this -> StreamMgrTagsSeq() ) cout << "*** Passed ***" << endl;
    else {
      cout << "*** Failed ***" << endl;
      allPassed = false;
    }

    cout << "*** Test input stream manager record tags zig-zag sequencing *** " << endl;
    if ( this -> StreamMgrTagsSeqZigZag() ) cout << "*** Passed ***" << endl;
    else {
      cout << "*** Failed ***" << endl;
      allPassed = false;
    }

    cout << "*** Test input stream manager skip-by-two sequencing *** " << endl;
    if ( this -> StreamMgrSkipByTwoSeq() ) cout << "*** Passed ***" << endl;
    else {
      cout << "*** Failed ***" << endl;
      allPassed = false;
    }

    cout << "*** Test input stream manager skip-by-three sequencing *** "<< endl;
    if ( this -> StreamMgrSkipByThreeSeq() ) cout << "*** Passed ***" << endl;
    else {
      cout << "*** Failed ***" << endl;
      allPassed = false;
    }

    cout << "*** Test input stream manager selection sequencing *** "<< endl;
    if ( this -> StreamMgrSelectionSeq() ) cout << "*** Passed ***" << endl;
    else {
      cout << "*** Failed ***" << endl;
      allPassed = false;
    }

    cout << "*** Test input stream manager file change sequencing *** "<< endl;
    if ( this -> StreamMgrFileChangeSeq() ) cout << "*** Passed ***" << endl;
    else {
      cout << "*** Failed ***" << endl;
      allPassed = false;
    }

    cout << "*** Test input stream manager parallel input file seq *** "<<endl;
    if ( this -> StreamMgrParallelFileSeq() ) cout << "*** Passed ***" << endl;
    else {
      cout << "*** Failed ***" << endl;
      allPassed = false;
    }

    if ( iloop == 0 ) {
      cout << "*** Switching to updatemode and rerunning tests *** "<< endl;
      fInputStreamManager.SetUpdateMode(true);
    }
    iloop++;
  }

  cout << "*** Test input stream file management***" << endl;
  cout << "***StreamFileAdd***" << endl;
  if ( this -> StreamFileAdd() ) cout << "*** Passed ***" << endl;
  else {
     cout << "*** Failed ***" << endl;
     allPassed = false;
  }

 cout << "***StreamFileRemove***" << endl;
  if ( this -> StreamFileRemove() ) cout << "*** Passed ***" << endl;
  else {
     cout << "*** Failed ***" << endl;
     allPassed = false;
  }

cout << "***StreamFilePrev***" << endl;
  if ( this -> StreamFilePrev() ) cout << "*** Passed ***" << endl;
  else {
     cout << "*** Failed ***" << endl;
     allPassed = false;
  }

cout << "***StreamFileNext***" << endl;
  if ( this -> StreamFileNext() ) cout << "*** Passed ***" << endl;
  else {
     cout << "*** Failed ***" << endl;
     allPassed = false;
  }

cout << "***StreamFileGoToByIndex***" << endl;
  if ( this -> StreamFileGoToByIndex() ) cout << "*** Passed ***" << endl;
  else {
     cout << "*** Failed ***" << endl;
     allPassed = false;
  }

cout << "***StreamFileGoToByName***" << endl;
  if ( this -> StreamFileGoToByName() ) cout << "*** Passed ***" << endl;
  else {
     cout << "*** Failed ***" << endl;
     allPassed = false;
  }

  cout << "***StreamMgrFileList***" << endl;
  if ( this -> StreamMgrFileList() ) cout << "*** Passed ***" << endl;
  else {
     cout << "*** Failed ***" << endl;
     allPassed = false;
  }

  cout << "***OutputStreamMgr***" << endl;
  if ( this -> OutputStreamMgr() ) cout << "*** Passed ***" << endl;
  else {
     cout << "*** Failed ***" << endl;
     allPassed = false;
  }

  return allPassed;

}

---