ok($result->code() == 403, "Incorrect password rejected.");

is($result->code(), 403, "Incorrect password rejected.");

ok($user->{username} eq "root", "The root user is named root");
ok($user->{userroles}->[0] eq "admin", "The root user is an admin");

is($user->{username}, "root", "The root user is named root");
is($user->{userroles}->[0], "admin", "The root user is an admin");

ok($user->{username} eq "root", "The current user is named root");
ok($user->{userroles}->[0] eq "admin", "The current user is an admin");

is($user->{username}, "root", "The current user is named root");
is($user->{userroles}->[0], "admin", "The current user is an admin");

ok(request_json({ uri => '/project/sample' })->code() == 404, "Non-existent projects don't exist");

is(request_json({ uri => '/project/sample' })->code(), 404, "Non-existent projects don't exist");

ok($result->code() == 201, "PUTting a new project creates it");

is($result->code(), 201, "PUTting a new project creates it");

ok($result->code() == 201, "PUTting a new jobset creates it");

is($result->code(), 201, "PUTting a new jobset creates it");

ok($jobset->{jobsetinputs}->{"my-src"}->{"jobsetinputalts"}->[0] eq $jobsetdir, "The 'my-src' input is in $jobsetdir");

is($jobset->{jobsetinputs}->{"my-src"}->{"jobsetinputalts"}->[0], $jobsetdir, "The 'my-src' input is in $jobsetdir");

ok($result->code() == 200, "Can get evals of a jobset");

is($result->code(), 200, "Can get evals of a jobset");

ok($eval->{hasnewbuilds} == 1, "The first eval of a jobset has new builds");

is($eval->{hasnewbuilds}, 1, "The first eval of a jobset has new builds");

ok(scalar(@$evals) == 2, "Changing a jobset source creates the second evaluation");
ok($evals->[0]->{jobsetevalinputs}->{"my-src"}->{revision} != $evals->[1]->{jobsetevalinputs}->{"my-src"}->{revision}, "Changing a jobset source changes its revision");

is(scalar(@$evals), 2, "Changing a jobset source creates the second evaluation");
isnt($evals->[0]->{jobsetevalinputs}->{"my-src"}->{revision}, $evals->[1]->{jobsetevalinputs}->{"my-src"}->{revision}, "Changing a jobset source changes its revision");

ok($build->{job} eq "job", "The build's job name is job");
ok($build->{finished} == 0, "The build isn't finished yet");

is($build->{job}, "job", "The build's job name is job");
is($build->{finished}, 0, "The build isn't finished yet");

ok($search_project->{projects}[0]->{name} == "sample", "Search for project 'sample' works");

is($search_project->{projects}[0]->{name}, "sample", "Search for project 'sample' works");

ok($search_build->{builds}[0]->{buildoutputs}->{out}->{path} == $build->{buildoutputs}->{out}->{path}, "Search for builds work");

is($search_build->{builds}[0]->{buildoutputs}->{out}->{path}, $build->{buildoutputs}->{out}->{path}, "Search for builds work");