silence server_dead.t

t/server_dead.t

@@ -10,64 +10,118 @@ use Test::Fatal;
 use Class::Inspector;
 use Test::LWP::UserAgent;
 use HTTP::Response;
+use Capture::Tiny qw{capture};
 
 my $tr = TestRail::API->new('http://hokum.bogus','bogus','bogus',undef,1);
 $tr->{'browser'} = Test::LWP::UserAgent->new();
 $tr->{'browser'}->map_response(qr/.*/, HTTP::Response->new('500', 'ERROR', ['Content-Type' => 'text/plain'], ''));
 
-is( $tr->_doRequest('badMethod'), -500,"Bad Request fails");
+my $res;
+capture { $res = $tr->_doRequest('badMethod')};
+is($res, -500,"Bad Request fails");
 
 is($tr->apiurl,'http://hokum.bogus',"APIURL OK");
 is($tr->debug,1,"DEBUG OK");
 
-is($tr->createCase(1,'whee',1),-500,'createCase returns error');
-is($tr->createMilestone(1,'whee'),-500,'createMilestone returns error');
-is($tr->createPlan(1,'whee'),-500,'createPlan returns error');
-is($tr->createProject('zippy'),-500,'createProject returns error');
-is($tr->createRun(1,1,'whee'),-500,'createRun returns error');
-is($tr->createSection(1,1,'whee'),-500,'createSection returns error');
-is($tr->createTestResults(1,1),-500,'createTestResults returns error');
-is($tr->createTestSuite(1,'zugzug'),-500,'createTestSuite returns error');
-is($tr->deleteCase(1),-500,'deleteCase returns error');
-is($tr->deleteMilestone(1),-500,'deleteMilestone returns error');
-is($tr->deletePlan(1),-500,'deletePlan returns error');
-is($tr->deleteProject(1),-500,'deleteProject returns error');
-is($tr->deleteRun(1),-500,'deleteRun returns error');
-is($tr->deleteSection(1),-500,'deleteSection returns error');
-is($tr->deleteTestSuite(1),-500,'deleteTestSuite returns error');
-is($tr->getCaseByID(1),-500,'getCaseByID returns error');
-is($tr->getCaseByName(1,1,'hug'),-500,'getCaseByName returns error');
-is($tr->getCaseTypeByName('zap'),-500,'getCaseTypeByName returns error');
-is($tr->getCaseTypes(),-500,'getCaseTypes returns error');
-is($tr->getCases(1,2),-500,'getCases returns error');
-is($tr->getMilestoneByID(1),-500,'getMilestoneByID returns error');
-is($tr->getMilestoneByName(1,'hug'),-500,'getMilestoneByName returns error');
-is($tr->getMilestones(1),-500,'getMilestones returns error');
-is($tr->getPlanByID(1),-500,'getPlanByID returns error');
-is($tr->getPlanByName(1,'nugs'),-500,'getPlanByName returns error');
-is($tr->getPlans(1),-500,'getPlans returns error');
-is($tr->getPossibleTestStatuses(),-500,'getPossibleTestStatuses returns error');
-is($tr->getProjectByID(1),-500,'getProjectByID returns error');
-is($tr->getProjectByName('fake'),-500,'getProjectByName returns error');
-is($tr->getProjects(),-500,'getProjects returns error');
-is($tr->getRunByID(1),-500,'getRunByID returns error');
-is($tr->getRunByName(1,'zoom'),-500,'getRunByName returns error');
-is($tr->getRuns(1),-500,'getRuns returns error');
-is($tr->getSectionByID(1),-500,'getSectionByID returns error');
-is($tr->getSectionByName(1,1,'zip'),-500,'getSectionByName returns error');
-is($tr->getSections(1,1),-500,'getSections returns error');
-is($tr->getTestByID(1),-500,'getTestByID returns error');
-is($tr->getTestByName(1,'poo'),-500,'getTestByName returns error');
-is($tr->getTestResultFields(),-500,'getTestResultFields returns error');
-is($tr->getTestResults(1,1),-500,'getTestResults returns error');
-is($tr->getTestSuiteByID(1),-500,'getTestSuiteByID returns error');
-is($tr->getTestSuiteByName(1,'zap'),-500,'getTestSuiteByName returns error');
-is($tr->getTestSuites(1),-500,'getTestSuites returns error');
-is($tr->getTests(1),-500,'getTests returns error');
-is($tr->getUserByEmail('tickle'),0,'getUserByEmail returns error');
-is($tr->getUserByID(1),0,'getUserByID returns error');
-is($tr->getUserByName('zap'),0,'getUserByName returns error');
-is($tr->getUsers(),-500,'getUsers returns error');
-is($tr->getConfigurations(1),-500,'getConfigurations returns error');
-is($tr->closePlan(1),-500,'closePlan returns error');
-is($tr->closeRun(1),-500,'closeRun returns error');
+capture {$res = $tr->createCase(1,'whee',1)};
+is($res,-500,'createCase returns error');
+capture {$res = $tr->createMilestone(1,'whee')};
+is($res,-500,'createMilestone returns error');
+capture {$res = $tr->createPlan(1,'whee')};
+is($res,-500,'createPlan returns error');
+capture {$res = $tr->createProject('zippy')};
+is($res,-500,'createProject returns error');
+capture {$res = $tr->createRun(1,1,'whee')};
+is($res,-500,'createRun returns error');
+capture {$res = $tr->createSection(1,1,'whee')};
+is($res,-500,'createSection returns error');
+capture {$res = $tr->createTestResults(1,1)};
+is($res,-500,'createTestResults returns error');
+capture {$res = $tr->createTestSuite(1,'zugzug')};
+is($res,-500,'createTestSuite returns error');
+capture {$res = $tr->deleteCase(1)};
+is($res,-500,'deleteCase returns error');
+capture {$res = $tr->deleteMilestone(1)};
+is($res,-500,'deleteMilestone returns error');
+capture {$res = $tr->deletePlan(1)};
+is($res,-500,'deletePlan returns error');
+capture {$res = $tr->deleteProject(1)};
+is($res,-500,'deleteProject returns error');
+capture {$res = $tr->deleteRun(1)};
+is($res,-500,'deleteRun returns error');
+capture {$res = $tr->deleteSection(1)};
+is($res,-500,'deleteSection returns error');
+capture {$res = $tr->deleteTestSuite(1)};
+is($res,-500,'deleteTestSuite returns error');
+capture {$res = $tr->getCaseByID(1)};
+is($res,-500,'getCaseByID returns error');
+capture {$res = $tr->getCaseByName(1,1,'hug')};
+is($res,-500,'getCaseByName returns error');
+capture {$res = $tr->getCaseTypeByName('zap')};
+is($res,-500,'getCaseTypeByName returns error');
+capture {$res = $tr->getCaseTypes()};
+is($res,-500,'getCaseTypes returns error');
+capture {$res = $tr->getCases(1,2)};
+is($res,-500,'getCases returns error');
+capture {$res = $tr->getMilestoneByID(1)};
+is($res,-500,'getMilestoneByID returns error');
+capture {$res = $tr->getMilestoneByName(1,'hug')};
+is($res,-500,'getMilestoneByName returns error');
+capture {$res = $tr->getMilestones(1)};
+is($res,-500,'getMilestones returns error');
+capture {$res = $tr->getPlanByID(1)};
+is($res,-500,'getPlanByID returns error');
+capture {$res = $tr->getPlanByName(1,'nugs')};
+is($res,-500,'getPlanByName returns error');
+capture {$res = $tr->getPlans(1)};
+is($res,-500,'getPlans returns error');
+capture {$res = $tr->getPossibleTestStatuses()};
+is($res,-500,'getPossibleTestStatuses returns error');
+capture {$res = $tr->getProjectByID(1)};
+is($res,-500,'getProjectByID returns error');
+capture {$res = $tr->getProjectByName('fake')};
+is($res,-500,'getProjectByName returns error');
+capture {$res = $tr->getProjects()};
+is($res,-500,'getProjects returns error');
+capture {$res = $tr->getRunByID(1)};
+is($res,-500,'getRunByID returns error');
+capture {$res = $tr->getRunByName(1,'zoom')};
+is($res,-500,'getRunByName returns error');
+capture {$res = $tr->getRuns(1)};
+is($res,-500,'getRuns returns error');
+capture {$res = $tr->getSectionByID(1)};
+is($res,-500,'getSectionByID returns error');
+capture {$res = $tr->getSectionByName(1,1,'zip')};
+is($res,-500,'getSectionByName returns error');
+capture {$res = $tr->getSections(1,1)};
+is($res,-500,'getSections returns error');
+capture {$res = $tr->getTestByID(1)};
+is($res,-500,'getTestByID returns error');
+capture {$res = $tr->getTestByName(1,'poo')};
+is($res,-500,'getTestByName returns error');
+capture {$res = $tr->getTestResultFields()};
+is($res,-500,'getTestResultFields returns error');
+capture {$res = $tr->getTestResults(1,1)};
+is($res,-500,'getTestResults returns error');
+capture {$res = $tr->getTestSuiteByID(1)};
+is($res,-500,'getTestSuiteByID returns error');
+capture {$res = $tr->getTestSuiteByName(1,'zap')};
+is($res,-500,'getTestSuiteByName returns error');
+capture {$res = $tr->getTestSuites(1)};
+is($res,-500,'getTestSuites returns error');
+capture {$res = $tr->getTests(1)};
+is($res,-500,'getTests returns error');
+capture {$res = $tr->getUserByEmail('tickle')};
+is($res,0,'getUserByEmail returns error');
+capture {$res = $tr->getUserByID(1)};
+is($res,0,'getUserByID returns error');
+capture {$res = $tr->getUserByName('zap')};
+is($res,0,'getUserByName returns error');
+capture {$res = $tr->getUsers()};
+is($res,-500,'getUsers returns error');
+capture {$res = $tr->getConfigurations(1)};
+is($res,-500,'getConfigurations returns error');
+capture {$res = $tr->closePlan(1)};
+is($res,-500,'closePlan returns error');
+capture {$res = $tr->closeRun(1)};
+is($res,-500,'closeRun returns error');