1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib ("$FindBin::RealBin");
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);
}
|
