ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
Rob Vermaas
2011-03-17 13:25:27 +00:00
parent 10e10e8a8c
commit 9f33d4c98d
17 changed files with 85 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
tests/Setup.pm
View File

@ -2,9 +2,12 @@ package Setup;
use strict;
use Exporter;
use Hydra::Helper::Nix;
use Hydra::Helper::AddBuilds;
use Cwd;
our @ISA = qw(Exporter);
our @EXPORT = qw(hydra_setup);
our @EXPORT = qw(hydra_setup nrBuildsForJobset queuedBuildsForJobset nrQueuedBuildsForJobset createBaseJobset createJobsetWithOneInput evalSucceeds runBuild);
sub hydra_setup {
my ($db) = @_;
@ -16,14 +19,20 @@ sub nrBuildsForJobset {
return $jobset->builds->search({},{})->count ;
}
sub queuedBuildsForJobset {
my ($jobset) = @_;
return $jobset->builds->search({},{ join => 'schedulingInfo' });
}
sub nrQueuedBuildsForJobset {
my ($jobset) = @_;
return $jobset->builds->search({},{ join => 'schedulingInfo' })->count ;
return queuedBuildsForJobset($jobset)->count ;
}
sub createBaseJobset {
my ($jobsetName, $nixexprpath) = @_;
my $project = $db->resultset('Projects')->update_or_create({name => "tests", displayname => "", owner => "root"});
my $project = openHydraDB->resultset('Projects')->update_or_create({name => "tests", displayname => "", owner => "root"});
my $jobset = $project->jobsets->create({name => $jobsetName, nixexprinput => "jobs", nixexprpath => $nixexprpath, emailoverride => ""});
my $jobsetinput;
@ -55,4 +64,9 @@ sub evalSucceeds {
return $res;
}
sub runBuild {
my ($build) = @_;
return captureStdoutStderr(60, ("../src/script/hydra_build.pl", $build->id));
}
1;