t/CXGN/Tools/RunTorque.t

   1
   2 use strict;
   3 use Test::More;
   4 use CXGN::Tools::Run;
   5
   6 my $hostname = `/bin/hostname`;
   7
   8 my $ctr2 = CXGN::Tools::Run->new({ backend => 'Torque' });
   9 $ctr2->run_cluster('/bin/hostname');
  10
  11 while (my $alive = $ctr2->alive()) {
  12     sleep(1);
  13 }
  14
  15 is($ctr2->out(), $hostname, "Check output from clusterjob (torque)");
  16