{
  // ----- Load libraries ----------------------------------------------
  gROOT->LoadMacro("$VMCWORKDIR/gconfig/basiclibs.C");
  basiclibs();
  //gSystem->Load("libGeoBase");
  //gSystem->Load("libParBase");
  gSystem->Load("libBase");
  //gSystem->Load("libMbs");
  //gSystem->Load("libMbsAPI");
  gSystem->Load("libTKRATEvent");
  gSystem->Load("libKRATUnpack2");
  
  // ------ Data source ------------------------------------------------
  //FairRemoteSource* source  = new FairRemoteSource("lxi047");
  FairLmdSource* source  = new FairLmdSource();
  
  source->AddFile("../test_datasrc/au400_1670_short.lmd");
  //source->AddFile("/lustre/fopi/asyeos/MAY11/au400_1670.lmd");
  //source->AddFile("/media/Data/Datasrc/MAY11/au400_1670.lmd");
  //source->AddFile("/media/Data/Datasrc/MAY11/au400_1671.lmd");
  
  // -------------------------------------------------------------------
  Int_t type    = 36;  ///94;
  Int_t subType = 1; ///9400;
  
  KRATUnpack2 *pKRATUnpack2 = new KRATUnpack2("", type, subType);
  //KRATUnpack2 *pKRATUnpack2 = new KRATUnpack2("pKRATUnpack2"); // default param are 36 and 1
  
  // ----- Configure your tasks ----------------------------------------
  pKRATUnpack2->SaveOutputIntoTree();
  ///pKRATUnpack2->SetVerboseLevel(0);
  ///pKRATUnpack2->SetKratContOutName("KRATRAW");
  
  source->AddUnpacker( pKRATUnpack2 );
  // -------------------------------------------------------------------
  FairRunOnline *run = new FairRunOnline( source  );
  run->SetOutputFile("results-new_unpacker.root");

  // -------------------------------------------------------------------
  run->Init();
    
  // -------------------------------------------------------------------
  run->Run(1e7,0);              // Run(1e7,0)    <- works; on 2014-03-21 didn't works
  //run->Run(1000);               // Run(1e7,0)    <- did't works
  //run->DummyRun(0,100000);      // DummyRun      <- did't works
  //run->RunOnLmdFiles();         // RunOnLmdFiles <- did't works
  cout << "TEST_PASSED" << endl; /// for testing only  
}


/***************
 * Tests results:
 * 
 #  Test02_001:
    Config:
    - source->AddFile("../data/au400_1661.lmd");
    - KRATUnpack2 *pKRATUnpack2 = new KRATUnpack2("", type, subType, 3);
    - run->Run(1e6,0);
    Results:
      skupny@lxi054:~/Projects/asyeosroot_squeezelustr64/macros/kratta/tests/test02-new_fairroot_unpacker$ time root new_unpacker.C -l -q -b  |wc -l 
      50939
      real    0m3.703s
      user    0m2.136s
      sys     0m0.892s

 #  Test02_002:
    Config:
    - source->AddFile("../data/au400_1661.lmd");
    - KRATUnpack2 *pKRATUnpack2 = new KRATUnpack2("", type, subType, 3);
    - run->Run(1e8,0);
    Results:
      skupny@lxi054:~/Projects/asyeosroot_squeezelustr64/macros/kratta/tests/test02-new_fairroot_unpacker$ time root new_unpacker.C -l -q -b  |wc -l 
      50939
      real    0m28.855s
      user    0m8.473s
      sys     0m19.685s
    Conclusion (Test02_001 Test02_002:
      You have to know how many events you want analyse, It didn't stop
      When end of file occurs. After reading the last event the empty 
      loop is proceed.

 */