PWGLF/FORWARD/analysis2/qa/CheckQAFile.C

   1 /**
   2  * @file   CheckQAFile.C
   3  * @author Christian Holm Christensen <cholm@master.hehi.nbi.dk>
   4  * @date   Fri Jan  6 11:39:22 2012
   5  *
   6  * @brief  Script to check a QA file
   7  *
   8  * @ingroup pwglf_forward_qa_scripts
   9  */
  10 /**
  11  * Script to check a QA file.  Note that this terminates the ROOT session.
  12  *
  13  * @param filename File to read
  14  *
  15  * @ingroup pwglf_forward_qa_scripts
  16  */
  17 void CheckQAFile(const char* filename)
  18 {
  19   int    ret  = 0;
  20   TFile* file = TFile::Open(filename, "READ");
  21   if (!file) {
  22     Error("CheckQAFile", "No such file %s", filename);
  23     exit(1);
  24   }
  25   TObject* forward1 = file->Get("Forward");
  26   if (!forward1) {
  27     Error("CheckQAFile", "No Forward object found in %s", filename);
  28     ret |= 2;
  29   }
  30   TObject* forward2 = file->Get("ForwardResults");
  31   if (!forward2) {
  32     Error("CheckQAFile", "No ForwardResults object found in %s", filename);
  33     ret |= 4;
  34   }
  35   file->Close();
  36   exit(ret);
  37 }
  38 //
  39 // EOF
  40 //