Fix indentation
[?]
Jan 23, 2013, 12:49 PM
QIW2WZKWE3ULO4O4QB6EQWUKZY2UFNN7WA464FMIZOAHP3UHFGSACDependencies
- [2]
SSD63GEUwrong altnr for jobset inputs in tests - [3]
YDW2NUIWFix "make check" - [4]
VI32YSGAI should test first - [5]
3PNG7NIBRemove trailing whitespace - [6]
V2ALOFRRFix the test - [7]
PCMXCIOWfix assignment in evalSucceeds (always returned 3, therefore evalSucceeds always succeeded - [8]
OB7GB5DLTest environment cleanups - [9]
5SMQ2PLKFix tests - [10]
SBKX3YH2cleanup - [11]
FAIJDQKZ - [12]
3RL7VFKEAdd tests for "git describe --long". - [13]
HE3GX5IPOptimize fetch-git. - [14]
HX4QYOYAadd first evaluations tests
Change contents
- replacement in tests/Setup.pm at line 14
my ($db) = @_;$db->resultset('Users')->create({ username => "root", emailaddress => 'root@email.com', password => '' });my ($db) = @_;$db->resultset('Users')->create({ username => "root", emailaddress => 'root@email.com', password => '' }); - replacement in tests/Setup.pm at line 19
my ($jobset) = @_;return $jobset->builds->search({},{})->count ;my ($jobset) = @_;return $jobset->builds->search({},{})->count ; - replacement in tests/Setup.pm at line 24
my ($jobset) = @_;return $jobset->builds->search({finished => 0});my ($jobset) = @_;return $jobset->builds->search({finished => 0}); - replacement in tests/Setup.pm at line 29
my ($jobset) = @_;return queuedBuildsForJobset($jobset)->count ;my ($jobset) = @_;return queuedBuildsForJobset($jobset)->count ; - replacement in tests/Setup.pm at line 34
my ($jobsetName, $nixexprpath) = @_;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 => ""});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
my $jobsetinput;my $jobsetinputals;my $jobsetinput;my $jobsetinputals; - replacement in tests/Setup.pm at line 43
$jobsetinput = $jobset->jobsetinputs->create({name => "jobs", type => "path"});$jobsetinputals = $jobsetinput->jobsetinputalts->create({altnr => 0, value => getcwd."/jobs"});$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
return $jobset;return $jobset; - replacement in tests/Setup.pm at line 50
my ($jobsetName, $nixexprpath, $name, $type, $uri) = @_;my $jobset = createBaseJobset($jobsetName, $nixexprpath);my ($jobsetName, $nixexprpath, $name, $type, $uri) = @_;my $jobset = createBaseJobset($jobsetName, $nixexprpath); - replacement in tests/Setup.pm at line 53
my $jobsetinput;my $jobsetinputals;my $jobsetinput;my $jobsetinputals; - replacement in tests/Setup.pm at line 56
$jobsetinput = $jobset->jobsetinputs->create({name => $name, type => $type});$jobsetinputals = $jobsetinput->jobsetinputalts->create({altnr => 0, value => $uri});$jobsetinput = $jobset->jobsetinputs->create({name => $name, type => $type});$jobsetinputals = $jobsetinput->jobsetinputalts->create({altnr => 0, value => $uri}); - replacement in tests/Setup.pm at line 59
return $jobset;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;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
my ($build) = @_;my ($res, $stdout, $stderr) = captureStdoutStderr(60, ("../src/script/hydra-build", $build->id));print "STDERR: $stderr" if $res;return ($res, $stdout, $stderr);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");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");