test/ppbench/monsim.C

   1 void monsim(Int_t nev=20){
   2   // MonaLisa monitoring
   3   gSystem->Load("libNet.so");
   4   gSystem->Load("libMonaLisa.so");
   5
   6   new TMonaLisaWriter(gSystem->Getenv("TEST_PLATFORMID"),"Simulation pp","aliendb3.cern.ch");
   7
   8   gROOT->LoadMacro("sim.C");
   9   sim(nev);
  10   gMonitoringWriter->SendProcessingProgress(1,1,kTRUE);
  11
  12   // Send the size of the raw.root file
  13
  14   FileStat_t buf;
  15   gSystem->GetPathInfo("./raw.root",buf);
  16
  17   TList *valuelist = new TList();
  18   valuelist->SetOwner(kTRUE);
  19
  20   TMonaLisaValue* valdouble = new TMonaLisaValue("raw.root size",buf.fSize);
  21   valuelist->Add(valdouble);
  22
  23   gMonitoringWriter->SendParameters(valuelist);
  24   delete valuelist;
  25
  26   printf("#Test finished successfully#\n");
  27 }