Fix indentation

[?]
Jan 23, 2013, 12:49 PM
QIW2WZKWE3ULO4O4QB6EQWUKZY2UFNN7WA464FMIZOAHP3UHFGSAC

Dependencies

Change contents

  • replacement in tests/Setup.pm at line 14
    [6.637][6.637:763]()
    my ($db) = @_;
    $db->resultset('Users')->create({ username => "root", emailaddress => 'root@email.com', password => '' });
    [6.637]
    [6.0]
    my ($db) = @_;
    $db->resultset('Users')->create({ username => "root", emailaddress => 'root@email.com', password => '' });
  • replacement in tests/Setup.pm at line 19
    [6.27][6.27:97]()
    my ($jobset) = @_;
    return $jobset->builds->search({},{})->count ;
    [6.27]
    [6.408]
    my ($jobset) = @_;
    return $jobset->builds->search({},{})->count ;
  • replacement in tests/Setup.pm at line 24
    [6.439][6.439:460](),[6.460][3.0:51]()
    my ($jobset) = @_;
    return $jobset->builds->search({finished => 0});
    [6.439]
    [6.97]
    my ($jobset) = @_;
    return $jobset->builds->search({finished => 0});
  • replacement in tests/Setup.pm at line 29
    [6.130][6.130:151](),[6.151][6.528:577]()
    my ($jobset) = @_;
    return queuedBuildsForJobset($jobset)->count ;
    [6.130]
    [6.226]
    my ($jobset) = @_;
    return queuedBuildsForJobset($jobset)->count ;
  • replacement in tests/Setup.pm at line 34
    [6.252][6.252:291]()
    my ($jobsetName, $nixexprpath) = @_;
    [6.252]
    [5.37772]
    my ($jobsetName, $nixexprpath) = @_;
  • replacement in tests/Setup.pm at line 36
    [5.37773][6.23:174](),[6.581][6.23:174](),[6.174][6.408:547](),[6.706][6.408:547](),[6.408][6.408:547]()
    my $db = Hydra::Model::DB->new;
    my $project = $db->resultset('Projects')->update_or_create({name => "tests", displayname => "", owner => "root"});
    my $jobset = $project->jobsets->create({name => $jobsetName, nixexprinput => "jobs", nixexprpath => $nixexprpath, emailoverride => ""});
    [5.37773]
    [6.547]
    my $db = Hydra::Model::DB->new;
    my $project = $db->resultset('Projects')->update_or_create({name => "tests", displayname => "", owner => "root"});
    my $jobset = $project->jobsets->create({name => $jobsetName, nixexprinput => "jobs", nixexprpath => $nixexprpath, emailoverride => ""});
  • replacement in tests/Setup.pm at line 40
    [6.548][6.548:589]()
    my $jobsetinput;
    my $jobsetinputals;
    [6.548]
    [6.589]
    my $jobsetinput;
    my $jobsetinputals;
  • replacement in tests/Setup.pm at line 43
    [6.590][6.590:770]()
    $jobsetinput = $jobset->jobsetinputs->create({name => "jobs", type => "path"});
    $jobsetinputals = $jobsetinput->jobsetinputalts->create({altnr => 0, value => getcwd."/jobs"});
    [6.590]
    [6.770]
    $jobsetinput = $jobset->jobsetinputs->create({name => "jobs", type => "path"});
    $jobsetinputals = $jobsetinput->jobsetinputalts->create({altnr => 0, value => getcwd."/jobs"});
  • replacement in tests/Setup.pm at line 46
    [6.771][6.771:789]()
    return $jobset;
    [6.771]
    [6.789]
    return $jobset;
  • replacement in tests/Setup.pm at line 50
    [6.823][6.823:942]()
    my ($jobsetName, $nixexprpath, $name, $type, $uri) = @_;
    my $jobset = createBaseJobset($jobsetName, $nixexprpath);
    [6.823]
    [6.942]
    my ($jobsetName, $nixexprpath, $name, $type, $uri) = @_;
    my $jobset = createBaseJobset($jobsetName, $nixexprpath);
  • replacement in tests/Setup.pm at line 53
    [6.943][6.943:984]()
    my $jobsetinput;
    my $jobsetinputals;
    [6.943]
    [6.984]
    my $jobsetinput;
    my $jobsetinputals;
  • replacement in tests/Setup.pm at line 56
    [6.985][6.985:1065](),[6.1065][2.0:88]()
    $jobsetinput = $jobset->jobsetinputs->create({name => $name, type => $type});
    $jobsetinputals = $jobsetinput->jobsetinputalts->create({altnr => 0, value => $uri});
    [6.985]
    [6.1153]
    $jobsetinput = $jobset->jobsetinputs->create({name => $name, type => $type});
    $jobsetinputals = $jobsetinput->jobsetinputalts->create({altnr => 0, value => $uri});
  • replacement in tests/Setup.pm at line 59
    [6.1154][6.1154:1172]()
    return $jobset;
    [6.1154]
    [6.763]
    return $jobset;
  • replacement in tests/Setup.pm at line 63
    [6.1192][6.1192:1213](),[6.1213][6.130:293](),[6.113][6.1327:1467](),[6.293][6.1327:1467](),[6.362][6.1327:1467](),[6.1327][6.1327:1467](),[6.1467][6.294:400](),[6.400][6.1467:1482](),[6.1467][6.1467:1482]()
    my ($jobset) = @_;
    my ($res, $stdout, $stderr) = captureStdoutStderr(60, ("../src/script/hydra-evaluator", $jobset->project->name, $jobset->name));
    chomp $stdout; chomp $stderr;
    print STDERR "Evaluation errors for jobset ".$jobset->project->name.":".$jobset->name.": \n".$jobset->errormsg."\n" if $jobset->errormsg;
    print STDERR "STDOUT: $stdout\n" if $stdout ne "";
    print STDERR "STDERR: $stderr\n" if $stderr ne "";
    return $res;
    [6.1192]
    [6.1482]
    my ($jobset) = @_;
    my ($res, $stdout, $stderr) = captureStdoutStderr(60, ("../src/script/hydra-evaluator", $jobset->project->name, $jobset->name));
    chomp $stdout; chomp $stderr;
    print STDERR "Evaluation errors for jobset ".$jobset->project->name.":".$jobset->name.": \n".$jobset->errormsg."\n" if $jobset->errormsg;
    print STDERR "STDOUT: $stdout\n" if $stdout ne "";
    print STDERR "STDERR: $stderr\n" if $stderr ne "";
    return $res;
  • replacement in tests/Setup.pm at line 73
    [6.722][6.722:742](),[6.742][4.101:271]()
    my ($build) = @_;
    my ($res, $stdout, $stderr) = captureStdoutStderr(60, ("../src/script/hydra-build", $build->id));
    print "STDERR: $stderr" if $res;
    return ($res, $stdout, $stderr);
    [6.722]
    [6.4328]
    my ($build) = @_;
    my ($res, $stdout, $stderr) = captureStdoutStderr(60, ("../src/script/hydra-build", $build->id));
    print "STDERR: $stderr" if $res;
    return ($res, $stdout, $stderr);
  • replacement in tests/Setup.pm at line 80
    [6.4354][6.14:115](),[6.115][6.4463:4529](),[6.4463][6.4463:4529](),[6.4529][6.116:297]()
    my ($scm, $update) = @_;
    my ($res, $stdout, $stderr) = captureStdoutStderr(60, ($update, $scm));
    die "Unexpected update error with $scm: $stderr\n" unless $res;
    my ($message, $loop, $status) = $stdout =~ m/::(.*) -- (.*) -- (.*)::/;
    print STDOUT "Update $scm repository: $message\n";
    return ($loop eq "continue", $status eq "updated");
    [6.4354]
    [6.822]
    my ($scm, $update) = @_;
    my ($res, $stdout, $stderr) = captureStdoutStderr(60, ($update, $scm));
    die "Unexpected update error with $scm: $stderr\n" unless $res;
    my ($message, $loop, $status) = $stdout =~ m/::(.*) -- (.*) -- (.*)::/;
    print STDOUT "Update $scm repository: $message\n";
    return ($loop eq "continue", $status eq "updated");