#!/opt/anaconda1anaconda2anaconda3/bin/perl 

eval 'exec /opt/anaconda1anaconda2anaconda3/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

use strict;
use warnings;
use FindBin;


use HTC::GridRunner;

my $config_file = "$FindBin::RealBin/../htc_conf/BroadInst_SGE.test.conf";

main: {

    my $cache_file = "cache_completed_SGE_cmds";

    my @cmds;
    for my $num (1..10) {
        my $cmd = "echo hello $num";
        push (@cmds, $cmd);
    }
    push (@cmds, "this_command_should_fail");
    
    my $grid_runner = new HTC::GridRunner($config_file, $cache_file);
    
    my $ret = $grid_runner->run_on_grid(@cmds);
    
    exit($ret);
}
    
